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 痛苦
页: 1 2 3 4 5 6 7 8 9 10 [11] 12 13 14 15 16 17 18 19 20
查看完整版本: 修改块中文字属性值的程序