自动插入日期?

三尖树之觉醒

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

太棒了太棒了great

至今没学会

确实可以，不错

sunny_8848

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

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

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

alexmai

fangseng 发表于 2021-5-14 09:05
不知道是哪位前辈的，给你用！
;********************************************************************* ...

感谢   如果能支持属性块文字，更完美

advksf

感 谢谢，

G〆h

(setq str (menucmd "M=$(edtime,$(getvar,date),YYYY年M月D日)"))

yuyehuan

phoenixdjq 发表于 2007-5-24 09:28
alin的方法需要安装DOSLib，加载arx在网上看了看，是要完全安装cad才能用不知alin有没有别的方法呀sailorcw ...

谢谢谢谢谢想