实时时间，auto CAD里可不可以能像中望CAD那样显示

183017064

不要占用资源那种

• (setvar "modemacro" "$(edtime,$(getvar,date),YYYY年M月DD日DDDDH:MM:SS)")
• 原因在于​​AutoCAD的modemacro变量不支持动态实时刷新​​，而中望CAD可能对此功能进行了增强 auto CAD有办法解决吗？
  

1. (defun c:timer ()
   
2.   (vl-load-com)
   
3.   
   
4.   (defun Timer_Tick ()
   
5.     (setq AA (menucmd "m=$(edtime,$(getvar,date),YYYY年M月D日 HH:MM:SS DDD)"))
   
6.     (setvar "modemacro"
   
7.       (strcat "  Yu文书  <" AA
   
8.               ">  比例:<1:" (rtos (getvar 'dimscale))
   
9.               ">  层:<" (substr (getvar 'CLAYER) 1 20) ">"
   
10.       )
    
11.     )
    
12.   )
    
13. 
    
14.   ;; 鼠标点击回调函数
    
15.   (defun MouseClickCallback (reactor params)
    
16.     (Timer_Tick)
    
17.   )
    
18.   
    
19.   ;; 定义反应器回调函数
    
20.   (defun ReactorCallback (reactor params)
    
21.     (Timer_Tick) ; 每次命令结束后更新状态栏
    
22.   )
    
23.   
    
24.   ;; 创建命令反应器（如果尚未创建）
    
25.   (if (not *CommandReactor*)
    
26.     (setq *CommandReactor*
    
27.       (vlr-command-reactor nil '((:vlr-commandEnded . ReactorCallback)))
    
28.     )
    
29.   )
    
30.   
    
31.   ;; 创建鼠标点击反应器（使用支持的点击事件）
    
32.   (if (not *MouseReactor*)
    
33.     (setq *MouseReactor*
    
34.       (vlr-mouse-reactor nil '((:vlr-beginDoubleClick . MouseClickCallback)
    
35.                               (:vlr-beginRightClick . MouseClickCallback)))
    
36.     )
    
37.   )
    
38.   
    
39.   ;; 立即更新一次状态栏
    
40.   (Timer_Tick)
    
41.   
    
42.   (princ "\n状态栏自动更新已启用。执行任何命令后将刷新状态信息。")
    
43.   (princ)
    
44. )
    
45. 
    
46. 
    
47. (defun c:endt()
    
48.   (defun Timer_Tick()NIL)
    
49.   (setq MyTimer nil)
    
50.   (if *MouseReactor*
    
51.     (vlr-remove *MouseReactor*)
    
52.   )
    
53.   (setvar "modemacro" "")
    
54.   (princ "\n状态栏自动更新和鼠标刷新已禁用。")
    
55.   (princ))
    
56. 
    
57.   (c:timer)
    

(defun c:timer ()<br />   (vl-load-com)<br />   <br />   (defun Timer_Tick ()<br />     (setq AA (menucmd "m=$(edtime,$(getvar,date),YYYY年M月D日 HH:MM:SS DDD)"))<br />     (setvar "modemacro"<br />       (strcat "  Yu文书  <" AA<br />               ">  比例:<1:" (rtos (getvar 'dimscale))<br />               ">  层:<" (substr (getvar 'CLAYER) 1 20) ">"<br />       )<br />     )<br />   )<br /> <br />   ;; 鼠标点击回调函数<br />   (defun MouseClickCallback (reactor params)<br />     (Timer_Tick)<br />   )<br />   <br />   ;; 定义反应器回调函数<br />   (defun ReactorCallback (reactor params)<br />     (Timer_Tick) ; 每次命令结束后更新状态栏<br />   )<br />   <br />   ;; 创建命令反应器（如果尚未创建）<br />   (if (not *CommandReactor*)<br />     (setq *CommandReactor* <br />       (vlr-command-reactor nil '((:vlr-commandEnded . ReactorCallback)))<br />     )<br />   )<br />   <br />   ;; 创建鼠标点击反应器（使用支持的点击事件）<br />   (if (not *MouseReactor*)<br />     (setq *MouseReactor*<br />       (vlr-mouse-reactor nil '((:vlr-beginDoubleClick . MouseClickCallback)<br />                               (:vlr-beginRightClick . MouseClickCallback)))<br />     )<br />   )<br />   <br />   ;; 立即更新一次状态栏<br />   (Timer_Tick)<br />   <br />   (princ "\n状态栏自动更新已启用。执行任何命令后将刷新状态信息。")<br />   (princ)<br /> )<br /> <br /> <br /> (defun c:endt()<br />   (defun Timer_Tick()NIL)<br />   (setq MyTimer nil)<br />   (if *MouseReactor*<br />     (vlr-remove *MouseReactor*)<br />   )<br />   (setvar "modemacro" "")<br />   (princ "\n状态栏自动更新和鼠标刷新已禁用。")<br />   (princ))<br /> <br />   (c:timer)<br />

gzcsun

CAD是用来看实时时间？还是用来画图？