Vla-dock

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

構文: (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 ") なんてねぇよ？"))
  )
)