Vla-put-autosnapaperturesize

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

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

機能: AutoSnap ターゲットボックスのサイズを指定する。

引数

vla-object … PreferencesDrafting のVLAオブジェクト()
size … AutoSnap ターゲットボックスのピクセル単位のサイズ。

戻り値: nil

MEMO：このプロパティの初期値は 10。
オブジェクトにスナップすると、AutoSnap ターゲットボックスはクロスヘアカーソルの中央に表示される。このオプションは AutoSnap のマーカー、自動吸着、またはツールチップが使用可能である場合にのみ有効。
注: このプロパティの値は、システム変数 APERTURE に格納される。

サンプル

(vl-load-com)
(defun c:Example_AutoSnapApertureSize()
    ;; AutoSnap ターゲット ボックスのサイズを変更するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq preferences (vla-get-Preferences acadObj))
  
    ;; drafting preferences オブジェクトを取得
    (setq ACADPref (vla-get-Drafting preferences))
    
    ;; 既定値を取得
    (setq originalValue (vla-get-AutoSnapApertureSize ACADPref))
    (alert (strcat "現在の AutoSnap ターゲット ボックスのサイズは : " (itoa originalValue)))

    ;; 変更 25
    (vla-put-AutoSnapApertureSize ACADPref 25)
    (setq newValue (vla-get-AutoSnapApertureSize ACADPref))
    (alert (strcat "新しい AutoSnap ターゲット ボックスのサイズは : " (itoa newValue)))

    ;; 戻す
    (vla-put-AutoSnapApertureSize ACADPref originalValue)
    (alert (strcat " AutoSnap ターゲット ボックスのサイズをを戻しました : " (itoa originalValue)))
)