如何更改CAD的背景颜色？

bbqcb · 发表于 2014-7-25 10:05:00

问题描述 
在使用进行图纸设计时，有的用户需要进行截图，但是系统默认的黑色背景与插入截图的场景颜色不相搭，可否通过设置和修改CAD的背景颜色达到目的呢？
解决方法 
首先我们打开cad程序，然后点击上方的【】按钮，再选择【选项】对话框。 
系统弹出选项对话框，我们在对话框中点击【显示】选项卡。 
新弹出的对话框，找到左上角位置的窗口元素，从中选择【颜色】按钮。 
这时就可以在【图形窗口颜色】对话框中根据用户需要自行选择所需的颜色了。 
完成设置后点击下方的【应用并关闭】保存修改即可。如图。

jrqbgpulpnm.jpg

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

lucas_3333 · 发表于 2014-7-25 11:28:00

copy

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

如何更改CAD的背景颜色？

发表回复

精选推荐