vanching 发表于 2007-8-8 11:13:00

[求助]关于“在CAD中插入时间和日期”的显示问题

<p>我在明经<a href="http://www.mjtd.com/Codes/ArticleShow.asp?ArticleID=1045">http://www.mjtd.com/Codes/ArticleShow.asp?ArticleID=1045</a>上看到“在CAD中插入时间和日期”，于是也在自己的CAD2007上进行了设置，但发现显示的“MM”月份和“mm”分钟是一样的，当我把“MM”改为“M”时，月份才显示正确。截图如下。请问：如何才能让该lsp程序正确显示“年月日时分秒”呢？</p><p>&nbsp;</p>

无痕 发表于 2007-8-8 12:31:00

(menucmd "M=$(edtime,$(getvar,date),DDD\", \"D MON YYYY)") -&gt;"周三, 8 八月 2007" <br/>(menucmd "M=$(edtime,$(getvar,date),YYYY.M.DD hh:mm:ss)") -&gt;"2007.8.08 12:24:49"<br/>(menucmd "M=$(edtime,$(getvar,date),YYYY\"年\"M\"月\"DD\"日\" hh\"时\"mm\"分\"ss\"秒\")") －&gt; "2007年8月08日 12时26分06秒"

vanching 发表于 2007-8-8 14:47:00

谢谢无痕。

zhangzl 发表于 2012-1-7 20:23:22

很好，解决了，是日历的问题

vlisp2012 发表于 2012-4-3 11:59:23

非常感谢无痕。困扰了很久！！！

669423907 发表于 2012-4-3 12:16:53

这个很好，但不好用。

vlisp2012 发表于 2012-4-4 09:14:36

669423907 发表于 2012-4-3 12:16 static/image/common/back.gif
这个很好，但不好用。

(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)
)
很好用啊，非常好。没感觉哪里不好啊？！

注册 发表于 2012-4-4 10:57:49

这个哪里用的到啊

sdls 发表于 2019-3-28 22:50:43

很给力，谢谢
页: [1]
查看完整版本: [求助]关于“在CAD中插入时间和日期”的显示问题