Vla-put-graphicswinlayoutbackgrndcolor

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

関連事項