jaminth 发表于 2007-11-28 07:41:00

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

(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 发表于 2007-11-28 13:00:00

试试？
(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 发表于 2007-11-28 13:30:00

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

jaminth 发表于 2007-11-28 13:37:00

ths

etom999 发表于 2008-1-25 10:56:00

不错
页: [1]
查看完整版本: [求助]匹配块的属性?!