Vla-put-graphicswinlayoutbackgrndcolor

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

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

機能: ペーパー空間のレイアウトの背景色を指定する。

引数

vla-object … PreferencesDisplay の VLAオブジェクト
OLE_COLOR (定数)

vbBlack
vbRed
vbYellow
vbGreen
vbCyan
vbBlue
vbMagenta
vbWhite

戻り値
nil

注意 : このプロパティの初期値は、Windows 標準の背景色と Windows 標準のアクティブボタンの色の中間の色。ペーパー空間ウィンドウは CAD の[レイアウト]タブで示される。モデル空間ウィンドウは[モデル]タブで示される。GraphicsWinModelBackgrndColor プロパティを使用して、モデル空間ウィンドウの背景色を変更することができる。

サンプル

(vl-load-com)
(defun c:Example_GraphicsWinLayoutBackgrndColor()
    ;; GraphicsWinLayoutBackgrndColor の設定を読み込んで変更するサンプル
    ;; 値は最後に下に戻している
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
    (setq preferences (vla-get-Preferences acadObj))

    ;; PaperSpace/Layout に移動
    (vla-put-ActiveSpace doc acPaperSpace)
  
    ;; GraphicsWinLayoutBackgrndColor の値を読み込む
    (setq currGWBColor (vlax-variant-change-type (vla-get-GraphicsWinLayoutBackgrndColor (vla-get-Display preferences)) vlax-vbLong))
    (alert (strcat "GraphicsWinLayoutBackgrndColor の現在値は " (itoa (vlax-variant-value currGraphicsWinLayoutBackgrndColor))))
    
    ;; GraphicsWinLayoutBackgrndColorの値を変更
    (vla-put-GraphicsWinLayoutBackgrndColor ACADPref (vlax-make-variant 127 19))
    (setq newValue (vlax-variant-change-type (vla-get-GraphicsWinLayoutBackgrndColor ACADPref) vlax-vbLong))
    (alert (strcat "新しい GraphicsWinLayoutBackgrndColor の値は " (itoa (vlax-variant-value newValue))))

    ;; GraphicsWinLayoutBackgrndColor の値を戻す
    (vla-put-GraphicsWinLayoutBackgrndColor ACADPref currGWBColor)
    (alert (strcat "GraphicsWinLayoutBackgrndColor の値を戻します " (itoa (vlax-variant-value currGraphicsWinLayoutBackgrndColor))))
)