社区 › Auto Lisp › 更改Lisp R的文本颜色

mikman 发表于 2022-7-6 17:31:37

更改Lisp R的文本颜色

大家好，
我只想对我正在做的事情变得非常挑剔。我正在尝试运行一个lisp例程，并提示我它已完成，但我希望它的颜色与命令行中的文本不同。这可能吗？我在任何地方都找不到任何评论。
 

(defun C:osm ()
(command "osmode" "163")
(prompt "Object Snap Mode is set to Meikle")
(prin1)
)

 
举个例子，我是新手，所以这很简单，但嘿，你必须从某个地方开始！任何想法都只能帮助你！谢谢大家！

CAB 发表于 2022-7-6 17:44:40

没有颜色的想法，但尝试不同的东西
（警报“对象捕捉模式设置为Meikle”）

mikman 发表于 2022-7-6 17:56:02

谢谢，我用了它，它和改变颜色一样有效。

ASMI 发表于 2022-7-6 18:00:52

(vl-load-com)

(defun #Asmi_Cmd_Line_ForeColor(Color / Col)
(if(setq Col(cdr(assoc(strcase Color)
       '(("WHITE" . 16777215)("BLACK" . 2)
       ("RED" . 255)("YELLOW" . 65535)
       ("GREEN" . 65280)("CYAN" . 16776960)
       ("BLUE". 16711680)("MAGENTA". 16711935)))))
(vla-put-TextWinTextColor
    (vla-get-Display
      (vla-get-Preferences
(vlax-get-acad-object)))
          (vlax-make-variant Col 19))
   ); end if
(princ)
); end of #Asmi_Cmd_Line_ForeColor


(defun #Asmi_Cmd_Line_BackColor(Color / Col)
(if(setq Col(cdr(assoc(strcase Color)
       '(("WHITE" . 16777215)("BLACK" . 2)
       ("RED" . 255)("YELLOW" . 65535)
       ("GREEN" . 65280)("CYAN" . 16776960)
       ("BLUE". 16711680)("MAGENTA". 16711935)))))
(vla-put-TextWinBackgrndColor
    (vla-get-Display
      (vla-get-Preferences
(vlax-get-acad-object)))
          (vlax-make-variant Col 19))
   ); end if
(princ)
); end of #Asmi_Cmd_Line_BackColor
 
使用示例：
 
(#Asmi_Cmd_Line_ForeColor "red") ; to set red font
(#Asmi_Cmd_Line_BackColor "black") ; to set black background

 
>驾驶室
 
提示
 
BackColor=前景色和NOMUTT无需！

CAB 发表于 2022-7-6 18:11:29

每天学习一些东西。
谢谢ASMI

mikman 发表于 2022-7-6 18:19:36

好的，现在我回来问另一个关于lisp和text的问题。我最近使用了一个lisp，可以在我正在使用的图形中添加文本。我停止了工作，把“mktext”当成了问题。我无法修改例程，它被锁定，所有者不再与我合作。我在哪里可以找到一个可以自己阅读和学习Lisp程序的地方？

lpseifert 发表于 2022-7-6 18:29:20

你说常规加起来的文字。。。
例程是否对数字文本字符串的值求和？
 
顺便说一句，你可能想用一个新的主题标题开始一个新的线程。。。

mikman 发表于 2022-7-6 18:38:27

我开始了一个新的线程，谢谢。这些弦是数字的。

查看完整版本: 更改Lisp R的文本颜色