Vla-get-graphicswinmodelbackgrndcolor

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年1月6日 (水) 14:26時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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))))
)

関連事項