贱人 发表于 2005-2-8 18:17:00

.....................................

本帖最后由 贱人 于 2025-4-18 15:55 编辑 <br /><br />.....................................

wade 发表于 2005-2-9 15:48:00

<FONT color=#1a1ae6>(defun c:rq (/ tmp cy cm cd hh mm ss ms txt pt1) <BR>       (setq tmp (rtos (getvar "cdate") 2 16)) <BR>       (setq                       cy (rtos (atof (substr tmp 1 4)) 2 0) <BR>                       cm (rtos (atof (substr tmp 5 2)) 2 0) <BR>                       cd (rtos (atof (substr tmp 7 2)) 2 0) <BR>                       hh (rtos (atof (substr tmp 10 2)) 2 0) <BR>                       mm (rtos (atof (substr tmp 12 2)) 2 0) <BR>                       ss (rtos (atof (substr tmp 14 2)) 2 0) <BR>                       ms(rtos (atof (substr tmp 16 2)) 2 0) <BR>       ) <BR>       (setq                       txt (strcat "现在是：" cy "年"cm "月" cd "日" hh"时" mm "分" ss "秒" ms "毫秒"))        <BR>                       (setq pt1 (getpoint "\n\t放置点 : ")) <BR>       (command "text"       pt1        "" ""        txt) <BR>       (princ) <BR>)<BR></FONT>


<BR>

贱人 发表于 2005-2-9 23:28:00

本帖最后由 贱人 于 2025-4-18 15:55 编辑

.....................................

leoson034 发表于 2018-4-4 19:43:21

挺好的东西！我只需要他显示年月日，中间用"-"号隔开就好。自己修改修改，研究一下。
页: [1]
查看完整版本: .....................................