Vla-put-autosnapmarkercolor

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

構文: (vla-put-autosnapmarkercolor vla-object color)

機能: AutoSnap マーカーの色を指定する。

引数

vla-object … PreferencesDrafting の VLAオブジェクト
color … acColor 列挙型

vbBlack
vbRed
vbYellow
vbGreen
vbCyan
vbBlue
vbMagenta
vbWhite

戻り値: nil

MEMO ：このプロパティの初期値は acYellow。

サンプル

(vl-load-com)
(defun c:Example_AutoSnapMarkerColor()
    ;; 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-AutoSnapMarkerColor ACADPref))
    (alert (strcat "AutoSnapMarkerColor の値は: " (itoa originalValue)))

    ;; AutoSnapMarkerColor の値を変更
    (vla-put-AutoSnapMarkerColor ACADPref acRed)
    (setq newValue (vla-get-AutoSnapMarkerColor ACADPref))
    (alert (strcat "AutoSnapMarkerColor の値を次にセット : " (itoa newValue)))

    ;; 元に戻す
    ;; * Note: 戻したくなければコメントアウトすればよし
    (vla-put-AutoSnapMarkerColor ACADPref originalValue) 
    (alert (strcat "AutoSnapMarkerColor を次の値に戻します : " (itoa originalValue)))
)