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

贱人

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

wade

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

贱人

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

leoson034

挺好的东西！我只需要他显示年月日，中间用"-"号隔开就好。自己修改修改，研究一下。