CAD中“１个是多重插入引用”解决

A09 · 发表于 2016-5-28 23:06:58

本帖最后由 A09 于 2016-5-28 23:23 编辑

将下面的代码复制在记事本内，另存为123.lsp文件，打开这张不能修改的图纸，命令appload选择加载程序文件123.lsp，命令行键入unlk，选择不能修改的图形

(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) )

下载附件（LSP文件）：

分解多重引用.zip (366 Bytes, 下载次数: 4)