[求助]匹配块的属性?!

jaminth

2. (defun c:rtt()
3. (setq ent1 (nentsel "select:"))
4. (setq en_data (entget (car ent1)))
5. (setq att1 (assoc 1 en_data))
6. (setq ent2 (nentsel "select:"))
7. (setq en_data2 (entget (car ent2)))
8. (setq att2 (assoc 1 en_data2))
9. (setq en_data2 (subst att1 att2 en_data2))
10. (entmod en_data2)
11. )

(defun c:rtt() (setq ent1 (nentsel "select:")) (setq en_data (entget (car ent1))) (setq att1 (assoc 1 en_data)) (setq ent2 (nentsel "select:")) (setq en_data2 (entget (car ent2))) (setq att2 (assoc 1 en_data2)) (setq en_data2 (subst att1 att2 en_data2)) (entmod en_data2) )

上面的程序是匹配块的属性,操作之后得运行regen命令才能看到匹配的结果,麻烦高手帮忙改进一下,能不能不用regen就可以看到结果!?

dinosaurhxe2

试试？

2. (defun c:rtt (/ xxx1 xxx2)
3.   (setq ent1 (nentsel "select:"))
4.   (setq en_data (entget (setq xxx1 (car ent1))));改动
5.   (setq att1 (assoc 1 en_data))
6.   (setq ent2 (nentsel "select:"))
7.   (setq en_data2 (entget (setq xxx2 (car ent2))));改动
8.   (setq att2 (assoc 1 en_data2))
9.   (setq en_data2 (subst att1 att2 en_data2))
10.   (entmod en_data2)
11.   (entupd xxx1);增加
12.   (entupd xxx2);增加
13. )

(defun c:rtt (/ xxx1 xxx2)   (setq ent1 (nentsel "select:"))   (setq en_data (entget (setq xxx1 (car ent1))));改动   (setq att1 (assoc 1 en_data))   (setq ent2 (nentsel "select:"))   (setq en_data2 (entget (setq xxx2 (car ent2))));改动   (setq att2 (assoc 1 en_data2))   (setq en_data2 (subst att1 att2 en_data2))   (entmod en_data2)   (entupd xxx1);增加   (entupd xxx2);增加 )

dinosaurhxe2

建议再加一个While循环，就和ma差不多了，呵呵。

jaminth

ths

etom999

不错