社区 › Auto Lisp › 需要lisp来更改colo

MikeP 发表于 2022-7-5 23:38:47

需要lisp来更改colo

有没有办法访问可以轻松更改命令行颜色的变量。我试着做的是创建一个计时器。这个计时器将帮助我跟踪给定工作的时间量。当计时器处于活动状态时，我希望命令行为绿色或白色。但当计时器关闭时，我希望命令行变为红色。这样，我就不会忘记打开或关闭计时器。

David Bethel 发表于 2022-7-5 23:43:26

我会在MODEMACRO中寻找一种显示定时器开/关状态显示的方法。希望这些年来它没有发生太大的变化或中断-大卫

MikeP 发表于 2022-7-5 23:46:02

 
我现在使用mode宏。它用来在屏幕底部显示我的名字，哈哈。但是你怎么让它改变命令行的颜色呢

Lee Mac 发表于 2022-7-5 23:49:29

试一试：
 
用r、g、b颜色呼叫

;; Command Line Colour Change by Lee Mac
(defun CmdCol (r g b)
(vl-load-com)
(vla-put-TextWinBackgrndColor
   (vla-get-Display
   (vla-get-Preferences
       (vlax-get-acad-object))) (+ r (* 256 g) (* 65536 b))))

;; Test Function
(defun c:test ()
(cmdcol 0 255 0)
(princ))

MikeP 发表于 2022-7-5 23:52:01

 
 
你总是能帮我解决问题：D.现在我该如何设置它，以使每个新图形都在默认的休息时间打开（红色）

Lee Mac 发表于 2022-7-5 23:57:28

你可以把这个扔进你的阿卡多克。lsp-我把它做成了一个开关
 

;; Command Line Colour Change by Lee Mac
(defun CmdCol (r g b)
(vl-load-com)
(vla-put-TextWinBackgrndColor
   (vla-get-Display
   (vla-get-Preferences
       (vlax-get-acad-object))) (+ r (* 256 g) (* 65536 b))))
(CmdCol 255 127 127)

(defun c:Timer ()
(vl-load-com)
(cond ((not *TimeFlag*)
      (vl-cmdf "_.time" "_R" "_ON" "")
      (CmdCol 191 255 127)
      (setq *TimeFlag* T))
       (t (vl-cmdf "_.time" "_OFF" "")
      (CmdCol 255 127 127)
      (setq *TimeFlag* nil)))
(princ))

MikeP 发表于 2022-7-5 23:57:55

awsome很好用。我现在有它，所以F12按钮切换它。当我打开或关闭它时，我想不出需要添加什么才能使它在命令行中显示“经过的计时器”时间。
 
 
 
 

MikeP 发表于 2022-7-6 00:03:47

你能帮帮我吗。我想更多地学习Lisp程序。我有点理解你在用这段代码做什么，但我不知道一行一行地发生了什么。比如这是什么？（vlax get acad object））（+r（*256 g）（*65536 b））“你能逐行解释一下这里发生了什么吗。很抱歉让人讨厌：哎呀：。
 

MikeP 发表于 2022-7-6 00:04:54

嘿，李，
 
我还有一个挑战给你。如果在给定的时间后不使用任何命令，如何使计时器关闭。我认为它看不到windows的空闲状态，比如屏幕保护程序的工作方式。但它应该能够知道我是否在过去30秒内使用了命令。

Lee Mac 发表于 2022-7-6 00:09:31

 
你对迈克要求不高。。。。

查看完整版本: 需要lisp来更改colo