怎么使获取到的系统时间自动更新

行天下

加密程序发出来，我应该可以解开

chen3732088

行天下 发表于 2024-7-5 15:25
加密程序发出来，我应该可以解开

算了，谢谢你，破解了对人家作者不太尊重

lijiao

用DIESEL语言是可以实现的

1. (setvar "modemacro" "$(edtime,$(getvar,date),YYYY年M月DD日DDDDH:MM:SS)")

复制代码

只是效果不是很好

chen3732088

lijiao 发表于 2024-7-5 16:27
用DIESEL语言是可以实现的

只是效果不是很好

就是这个效果，厉害啊老师

ymcui

只有每次触发时间才能更新,不能做到动态

gzcsun

找到10多年前别人的旧程序，只能用在旧版CAD

(defun c:timer()       

  (vl-load-com)               
        (defun Timer_Tick()
        (setq AA (menucmd "m=$(edtime,$(getvar,date),YYYY年M月D日 HH:MM:SS DDD)"))
        (setvar "modemacro" (strcat "  CAD  <" AA ">  比例:<1:" "$(getvar,dimscale)" ">  层:<" "$(substr,$(getvar,CLAYER),1,20)"">" )))
  (setq MyTimer(vlax-create-object "LispTimer.cTimer"))
  (vlax-put-property MyTimer 'Interval 1000)
  (vlax-invoke-method MyTimer 'TimerStart (Vlax-Get-Acad-Object) "Timer_Tick")
)



(defun c:endt()
(defun Timer_Tick()NIL)
        (setq MyTimer nil)
        (setvar "modemacro" ""))

chen3732088

ymcui 发表于 2024-7-8 11:06
只有每次触发时间才能更新,不能做到动态

可能cad版本的问题，我用中望用上面lijiao大佬的代码是可以的

chen3732088

gzcsun 发表于 2024-7-15 21:04
找到10多年前别人的旧程序，只能用在旧版CAD

(defun c:timer()       

谢谢大佬，之前已经测试过上面lijiao大佬的代码，用中望cad是可以做到时间动态变化的

183017064

gzcsun 发表于 2024-7-15 21:04
找到10多年前别人的旧程序，只能用在旧版CAD

(defun c:timer()       

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

(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 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 />   (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 />         (setvar "modemacro" ""))

新版

183017064

chen3732088 发表于 2024-7-4 13:52
我有个插件里面带有这个功能，但是是加密了的，然后显示的内容有些用不上，就想自己弄一个

大佬，可以发一下吗