命令行文本颜色

Lt Dan's l · 发表于 2022-7-6 09:57:36

这有系统变量吗？

Tiger · 发表于 2022-7-6 10:08:30

不是变量，而是在“选项>显示选项卡>颜色>命令行”下。

你为什么需要/想要改变颜色？

Lt Dan's l · 发表于 2022-7-6 10:16:06

李提出了一个拖拉文本与grread。我正在考虑在例程中使用它，并将文本颜色与命令行文本相匹配。

Jack_O'nei · 发表于 2022-7-6 10:19:44

在2010年，它在“工具”菜单中，然后一直到底部的“选项”，然后显示选项卡，并点击“颜色”按钮大约在该对话框的中间。见下文。

Tiger，我将命令行背景设置为黑色，然后将文本颜色更改为黄色。我也在黑色背景上画画。比标准白色背景更适合我的眼睛。

Lt Dan's l · 发表于 2022-7-6 10:25:56

我知道它在选项中的位置。我只是想用这个颜色做文本

我所说的lisp示例
https://sites.google.com/site/reidbooe/lisp
转到示例。avi公司

Lee Mac · 发表于 2022-7-6 10:34:20

像这样的事情应该可以做到：

copy


;; Sets the Command Line Text Color
;; Args: r,g,b  Red,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))
 )
)

Lt Dan's l · 发表于 2022-7-6 10:39:23

谢谢李！！

Lee Mac · 发表于 2022-7-6 10:46:58

道歉'日期='听起来你想检索颜色，而不是改变它（如我的代码所示）-在这种情况下，我的代码是非常无用的。

我认为[I']vla get TextWinTextColor[/I]返回的OLE\u颜色变量与Visual LISP变量函数不兼容，因此最好直接从注册表中获取值并将其转换为RGB颜色。

copy

(getenv "TextWindow.ForeColor")

请注意，AutoCAD使用的24位真彩色整数不是真RGB值，而是“BGR”，因为红色值占用第三个（高）字节。因此，在将OLE_颜色值与entmake一起使用之前，必须将其转换为真颜色值。

我正在用这些功能更新我的网站，所以请尽快回来。

Lt Dan's l · 发表于 2022-7-6 10:53:50

没问题。当我发布回复时，我并没有真正看代码。现在我会坚持我所拥有的
谢谢大家的帮助

Lee Mac · 发表于 2022-7-6 11:03:21

有关转换函数，请参见此处：

http://lee-mac.com/colourconversion.html

使用上述内容，您可以按如下方式创建文本：

copy


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

[编程交流] 命令行文本颜色

发表回复

精选推荐