Vla-get-graphicswinmodelbackgrndcolor

提供:GizmoLabs - だいたい CAD LISP なサイト
2016年1月6日 (水) 14:19時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-graphicswinmodelbackgrndcolor ''vla-object'' ) ; 機能 : モデル空間の背景色を取得する。 ; 引数 :* vla-object … P...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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 currGraphicsWinModelBackgrndColor (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 currGraphicsWinModelBackgrndColor)
    (alert (strcat "GraphicsWinModelBackgrndColor の値をリセット " (itoa (vlax-variant-value currGraphicsWinModelBackgrndColor))))
)

関連事項