提取当时时间的代码

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

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

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)

账号		自动登录	找回密码
密码			注册

[提问] 提取当时时间的代码

点评

评分

点评

浏览过的版块