[求助]：如何编辑带属性块中的属性值

hyx_lyn

我已经插入一个带属性的块，其中的属性均已赋值，我现在想通过LISP程序来读取块中的属性值并可以对其更改，有没有什么好的方法
谢谢

snoopychen

在google中查找 edit attribute in block autolisp ，得到这个例子
http://www.cadresource.com/library/lisp0a.html  attedit.zip
可以参照一下：），它的是对某个块的某个属性全部赋一个新值

(defun C:ae ()
(setvar "cmdecho" 0)
(setq I 0)
(setq blkname (getstring "\nEnter the name of block to update:  "))
(setq newatt (strcase(getstring "\nEnter new atrribute value: ")))
(setq att1 (strcase(getstring "\nEnter the name of the attribute to change: ")))
(setq sset (ssget "x" (list (cons 2 blkname))))
(if (= sset nil)(setq l 0)
(setq l (sslength sset)))
        (repeat l
        (setq stop 1)
        (setq name (ssname sset I))
                 (while (= stop 1)
                        (setq name1 (entget (entnext name)))
                        (setq ATT (cdr (assoc 2 name1)))
                       (if (= att att1)(setq go 1))
                        (setq name (cdr (assoc -1 name1)))  
                        
                        (while (= go 1)
                                (setq d (assoc 1 name1))
                                (setq d2 (cons 1 newatt))
                                (setq d1 (subst d2 d name1))
                                (entmod d1)
                                (setq go nil)
                                (setq stop nil)
                        )
                )
         (setq i (1+ i))
         )
(command "regen" )
(princ)
(princ)
)

hyx_lyn

谢谢楼上的提供，我来看一下

jyzas

谢谢楼上的源码，支持下