Vla-get-flyout

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

構文: (vla-get-flyout vla-object )

機能: フライアウトツールバー項目に関連付けられたツールバーを取得する。

引数

vla-object … ToolbarItem のVLAオブジェクト

戻り値: ツールバー項目を含むツールバーのVLAオブジェクト

サンプル

(vl-load-com)
(defun c:Example_Flyout()
    ;; MenuGroups を使用して、CAD のメイン メニューへの参照を取得するサンプル。
    ;; フライアウトとして使用するツールバー とボタンを作成し、既存のツールバー メニューに
    ;; ポップアップ メニューを設定。ツールバーが自動的に表示され、フライアウトとして UCS メニューが表示される。
    (setq acadObj (vlax-get-acad-object))
    (setq currMenuGroup (vla-Item (vla-get-MenuGroups acadObj) 0))
    
    ;; ツールバーを作成
    (setq newToolBar (vla-Add (vla-get-Toolbars currMenuGroup) "TestToolbar"))
    
    ;; テストメニューにボタンを作成してフライアウトとしてリンク
    ;;
    ;; * NOTE: フライアウト ツールバーの名前にマクロ名を設定。
    ;; 空文字に設定すると、エラーが発生する。
    ;; スタイルは、フライアウト、以外の任意の値を持つ必要があるが、パラメーターは無視される。
    (setq newToolBarFlyoutButton (vla-AddToolbarButton newToolBar (1+ (vla-get-Count newToolBar)) "Flyout" "Flyout" "UCS" :vlax-true))
    
    ;; ツールバーに "UCS" のツールバーをフライアウトとしてリンク
    ;;
    ;; * NOTE: フライアウトを変更するには、単に下の MenuGroup およびツールバーの名前を変更。
    (vla-AttachToolbarToFlyout newToolBarFlyoutButton "ACAD" "UCS")

    (alert (strcat "テストメニューにアタッチしたフライアウトは " (vla-get-Name (vla-get-Flyout newToolBarFlyoutButton))))
)