天正多重插入块无法用X命令炸开
答案:2 悬赏:0 手机版
解决时间 2021-02-15 11:17
- 提问者网友：焚苦与心
- 2021-02-14 19:43
天正多重插入块无法用X命令炸开
最佳答案
- 五星知识达人网友：轻熟杀无赦
- 2021-02-14 20:37
(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”文件
cad中用“APPLOAD”命令加载这个文件，
然后输入“unlk”命令就行了
从别人那里复制的，但是试过很有用
(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”文件
cad中用“APPLOAD”命令加载这个文件，
然后输入“unlk”命令就行了
从别人那里复制的，但是试过很有用
全部回答
- 1楼网友：洎扰庸人
- 2021-02-14 22:04
支持一下感觉挺不错的
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯