「Vla-get-graphicswinmodelbackgrndcolor」の版間の差分

2016年1月6日 (水) 14:26時点における最新版

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

構文: (vla-get-graphicswinmodelbackgrndcolor vla-object )

機能: モデル空間の背景色を取得する。

引数

vla-object … PreferencesDisplay の VLAオブジェクト

戻り値

OLE_COLOR (定数)

vbBlack
vbRed
vbYellow
vbGreen
vbCyan
vbBlue
vbMagenta
vbWhite

注意 : このプロパティの既定の色は vbBlack 。

サンプル

(vl-load-com)
(defun c:Example_GraphicsWinModelBackgrndColor()
    ;; GraphicsWinModelBackgrndColor の設定値を変更して表示するサンプル
    ;; 設定は最後に元に戻す
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    (setq preferences (vla-get-Preferences acadObj))
        
    ;; GraphicsWinModelBackgrndColor の現在地を取得
    (setq currGWinMBColor (vlax-variant-change-type (vla-get-GraphicsWinModelBackgrndColor (vla-get-Display preferences)) vlax-vbLong))
    (alert (strcat "GraphicsWinModelBackgrndColor の現在値は " (itoa (vlax-variant-value currGraphicsWinModelBackgrndColor))))
    
    ;; GraphicsWinModelBackgrndColorの値を変更
    (vla-put-GraphicsWinModelBackgrndColor ACADPref (vlax-make-variant 127 19))
    (setq newValue (vlax-variant-change-type (vla-get-GraphicsWinModelBackgrndColor ACADPref) vlax-vbLong))
    (alert (strcat "新しい GraphicsWinModelBackgrndColor の値は " (itoa (vlax-variant-value newValue))))
    
    ;; GraphicsWinModelBackgrndColorの値をリセット
    (vla-put-GraphicsWinModelBackgrndColor ACADPref currGWinMBColor)
    (alert (strcat "GraphicsWinModelBackgrndColor の値をリセット " (itoa (vlax-variant-value currGraphicsWinModelBackgrndColor))))
)