修改别人的插入当前时间段!

jeepsheep

(defun c:rq (/ tmp cy cm cd txt txt1 pt1)
(setq tmp (rtos (getvar "cdate") 2 16))
(setq cy (rtos (atof (substr tmp 1 4)) 2 0)
cm (rtos (atof (substr tmp 5 2)) 2 0)
cd (rtos (atof (substr tmp 7 2)) 2 0)
)
(cond ((= cm "1")(setq cm "Jan"))
((= cm "2")(setq cm "Feb"))
((= cm "3")(setq cm "Mar"))
((= cm "4")(setq cm "Apr"))
((= cm "5")(setq cm "May"))
((= cm "6")(setq cm "Jun"))
((= cm "7")(setq cm "Jul"))
((= cm "8")(setq cm "Aug"))
((= cm "9")(setq cm "Sep"))
((= cm "10")(setq cm "Oct"))
((= cm "11")(setq cm "Nov"))
((= cm "12")(setq cm "Dec"))
);cond
(setq txt (strcat "现在是：" cd "," cm "," cy " ")
txt1 (strcat cd "," cm "," cy " ")
)
(COMMAND "style" "宋体" "宋体" "300" "1" "0" "" "")
(alert txt)
(setq pt1(getpoint"\n\t放置点 : "))
(command "text" "j" "mc" pt1 "0" txt1)
(princ)
)


哪位大侠帮忙修改一下,使之变为点选文字使之内容变为当前时间!
恨自己不懂LISP的编写,只会照猫画虎.

王咣生

(defun c:rq (/ tmp cy cm cd txt txt1 pt1)
(setq tmp (rtos (getvar "cdate") 2 16))
(setq cy (rtos (atof (substr tmp 1 4)) 2 0)
cm (rtos (atof (substr tmp 5 2)) 2 0)
cd (rtos (atof (substr tmp 7 2)) 2 0)
)
(cond ((= cm "1")(setq cm "Jan"))
((= cm "2")(setq cm "Feb"))
((= cm "3")(setq cm "Mar"))
((= cm "4")(setq cm "Apr"))
((= cm "5")(setq cm "May"))
((= cm "6")(setq cm "Jun"))
((= cm "7")(setq cm "Jul"))
((= cm "8")(setq cm "Aug"))
((= cm "9")(setq cm "Sep"))
((= cm "10")(setq cm "Oct"))
((= cm "11")(setq cm "Nov"))
((= cm "12")(setq cm "Dec"))
);cond
(setq txt (strcat "现在是：" cd "," cm "," cy " ")
txt1 (strcat cd "," cm "," cy " ")
)
(COMMAND "style" "宋体" "宋体" "300" "1" "0" "" "")
(alert txt)
;;;(setq pt1(getpoint"\n\t放置点 : "))
;;;(command "text" "j" "mc" pt1 "0" txt1)
(setq ename (car (entsel)))
(if ename
(progn
(setq elist (entget ename))
(if (= (cdr (assoc 0 elist)) "TEXT")
(progn
(setq elist (subst (cons 1 txt1) (assoc 1 elist) elist))
(entmod elist)
)
)
)
)
(princ)
)

jeepsheep

谢谢!

清风明月名字

谢谢楼主的分享！很有意思的代码，收藏备用。

混沌初开

贴张图看一下!