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

行天下

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

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是可以做到时间动态变化的