如何更改CAD的背景颜色？
问题描述 在使用CAD进行图纸设计时，有的用户需要进行截图，但是系统默认的黑色背景与插入截图的场景颜色不相搭，可否通过设置和修改CAD的背景颜色达到目的呢？解决方法 首先我们打开cad程序，然后点击上方的【工具】按钮，再选择【选项】对话框。 系统弹出选项对话框，我们在对话框中点击【显示】选项卡。 新弹出的对话框，找到左上角位置的窗口元素，从中选择【颜色】按钮。 这时就可以在【图形窗口颜色】对话框中根据用户需要自行选择所需的颜色了。 完成设置后点击下方的【应用并关闭】保存修改即可。如图。http://www.zwcad.com/uploadfile/2014/0724/20140724094239389.jpg;; This lisp can change background color for 2D model space
(defun c:gr (/ VAR-COLOUR DISPLAY clno blue rde green)
(setq clno (getint "\n=>Input colour No!"))
(prompt "\n,1=red,2=yellow,3=gree,4=cyan,5=blue,6=magenta,7=white"
)
(cond ((= clno 1)
(progn (setq rde 255) (setq green 0) (setq blue 0))
)
((= clno 2)
(progn (setq rde 255) (setq green 255) (setq blue 0))
)
((= clno 3)
(progn (setq rde 0) (setq green 255) (setq blue 0))
)
((= clno 4)
(progn (setq rde 0) (setq green 255) (setq blue 255))
)
((= clno 5)
(progn (setq rde 0) (setq green 0) (setq blue 255))
)
((= clno 6)
(progn (setq rde 255) (setq green 0) (setq blue 255))
)
((= clno 7)
(progn (setq rde 255) (setq green 255) (setq blue 255))
)
((= clno 8)
(progn (setq rde 128) (setq green 128) (setq blue 128))
)
((= clno 9)
(progn (setq rde 192) (setq green 192) (setq blue 192))
)
(t (progn (setq rde 0) (setq green 0) (setq blue 0)))
)
(setq
VAR-COLOUR (vlax-make-variant
(+ rde (* green 256)(* blue 65536))
vlax-vblong
)
DISPLAY (vla-get-display
(vla-get-preferences
(vla-get-application (vlax-get-acad-object))
)
)
)
(vla-put-graphicswinlayoutbackgrndcolor DISPLAY VAR-COLOUR)
(vla-put-graphicswinmodelbackgrndcolor DISPLAY VAR-COLOUR)
)
页:
[1]