Vla-put-top

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文

(vla-put-top vla-object num)

機能

ツールバーの上端座標を設定します。

引数

• vla-object … ツールバーアイテムの VLAオブジェクト
• num … 上端の座標値

戻り値

nil

サンプル

(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*))

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

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

---

関連事項

• vlax-get-acad-object
• vla-get-left
• vla-get-top
• vla-put-left