更改Lisp R的文本颜色

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

大家好，
我只想对我正在做的事情变得非常挑剔。我正在尝试运行一个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

copy


(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

使用示例：

copy

(#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的文本颜色

发表回复

精选推荐