lee50310 发表于 2020-3-17 09:57:28

yangchao2005090 发表于 2018-7-22 09:38
请问布局背景颜色怎么改呀

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

(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 0) )

   ;   ((= 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)


JHX948954875 发表于 2020-3-17 10:22:06

谢谢楼主分享

zhangkui9070 发表于 2020-8-22 21:56:45

谢谢分享

paulpipi 发表于 2020-8-24 21:44:22


很好，谢谢楼主

＿Levin 发表于 2022-1-31 15:51:33

厉害，谢谢楼主分享

at1636 发表于 2022-5-26 17:54:24

谢谢分享！！！！！

magicheno 发表于 2022-5-26 19:35:47

感谢大佬分享~

boboxiake 发表于 2022-7-18 11:12:42

hcq0594 发表于 2022-7-22 09:05:10

学习了，系统变量有时候不好记住

magicheno 发表于 2022-7-22 09:38:38

感谢大佬分享
页: 1 2 3 [4] 5 6
查看完整版本: 打造一个适合自己的运行环境(系统变量设置)