命令行文本颜色
这有系统变量吗？ 不是变量，而是在“选项>显示选项卡>颜色>命令行”下。你为什么需要/想要改变颜色？ 李提出了一个拖拉文本与grread。我正在考虑在例程中使用它，并将文本颜色与命令行文本相匹配。 在2010年，它在“工具”菜单中，然后一直到底部的“选项”，然后显示选项卡，并点击“颜色”按钮大约在该对话框的中间。见下文。
Tiger，我将命令行背景设置为黑色，然后将文本颜色更改为黄色。我也在黑色背景上画画。比标准白色背景更适合我的眼睛。
我知道它在选项中的位置。我只是想用这个颜色做文本
我所说的lisp示例
https://sites.google.com/site/reidbooe/lisp
转到示例。avi公司 像这样的事情应该可以做到：
;; Sets the Command Line Text Color
;; Args: r,g,bRed,Green,Blue values.
(defun PutCommandLineTextColor ( r g b )
;; © Lee Mac 2011
(vla-put-TextWinTextColor
(vla-get-Display
(vla-get-Preferences (vlax-get-acad-object))
)
(+ (fix r) (lsh (fix g)(lsh (fix b) 16))
)
) 谢谢李！！
道歉'日期='听起来你想检索颜色，而不是改变它（如我的代码所示）-在这种情况下，我的代码是非常无用的。
我认为vla get TextWinTextColor返回的OLE\u颜色变量与Visual LISP变量函数不兼容，因此最好直接从注册表中获取值并将其转换为RGB颜色。
(getenv "TextWindow.ForeColor")
请注意，AutoCAD使用的24位真彩色整数不是真RGB值，而是“BGR”，因为红色值占用第三个（高）字节。因此，在将OLE_颜色值与entmake一起使用之前，必须将其转换为真颜色值。
我正在用这些功能更新我的网站，所以请尽快回来。 没问题。当我发布回复时，我并没有真正看代码。现在我会坚持我所拥有的
谢谢大家的帮助 有关转换函数，请参见此处：
http://lee-mac.com/colourconversion.html
使用上述内容，您可以按如下方式创建文本：
(entmakex
(list
(cons 0 "TEXT")
(list 10 0 0 0)
(cons 40 1.0)
(cons 1 "Lee Mac")
(cons 420
(LM:OLE->True
(atoi (getenv "TextWindow.ForeColor"))
)
)
)
)
页:
[1]