返回日期（格式：ddmmyy）

Lisphk

1. (defun ddmmyy (/ x today)
   
2.      (setvar "cmdecho" 0)
   
3.      (setq x (getvar "CDATE"))                 ; get current date
   
4.      (setq today ( rtos x 2 4))                    ; convert to a string
   
5.      (setq date (strcat (substr today 7 2) "."    (substr today 5 2) "." (substr today 3 2) ))
   
6. )
   
7. 
   

(defun ddmmyy (/ x today)<br />      (setvar "cmdecho" 0)<br />      (setq x (getvar "CDATE"))                 ; get current date<br />      (setq today ( rtos x 2 4))                    ; convert to a string<br />      (setq date (strcat (substr today 7 2) "."    (substr today 5 2) "." (substr today 3 2) ))<br /> )<br /> <br />

命令: (ddmmyy)
"06.09.16"

ynhh

还要配上星期啊

csharp

(menucmd "M=$(edtime,$(getvar,date),DDDD\",\" D MONTH YYYY)")
returns   "Sunday, 16 July 1995"

1. 
   
2. _$ (menucmd "M=$(edtime,$(getvar,date),dddd dd m YYYY)")
   

复制代码

"星期六 08 10 2016"

WhoCanSay

csharp 发表于 2016-10-8 18:42

我通常也是用这种方式给图纸加入设计时间，但有一次使用G版的自动图层工具时就发生致命错误。说不定使用楼主的方法更可靠一些。

WhoCanSay

楼主，"06.09.16"显示出"2016.09.10"是不是更符合国情？
(setvar "cmdecho" 0)起 什么作用？

sicky111

应该是年月日好一点。

iLisp

1. 
   
2. (menucmd "M=$(edtime,$(getvar,"date"),YYYY M D DDDD)")
   
3. "2016 11 18 星期五"

复制代码

yjch

好好学习天天向上，谢谢

xvjiex

感谢分享返回日期