Vla-put-gripcolorselected

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(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)))
)

関連事項