jxlnlsh 发表于 2007-5-13 08:35:00

自动插入日期?

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

三尖树之觉醒 发表于 2016-8-5 15:30:19

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

太棒了太棒了great

fangseng 发表于 2021-5-14 09:05:16

不知道是哪位前辈的，给你用！
;***********************************************************************日期
(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 发表于 2021-4-18 12:11:56

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

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

phoenixdjq 发表于 2007-5-13 10:52:00

<p>这个是从本论坛下载的</p><p>(defun c:rr(/ entn entl text high)<br/>(setq entn (car (entsel "选择加年月日的文字")))<br/>(setq entl (entget entn))<br/>(setq ti (rtos (getvar "cdate") 2 6))<br/>(setq yy (substr ti 3 2))<br/>(setq mm (substr ti 5 2))<br/>(setq mm (atoi mm))<br/>(setq mm (itoa mm))<br/>(setq dd (substr ti 7 2))<br/>(setq dd (atoi dd))<br/>(setq dd (itoa dd))<br/>(setq text (strcat yy "/" mm "/" dd))<br/>(setq entl (subst (cons 1 text) (assoc 1 entl) entl))<br/>(entmod entl)<br/>(princ)<br/>)<br/></p>

jxlnlsh 发表于 2007-5-13 21:16:00

<p>谢谢! <strong><font face="Verdana" color="#61b713">phoenixdjq</font></strong></p>

jxlnlsh 发表于 2007-5-15 21:43:00

<p><strong><font face="Verdana" color="#61b713">phoenixdjq 你好 怎么只有前面有0如(07.5.1)怎么后面这两个没0呢?</font></strong></p>

jxlnlsh 发表于 2007-5-18 20:54:00

各位高手有没有啊

dnnlog 发表于 2007-5-21 11:56:00

有

phoenixdjq 发表于 2007-5-21 16:44:00

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

alin 发表于 2007-5-23 08:39:00

Command: (dos_cdate "%y.%m.%d")<br/>"07.05.23"

sailorcwx 发表于 2007-5-23 13:25:00

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

phoenixdjq 发表于 2007-5-24 09:28:00

<p><strong><font face="Verdana" color="#da2549">alin的方法需要安装DOSLib，加载arx</font></strong></p><p><strong><font face="Verdana" color="#da2549">在网上看了看，是要完全安装cad才能用</font></strong></p><p><strong><font face="Verdana" color="#da2549">不知alin有没有别的方法呀</font></strong></p><p><strong><font face="Verdana" color="#61b713">sailorcwx的方法挺好的，cad下就能用</font></strong></p>
页: [1] 2
查看完整版本: 自动插入日期?