「Vla-dock」の版間の差分

提供:GizmoLabs - だいたい CAD LISP なサイト
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-dock ''vla-object'' ''loc'') ; 機能 : ツールバーを使用中のフレーム ウィンドウにドッキングする。 ; 引数 ...」)
 
編集の要約なし
 
(同じ利用者による、間の2版が非表示)
27行目: 27行目:
     ( T                            (setq loc acToolbarDockLeft))
     ( T                            (setq loc acToolbarDockLeft))
   )
   )
   (if (setq tb (get-toolbar mgroup name))
   (if (setq tb (vla-get-toolbar mgroup name))
     (progn
     (progn
         (vla-dock tb loc)
         (vla-dock tb loc)
41行目: 41行目:
関連事項
関連事項
* [[vlax-get-acad-object]]
* [[vlax-get-acad-object]]
* [[get-toolbar]]
* [[vla-get-documents]]
* [[vlax-release-object]]
* [[vla-get-dockstatus]]
* [[vla-get-menugroups]]
* [[vla-get-toolbars]]
* [[vla-addtoolbarbutton]]
* [[vla-put-visible]]
* [[vla-float]]
* [[vla-dock]]
* [[vla-item]]
 


[[Category:AutoLISP]]
[[Category:AutoLISP]]

2015年1月24日 (土) 12:49時点における最新版

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


関連事項