Vla-put-largebuttons

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

構文: (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 " ボタン."))
)