CAD炸开无名块

感谢：这个朋友
fgq86233246
浪迹天涯

楼主再试着用下面文字按做成一个.lsp文件试试
我在我的电脑上操作没有问题,用下面的试试
(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)
)

本贴附件下载

炸无名块unlk.zip

399 Bytes , 吧币: 200 , 请登陆后再进行下载！

立即下载

没看懂，没碰到过类似的问题，感谢楼主分享！