Vla-put-gripcolorselected

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

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

機能: 選択グリップの色を指定する。

引数

vla-object … PreferencesSelection の VLAオブジェクト
color … 選択したグリップ(塗り潰された四角形)のコントロール。有効な範囲は 1～255、または以下に示す定数のいずれか。acColor 列挙型

acRed
acYellow
acGreen
acCyan
acBlue
acMagenta
acWhite

戻り値: nil

MEMO ：このプロパティの初期値は 12。このプロパティの値は、システム変数 GRIPHOT に格納されている。

サンプル

(vl-load-com)
(defun c:Example_GripColorSelected()
    ;; 選択されたグリップの色を読み取り、値を変更後元の値に戻すサンプル。
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))    
    
    ;; 選択の環境設定オブジェクトを取得する。
    (setq ACADPref (vla-get-Selection (vla-get-preferences acadObj)))
    
    ;; 現在の値を取得
    (setq originalValue1 (vla-get-GripColorSelected ACADPref))
    (setq originalValue2 (vla-get-GripColorunSelected ACADPref))
    (alert (strcat "GripColorSelected の設定 : " (itoa originalValue1)))
    (alert (strcat "GripColorunSelected の設定 : " (itoa originalValue2)))

    ;; GripColorSelected プリファレンスをグリーンに変更する。
    (vla-put-GripColorSelected ACADPref acGreen)
    ;; GripColorunSelected プリファレンスを160に変更する。
    (vla-put-GripColorunSelected ACADPref 160)

    (setq newValue1 (vla-get-GripColorSelected ACADPref))
    (setq newValue2 (vla-get-GripColorunSelected ACADPref))
    (alert (strcat "GripColorSelected の設定を変更。 : " (itoa newValue1)))
    (alert (strcat "GripColorunSelected の設定を変更。 : " (itoa newValue2)))

    ;; 元の値に戻って設定をリセット。
    (vla-put-GripColorSelected ACADPref originalValue1)
    (vla-put-GripColorunSelected ACADPref originalValue2)
    (alert (strcat "GripColorSelected の設定を戻す。: " (itoa originalValue1)))
    (alert (strcat "GripColorunSelected の設定を戻す。: " (itoa originalValue2)))
)