自动插入日期?

jxlnlsh

各位大哥谁自动插入日期的次序啊?如:07.05.13先谢了

三尖树之觉醒

phoenixdjq 发表于 2007-5-13 10:52
这个是从本论坛下载的(defun c:rr(/ entn entl text high)(setq entn (car (entsel "选择加年月日的文字")) ...

太棒了太棒了great

fangseng

不知道是哪位前辈的，给你用！
;***********************************************************************日期
(defun C:RQ()
(setq pt0 (getpoint "\n请指定插入位置点 :"))
(setq da (rtos (fix (getvar "cdate"))))
(setq d1 (substr da 1 4))
(setq d2 (substr da 5 2))
(setq d3 (substr da 7 2))
(setq date (strcat d1 "." d2 "." d3))
(command "text" "j" "m" pt0 5.0 0 date "")
(command)
(princ)
)

;***********************************************************************改日期
(defun c:GRQ(/ entn entl text high)
(setq entn (car (entsel "选择加年月日的文字")))
(setq entl (entget entn))
(setq ti (rtos (getvar "cdate") 2 6))
(setq yyyy (substr ti 1 4))
(setq mm (substr ti 5 2))
;(setq mm (atoi mm))
;(setq mm (itoa mm))
(setq dd (substr ti 7 2))
;(setq dd (atoi dd))
;(setq dd (itoa dd))
(setq text (strcat yyyy "." mm "." dd))
(setq entl (subst (cons 1 text) (assoc 1 entl) entl))
(entmod entl)
(princ)
)

sunny_8848

phoenixdjq 发表于 2007-5-21 16:44
加几个分号就可以了(defun c:rr(/ entn entl text high)(setq entn (car (entsel "选择加年月日的文字")))( ...

请问把年2021表示成这样该怎样修改呢

phoenixdjq

这个是从本论坛下载的

(defun c:rr(/ entn entl text high)
(setq entn (car (entsel "选择加年月日的文字")))
(setq entl (entget entn))
(setq ti (rtos (getvar "cdate") 2 6))
(setq yy (substr ti 3 2))
(setq mm (substr ti 5 2))
(setq mm (atoi mm))
(setq mm (itoa mm))
(setq dd (substr ti 7 2))
(setq dd (atoi dd))
(setq dd (itoa dd))
(setq text (strcat yy "/" mm "/" dd))
(setq entl (subst (cons 1 text) (assoc 1 entl) entl))
(entmod entl)
(princ)
)

jxlnlsh

谢谢! phoenixdjq

jxlnlsh

phoenixdjq 你好 怎么只有前面有0如(07.5.1)怎么后面这两个没0呢?

jxlnlsh

各位高手有没有啊

dnnlog

有

phoenixdjq

加几个分号就可以了

(defun c:rr(/ entn entl text high)
(setq entn (car (entsel "选择加年月日的文字")))
(setq entl (entget entn))
(setq ti (rtos (getvar "cdate") 2 6))
(setq yy (substr ti 3 2))
(setq mm (substr ti 5 2))
;(setq mm (atoi mm))
;(setq mm (itoa mm))
(setq dd (substr ti 7 2))
;(setq dd (atoi dd))
;(setq dd (itoa dd))
(setq text (strcat yy "/" mm "/" dd))
(setq entl (subst (cons 1 text) (assoc 1 entl) entl))
(entmod entl)
(princ)
)

alin

Command: (dos_cdate "%y.%m.%d")
"07.05.23"

sailorcwx

(menucmd "M=$(edtime,$(getvar,date),YY.MO.DD)")

phoenixdjq

alin的方法需要安装DOSLib，加载arx

在网上看了看，是要完全安装cad才能用

不知alin有没有别的方法呀

sailorcwx的方法挺好的，cad下就能用