1个回答|图文描述更容易被采纳

• 
  系统管理员 | 2020-03-09 12:05:14

  第一步：新建一个文本文档，名称和扩展名修改为unlk.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) 

  )

  
  

  第三步：如以上代码复制有误，请直接下载。（自行杀毒）

  
  

  https://www.lanzous.com/ia2qu9c

  
  

  第四步：用CAD打开带有无法分解的多重插入块的图纸，然后输入快捷键AP 或者找到 工具→加载应用程序，然后找到刚创建的unlk.lsp文件，加载；显示加载成功，然后关闭。

  
  

  

  在CAD中输入命令：unlk，然后点需要分解的多重块；一次不成，可以多使用几次unlk命令，因为可能是多次引用了块。
  

  0 0 评论