我在明经http://www.mjtd.com/Codes/ArticleShow.asp?ArticleID=1045上看到“在CAD中插入时间和日期”，于是也在自己的CAD2007上进行了设置，但发现显示的“MM”月份和“mm”分钟是一样的，当我把“MM”改为“M”时，月份才显示正确。截图如下。请问：如何才能让该lsp程序正确显示“年月日时分秒”呢？
网友答: (menucmd "M=$(edtime,$(getvar,date),DDD\", \"D MON YYYY)") ->"周三, 8 八月 2007"
(menucmd "M=$(edtime,$(getvar,date),YYYY.M.DD hh:mm:ss)") ->"2007.8.08 12:24:49"
(menucmd "M=$(edtime,$(getvar,date),YYYY\"年\"M\"月\"DD\"日\" hh\"时\"mm\"分\"ss\"秒\")") －> "2007年8月08日 12时26分06秒"网友答: 本帖最后由 alexmai 于 2025-10-17 22:01 编辑
;;;改为“保存日期”字段文字
(defun c:rqqq()
(while
(setq obj (nentselp "\n 选择文字 [Exit]:"))
(setq obj (vlax-ename->vla-object (car obj)))
(vlax-property-available-p obj "TextString")
(vla-put-TextString obj (strcat "%<\\AcVar SaveDate \\f \"yyyy.MM.dd\">%"))
)
(command "REGENall")
)网友答:
amook147 发表于 2025-10-14 16:07
豆包 分分钟解决。。。
这是十几年前的帖子哎。。。网友答: 谢谢无痕。网友答: 很好，解决了，是日历的问题
网友答:
非常感谢无痕。困扰了很久！！！网友答:
这个很好，但不好用。网友答:
669423907 发表于 2012-4-3 12:16
这个很好，但不好用。
(defun C:io0( / date0 pt0)
(setq pt0 (getpoint "\n请指定插入位置点 :")
wzgd (getvar "textsize"))
(setq date0 (menucmd "M=$(edtime,$(getvar,date),YYYY\"年\"M\"月\"DD\"日\" hh\"时\"mm\"分\"ss\"秒\")"))
(command "text" "j" "bl" pt0 wzgd 0 date0)
(princ)
)
很好用啊，非常好。没感觉哪里不好啊？！
网友答:
这个哪里用的到啊网友答:
很给力，谢谢网友答:
刚巧用得上，谢谢