「Vla-dock」の版間の差分
細編集の要約なし |
細編集の要約なし |
||
41行目: | 41行目: | ||
関連事項 | 関連事項 | ||
* [[vlax-get-acad-object]] | * [[vlax-get-acad-object]] | ||
* [[get-toolbar]] | * [[vla-get-toolbar]] | ||
* [[vlax-release-object]] | * [[vlax-release-object]] | ||
[[Category:AutoLISP]] | [[Category:AutoLISP]] |
2013年7月19日 (金) 18:30時点における版
- 構文
- (vla-dock vla-object loc)
- 機能
- ツールバーを使用中のフレーム ウィンドウにドッキングする。
- 引数
-
- vla-object … ツールバーの vlaオブジェクト
- loc … AcToolbarDockStatus 列挙型 ツールバーのドッキングする側
- 戻り値
- nil
- サンプル
(defun Toolbar-Dock (mgroup name side / tb loc) (cond ( (= (strcase side) “LEFT”) (setq loc acToolbarDockLeft)) ( (= (strcase side) “RIGHT”) (setq loc acToolbarDockRight)) ( (= (strcase side) “TOP”) (setq loc acToolbarDockTop)) ( (= (strcase side) “BOTTOM”) (setq loc acToolbarDockBottom)) ( T (setq loc acToolbarDockLeft)) ) (if (setq tb (vla-get-toolbar mgroup name)) (progn (vla-dock tb loc) (vlax-release-object tb) ) (princ (strcat "\nツールバー (" name ") なんてねぇよ?")) ) )
関連事項