「Vla-put-enable」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-enable ''vla-object'' ''bool'') ; 機能 : ポップアップ メニュー項目を使用可能かを指定する。 ; 引数 :* vl...」) |
(相違点なし)
|
2015年10月12日 (月) 12:06時点における最新版
- 構文
- (vla-put-enable vla-object bool)
- 機能
- ポップアップ メニュー項目を使用可能かを指定する。
- 引数
-
- vla-object … PopupMenuItem のVLAオブジェクト
- bool
- :vlax-True: 項目を有効にする。
- :vlax-False: 項目を無効にする。
- 戻り値
- nil
- サンプル
(vl-load-com) (defun c:Example_enable() ;; テスト メニューという名の新しいメニューを作成し、2 つのメニュー項目を挿入。2 番目のメニュー項目、チェックされます。 ;; メニューは、メニュー バーに表示されます。このマクロの実行後、メニューを削除するには、メニューをカスタマイズに使用します。 (setq acadObj (vlax-get-acad-object)) (setq currMenuGroup (vla-Item (vla-get-MenuGroups acadObj) 0)) ;; 新メニューを作成 (setq newMenu (vla-Add (vla-get-Menus currMenuGroup) "TestMenu")) ;; 新しいメニューに 2 つのメニュー項目を追加する。 ;; 「ESC ESC _open」に相当するマクロ文字列を割り当てる (setq openMacro (strcat (Chr 3) (Chr 3) (Chr 95) "open" (Chr 32))) (setq Menu1 (vla-AddMenuItem newMenu (1+ (vla-get-Count newMenu)) "Open1" openMacro)) (setq MenuSeparator (vla-AddSeparator newMenu "")) (setq Menu2 (vla-AddMenuItem newMenu (1+ (vla-get-Count newMenu)) "Open2" openMacro)) ;; 新しいアイテムを無効化 (vla-put-Check Menu2 :vlax-true) ;; メニューをメニューバーに表示 (vla-InsertInMenuBar newMenu (1+ (vla-get-Count (vla-get-MenuBar acadObj)))) )
関連事項