Vla-put-largebuttons

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(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 " ボタン."))
)

関連事項