修改块中文字属性值的程序

huyiqun · 发表于 2011-2-25 15:38:05

回复 QUAN2518 的帖子

;;;读取某个块NAME的属性ATT属性值ATT_VALUE
(defun rt()
  (SETQ ENT (ENTGET NAME))
  (SETQ ENT1 ENT)
  (WHILE (= (CDR (ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "ATTRIB")
(IF (= (CDR (ASSOC 2 ENT1)) ATT)
   (SETQ ATT_VALUE (CDR (ASSOC 1 ENT1)))
   )
)
  )

;;;将某个块NAME的属性ATT属性值改为ATT_VALUE
(defun WT()
  (SETQ ENT (ENTGET NAME))
  (SETQ ENT1 ENT)
  (WHILE (= (CDR (ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "ATTRIB")
(IF (= (CDR (ASSOC 2 ENT1)) ATT)
   (PROGN
(setq ENT1 (SUBST (CONS 1 ATT_VALUE) (ASSOC 1 ENT1) ENT1))
(ENTMOD ENT1)
(ENTMOD ENT)
)
   )
)
  )

shemiere · 发表于 2011-6-7 21:29:12

这个问题值得探讨

u47321111 · 发表于 2011-6-21 20:29:38

很想看看这个程序。

LLXXZZ · 发表于 2011-6-22 12:39:16

用vlisp处理要简单多了.

caoteddy · 发表于 2011-6-23 11:46:45

要学习一下子了！！

sl20pt · 发表于 2011-7-1 11:59:23

看看不知道可以不可以用

ygp820601 · 发表于 2011-7-11 16:43:19

很有用，太感谢了。

aiwater · 发表于 2011-7-12 09:56:59

非常好用谢谢ZZXXQQ版主

fsz12378 · 发表于 2011-7-12 20:20:41

很到位的解决

小风吹大树 · 发表于 2011-8-10 10:55:40

呃要发5贴才能看 55555 痛苦

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