加密程序发出来，我应该可以解开
算了，谢谢你，破解了对人家作者不太尊重 用DIESEL语言是可以实现的
(setvar "modemacro" "$(edtime,$(getvar,date),YYYY年M月DD日DDDDH:MM:SS)")
只是效果不是很好 lijiao 发表于 2024-7-5 16:27
用DIESEL语言是可以实现的
只是效果不是很好
就是这个效果，厉害啊老师 只有每次触发时间才能更新,不能做到动态
本帖最后由 gzcsun 于 2024-7-15 21:12 编辑
找到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" ""))
ymcui 发表于 2024-7-8 11:06
只有每次触发时间才能更新,不能做到动态
可能cad版本的问题，我用中望用上面lijiao大佬的代码是可以的 gzcsun 发表于 2024-7-15 21:04
找到10多年前别人的旧程序，只能用在旧版CAD
(defun c:timer()
谢谢大佬，之前已经测试过上面lijiao大佬的代码，用中望cad是可以做到时间动态变化的
页:
1
[2]