俞雲霨工作室

切換 AutoCAD 背景(黑 灰 白)色_BackGround(20131116)

;;切換 AutoCAD 背景(黑/灰/白)色
;;for AutoCAD 2013 中文版之 AutoLISP
;; 2013/11/16

;;程式預設背景為黑色，每次開啟執行程式會依序 黑/灰/白 循環更換。

(if (null BackGround) (setq BackGround 1)) ;; 預設背景黑色
(defun C:BackGround (/ acadobject acadpref acaddisp)
    (setq scm (getvar "cmdecho"))
    (setvar "cmdecho" 0)
    (setq acadobject (vlax-get-acad-object))
    (setq acadpref   (vlax-get-property acadobject 'preferences))
    (setq acaddisp   (vlax-get-property acadpref 'display))
    (cond
        ((= BackGround 0) ;; 背景白色
         (vlax-put-property acaddisp 'GraphicsWinModelBackgrndColor 16777215)
         (vlax-put-property acaddisp 'ModelCrosshairColor 0) ;; 設定模型空間游標顏色
         (setq BackGround 1) )
        ((= BackGround 1) ;; 背景黑色
         (vlax-put-property acaddisp 'GraphicsWinModelBackgrndColor 0) ;; 設定模型空間背景顏色 
         (vlax-put-property acaddisp 'ModelCrosshairColor 16777215)
         (setq BackGround 2) )
        ((= BackGround 2) ;; 背景灰色
         (vlax-put-property acaddisp 'GraphicsWinModelBackgrndColor 5987163) 
         (vlax-put-property acaddisp 'ModelCrosshairColor 16777215)
         (setq BackGround 0)) )

    (princ "\n****** 切換 AutoCAD 背景色完成 ******")
    (setvar "cmdecho" scm)
(princ)
)
(prompt "\n****** Load << 切換 AutoCAD 背景(黑/灰/白)色 >> Successful ******")
(prin1)