Vla-put-largebuttons

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年1月28日 (木) 16:13時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-largebuttons ''vla-object'' ''bool '' ) ; 機能 : ツールバーのボタンの大小を指定する。 ; 引数 :* vla-object...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-put-largebuttons vla-object bool )


機能
ツールバーのボタンの大小を指定する。


引数
  • vla-object … VLAオブジェクト(Toolbar、Toolbars)
  • bool … ブール型
  • :vlax-True: ツールバーを大きくする。
  • :vlax-False: ツールバーを小さくする。


戻り値
nil


サンプル
(vl-load-com)
(defun c:Example_LargeButtons()
    ;; CAD のメイン メニューを参照して(テスト メニュー) の新しいツールバーを作成し、
    ;; ツールバー ボタンを挿入するサンプル。
    ;; ツールバーの表示を LargeButtons プロパティで設定。
    (setq acadObj (vlax-get-acad-object))
    
    ;; システム ツールバーのボタンを大きくする
    (setq Toolbars (vla-get-Toolbars (vla-Item (vla-get-MenuGroups acadObj) "ACAD")))
   
    ;; 現在のサイズを取得
    (setq CurrSize (vla-get-LargeButtons Toolbars))
    
    ;; 表示
    (setq ButtonSize (if (= CurrSize :vlax-true) "大きい" "標準サイズ"))
    (alert (strcat "現在の表示は " ButtonSize " ボタン."))
   
    ;; トグルで変更
    (vla-put-LargeButtons Toolbars (if (= (vla-get-LargeButtons Toolbars) :vlax-true) :vlax-false :vlax-true))
    
    ;; 表示
    (setq ButtonSize (if (= (vla-get-LargeButtons Toolbars) :vlax-true) "大きい" "標準サイズ"))
    (alert (strcat "現在の表示は " ButtonSize " ボタン."))
    
    ;; 戻す
    (vla-put-LargeButtons Toolbars CurrSize)
    
    ;; 表示
    (setq ButtonSize (if (= CurrSize :vlax-true) "Large" "Normal size"))
    (alert (strcat "現在の表示は " ButtonSize " ボタン."))
)

関連事項