[求助]：請高手們看看唷！如何修改

ljs026 · 发表于 2004-12-10 12:34:48

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:rq(/ entn entl text high)
(setq entn (car (entsel "選擇加年月日的文字")))
(setq entl (entget entn))
(setq ti (rtos (getvar "cdate") 2 6))
(setq yy (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 yy "." mm "." dd))
(setq entl (subst (cons 1 text) (assoc 1 entl) entl))
(entmod entl)
(princ)
)

如何能對屬性文字做修改

chinese17 · 发表于 2004-12-10 12:40:50

好高深哦!

paobudong · 发表于 2004-12-10 12:41:13

我不会

sdwy19691229 · 发表于 2004-12-10 23:32:09

(--------------
setq ent1 (entget (car e1)))
(setq ent1 (subst (cons '1 TEXT) (assoc '1 ent1) ent1))
(entmod ent1)
---------------------

不知道能不能帮上忙？

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：請高手們看看唷！如何修改

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子