Vla-get-shortcutmenu

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

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

機能: 指定されたポップアップメニューがショートカットメニューかどうかを取得する。

引数

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

戻り値

ブール型

:vlax-True: ショートカットメニュー。
:vlax-False: ショートカットメニューではない。

サンプル

(vl-load-com)
(defun c:Example_ShortcutMenu()
    ;; menus コレクションを反復処理し、各メニューがショートカット メニューかどうかを返すサンプル。
    (setq acadObj (vlax-get-acad-object))
  
    ;; 現在読み込まれているメニューの数によっては完全に表示されない事もあるので注意    
    (setq menuStatus "")
    (vlax-for currMenu (vla-get-Menus (vla-Item (vla-get-MenuGroups acadObj) 0))
        (if (= (vla-get-ShortcutMenu currMenu) :vlax-true)
            (setq menuStatus (strcat menuStatus (vla-get-Name currMenu) " はショートカット メニュー。\n"))
            (setq menuStatus (strcat menuStatus (vla-get-Name currMenu) " ショートカット メニューではない。\n"))
        )
    )
    (alert menuStatus)
)