Vla-put-gripsize

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

構文: (vla-put-gripsize vla-object size)

機能: グリップのサイズを指定する。

引数

vla-object … PreferencesSelection の VLAオブジェクト
size … グリップを表示するために描かれる四角形のピクセル単位のサイズ。1～255 の任意の値が有効。現実的な範囲は 1～20。

注意：このプロパティの初期値は 3 。
MEMO : このプロパティの値は、システム変数 GRIPSIZE に格納される。

戻り値: nil

サンプル

; 特に理由がなければ setvar 使ったほうがいいと思われる
(setvar "GRIPSIZE" 7)


(vl-load-com)
(defun c:Example_GripSize()
    ;; グリップサイズを読み込み、変更してから元に戻すサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    
    ;; preferences オブジェクトを取得
    (setq ACADPref (vla-get-Selection (vla-get-preferences acadObj)))
    
    ;; 現在の値を取得
    (setq originalValue (vla-get-GripSize ACADPref))
    (alert (strcat "今の GripSize は: " (itoa originalValue)))

    ;; GripSize を７に変更
    (vla-put-GripSize ACADPref 7)
    (setq newValue (vla-get-GripSize ACADPref))
    (alert (strcat "新しい GripSize は: " (itoa newValue)))

    ;; 元に戻す
    (vla-put-GripSize ACADPref originalValue)
    (alert (strcat "GripSize を次に戻します。: " (itoa originalValue)))
)