河北XINXIAN 发表于 2014-7-4 09:52:00

提取当时时间的代码

提取当时时间的代码求高手给个例子谢谢了

http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 河北XINXIAN的微博

ll_j 发表于 2014-7-4 11:42:16

(setq tm (menucmd "M=$(edtime,$(getvar,date),YYYYMODDHHMMSS)"))
或
(setq tm (rtos (* (getvar "cdate") 1000000) 2 0))

AMTONNY 发表于 2014-7-5 00:12:52

;;插入当前日期
(defun C:iuy()
(setq abc (getvar "clayer"))(setvar "clayer" "0")
(setq pt0 (getpoint "\n请指定插入位置点 :"))
   (setq date0 (menucmd "M=$(edtime,$(getvar,date), YYYY年MO月DD日)"))
   (command "-text" pt0 "" 0 date0)
(setvar "clayer" abc)
(princ)
)

ucuc2003 发表于 2014-7-5 00:27:15

(setq date (rtos (* (getvar "cdate") 1e8)))
或
(setq date (menucmd "M=$(edtime,$(getvar,date),YYYYMODDHHMMSS)"))
或
(setq date (setq tm (rtos (* (getvar "cdate") 1000000) 2 0)))
或
(setq date (setq tm (rtos (* (getvar "cdate") 100000000) 2 0)))

xyp1964 发表于 2014-7-5 13:01:12

(rtos (getvar "cdate") 2 6)
页: [1]
查看完整版本: 提取当时时间的代码