Vla-get-flyout

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年2月22日 (月) 09:03時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-flyout ''vla-object'' ) ; 機能 : フライアウト ツールバー項目に関連付けられたツールバーを取得する。...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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))))
)


関連事項