Vla-get-top

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(vla-get-top vla-object )


機能
ツールバーの上端座標を取得します。


引数
  • vla-object … ツールバーアイテムの VLAオブジェクト


戻り値
座標値


サンプル
(setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(setq *cmenu* (vla-item (vla-get-menugroups (vla-get-application *ActDoc*)) "ACAD"))
(setq *toolbars* (vla-get-toolbars *cmenu*))

(setq tbtop (vla-get-top (vla-item *toolbars* 1))

(vla-put-top (vla-item *toolbars* 3) (+ tbtop 50))


関連事項