如何才能分解一个多重插入的无名块？

peng197806 · 发表于 2005-11-22 17:58:00

如何才能分解一个多重插入的无名块？有一个DWG图，整个图都是一个无名块。无法炸开这个块，提示说是个多重插入引用。而且也无法编辑，怎么才能分解这个多重引用的无名块呢？

hzzhao · 发表于 2011-4-13 15:48:00

用这个能解决无名块的多重引用！我刚解决了
(defun c:unlk (/ en ent)
(setq en (entsel "\n请选择被加密的图形:"))
(if en
(if (= (cdr (assoc 0 (setq ent (cdr (entget (setq en (car en)))))))
"INSERT"
)
(progn
(setq ent (entmakex
(list '(0 . "INSERT")
(assoc 2 ent)
(assoc 10 ent)
)
)
)
(command "_.explode" (entlast))
(entdel en)
)
)
)
(princ "\nOK，解密成功。")
(princ)
)