版主
UID9030334
U币38
G币15997
技术2
主题748
精华17
阅读权限200
注册时间2018-6-27
最后登录2024-3-11
在线时间988 小时
居住地安徽省 合肥市 蜀山区 西园新村街道
QQ
手机15713816790
出生地安徽省 六安市 霍山县
毕业学校华北水利水电大学
学历本科
自我介绍支持一对一教学,设备建模设计出图,在线指导,解决安装问题,主要针对CAD,Solidworks。
版主
|
新建一个空白文本文档,然后将下面“红色”代码复制到里面并保存,将文件名以及后缀名改成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)
)
-----------------------------------------------------------------
先打开无法分解的图纸,然后找到 工具→加载应用程序,然后找到“unlk.lsp”那个文件点一下,然后点击“加载”按钮,对话框左下角提示”加载成功“,然后点击“关闭”按钮;
然后输入命令 unlk 空格,然后点一下图形,就大功告成了!
如果一次不成,就多用几次unlk,因为用了多次引用快……
希望小石坝回复能帮助到你哦!!! |
|