Vla-floatのソースを表示

{{AutoLISP}}
; 構文
: (vla-float ''vla-object'' ''Top'' ''Left'' ''NumberFloatRows'')


; 機能
:  ツールバーを浮動にする。 


; 引数
:* vla-object … ToolBar の VLAオブジェクトオブジェクト 
:* Top … ツールバーの上端のピクセル位置。 
:* Left … ツールバーの左端のピクセル位置。 
:* NumberFloatRows … 水平ツールバーで作成する行数。ツールバーのボタンは指定された行数で自動的に横に配置される。 


; 戻り値
: nil


; サンプル
<pre class="brush:autolisp;">
(vl-load-com)
(defun c:Example_Float()
    ;;「TestToolbar」という名の新しいツールバーを作成し、3つのボタンを挿入。
    ;; ツールバーをフローティングツールバー、ドッキングで表示。
    (setq currMenuGroup (vla-Item (vla-get-MenuGroups (vlax-get-acad-object)) 0))

    ;; 新しいツールバーを生成
    (setq newToolBar (vla-Add (vla-get-Toolbars currMenuGroup) "TestToolbar"))

    ;; 生成したツールバーに３つのボタンを追加
    ;; ボタンの割り当てマクロは同じ
    (setq openMacro (strcat (Chr 3) (Chr 3) (Chr 95) "open" (Chr 32)))

    (setq newButton1 (vla-AddToolbarButton newToolBar "" "NewButton1" "Open a file." openMacro))
    (setq newButton2 (vla-AddToolbarButton newToolBar "" "NewButton2" "Open a file." openMacro))
    (setq newButton3 (vla-AddToolbarButton newToolBar "" "NewButton3" "Open a file." openMacro))    

    ;; ツールバー表示
    (vla-put-Visible newToolBar :vlax-true)

    ;; 画面の左側にあるツールバーを固定。
    (vla-Dock newToolBar acToolbarDockLeft)

    ;; それがドッキングされているかどうかを確認するために、ツールバーを照会します。
    (if (= (vla-get-DockStatus newToolBar) acToolbarFloating)
        (alert "ツールバーはフローティング")
        (alert "ツールバーはドッキング")
    )

    ;; ツールバーをフロート
    (vla-Float newToolBar 200 200 1)

    (if (= (vla-get-DockStatus newToolBar) acToolbarFloating)
        (alert "The toolbar is floating.")
        (alert "The toolbar is docked.")
    )
)
</pre>

-----
関連事項
* [[vlax-get-acad-object]]
* [[vla-get-documents]]
* [[vla-get-dockstatus]]
* [[vla-get-menugroups]]
* [[vla-get-toolbars]]
* [[vla-addtoolbarbutton]]
* [[vla-put-visible]]
* [[vla-float]]
* [[vla-dock]]
* [[vla-item]]


[[Category:AutoLISP]]