ucuc2003 发表于 2013-5-22 21:13:21

怎么能给一个值指定当前日期时间

本帖最后由 ucuc2003 于 2013-5-26 16:52 编辑

如果当前日期时间是2013年11月22日11点22分33秒，我想把日期时间“20131122112233”设定给bname，让bname的值返回“20131122112233”，而不是返回20131122112233，请问各位老师这串代码怎么写？谢谢

wowan1314 发表于 2013-5-22 21:38:31

(menucmd "M=$(edtime,$(getvar,date),YYYYMODDHHMMSS)")

ucuc2003 发表于 2013-5-22 21:46:55

wowan1314 发表于 2013-5-26 16:38 static/image/common/back.gif
(menucmd "M=$(edtime,$(getvar,date),YYYYMODDHHMMSS)")

非常感谢！！！

河北XINXIAN 发表于 2014-7-4 09:07:31

wowan1314 发表于 2013-5-22 21:38 static/image/common/back.gif
(menucmd "M=$(edtime,$(getvar,date),YYYYMODDHHMMSS)")

能说说具体怎么用吗？

ucuc2003 发表于 2014-7-5 00:26:43

河北XINXIAN 发表于 2014-7-8 04:07 static/image/common/back.gif
能说说具体怎么用吗？

(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)))

香田里浪人 发表于 2014-7-7 06:03:56

河北XINXIAN 发表于 2014-7-4 09:07 static/image/common/back.gif
能说说具体怎么用吗？

;;插入日期和时间
(defun C:tt(/ pt date)
(cmdla0)
(setq pt (getpoint "\n请指定插入位置点: "))
(setq        date (menucmd "M=$(edtime,$(getvar,date), YYYY年M月D日 hh:mm:ss)"
             )
)
(xyp-Text 5 pt date)
(cmdla1)
)
页: [1]
查看完整版本: 怎么能给一个值指定当前日期时间