模型、布局、块编辑器、命令行改自己想要的颜色

;;;------------------------------------------------------------------------------------
;;;常用颜色，根据自己的习惯DIY引号中的数字,命令bjys
(defun c:bjys()
;;;图形窗口颜色;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;【黑色0】【白色16777215】【青色16776960】【蓝色16711680】【灰色200,200,200---13158600】【默认浅黑背景31560010】
(setenv "BEditBackground" "0") ;             块编辑器→→→统一背景→→→颜色改为黑色
(setenv "BEdit Xhair color" "16777215") ;    块编辑器→→→十字光标→→→此命令的变量有点个性
(setenv "Background" "0") ;                  二维空间模型→→→统一背景→→→颜色改为黑色,默认3156001(33,40,48)浅黑
(setenv "XhairPickboxEtc" "16777215") ;      二维空间模型→→→十字光标→→→颜色改为白色,默认16777215(白色)
;(setenv "Autotracking vector" "8421504") ;  自动追踪矢量颜色,默认8421504
;;;;;;;;下面的是命令行相关的，适用于吸附在最下侧
(setenv "TextWindow.BackColor" "13158600");          命令行→→→命令历史记录背景→→→颜色改为默认灰色，13158600(200,200,200)
(setenv "TextWindow.ForeColor" "0");                 命令行→→→命令历史记录背景→→→颜色改为默认灰色，13158600(200,200,200)
(setenv "CmdLine.BackColor" "16777215");             命令行→→→活动提示背景→→→颜色改为默认白色，默认16777215(白色);;;;;;;;;;;;悬浮可以改成浅黑背景31560010
(setenv "CmdLine.ForeColor" "0");                    命令行→→→活动提示文本→→→输入命令窗口的文本改为黑色,默认0(黑色)
(setenv "CmdLine.TempPromptBkColor" "6710886");      命令行→→→临时提示背景，改为默认灰色，默认6710886(102,102,102);;;;;;;;;;;悬浮可以改成浅黑背景31560010
(setenv "CmdLine.TempPromptTextColor" "16777215");   命令行→→→临时提示文本，改为默认白色，默认16777215(白色);;;;;;;;;;;;;;;;;悬浮可以改成深灰背景13158600(102,102,102)
(setenv "CmdLine.CmdOptKeywordColor" "16711680");    命令行→→→命令行选项关键字→→→命令颜色改为蓝色，默认16711680(蓝色);;;;;;;;悬浮可以DIY
(setenv "CmdLine.CmdOptBkColor" "13816530");         命令行→→→命令选项背景→→→遮罩颜色，默认13816530(210,210,210);;;;;;;;;;;;;悬浮可以改成浅黑背景31560010
(setenv "CmdLine.CmdOptHighlightedColor" "11776947");命令行→→→亮显的命令选项，默认11776947(179,179,179)
(setenv "CmdLine.FontFace" "Consolas");   OP→→显示→→字体→→→→→→命令行文字字体，默认Consolas
(setenv "CmdLine.FontHeight" "10");       OP→→显示→→字体→→→→→→命令行文字高度，默认10
(setenv "CmdLine.FontItalic" "0");        OP→→显示→→字体→→→→→→命令行文字倾斜，默认0
;;;;;;;;下面的是布局相关的
(setenv "Layout background" "0") ;            图纸/布局→→→统一背景→→→颜色改为黑色,默认16777215(白色)
(setenv "LayoutXhairPickboxEtc" "16777215") ; 图纸/布局→→→十字光标→→→颜色改为白色,默认0(黑色)
(setenv "ShowPaperBackground" "0") ;          不显示布局中的图纸背景和阴影，默认1
(setenv "ShowPrintBorder" "0") ;              不显示布局中的图纸阴影，默认1
;(setvar "layoutcreateviewport" 1);           关闭在新布局中创建视口，默认1
;(setenv "ShowPaperMargins" "1");             布局中不显示打印区域，默认1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (princ "模型、布局、块编辑器、命令行已改为常用颜色！")

(princ)
)

http://bbs.mjtd.com/thread-189280-1-1.html