「Vla-put-left」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-left ''vla-object'' ) ; 機能 : ツールバーの左端座標を取得します。 ; 引数 :* vla-object … ツールバーアイ...」)
 
編集の要約なし
 
5行目: 5行目:


; 機能
; 機能
: ツールバーの左端座標を取得します。
: ツールバーの左端座標を設定します。





2013年7月15日 (月) 12:04時点における最新版

構文
(vla-put-left 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*))

(sertq tbleft (vla-get-left (vla-item *toolbars* 1))

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


関連事項