今天遇到一個棘手的問題,由設計院發的CAD圖打開后顯示為一整個塊,用“x”命令分解不了,命令行顯示“1為多重插入引用”。經過在網上搜尋,終於解決了問題。引用如下:
圖形被加密的解鎖方法:
將下面的代碼複製在記事本內,另存為unlk.lsp文件,打開這張不能修改的圖紙,命令appload選擇載入程序文件unlk.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)
)