# 方法1、2 中的文件也可以直接下载 [多重块分解.zip](/usr/uploads/2024/03/824743379.zip) ## 方法1: 新建`exm.lsp`, ps:文件需要是`ANSI`编码格式 代码如下: 然后使用`ap`命令加载 输入`exm`运行解密后可以分享 ```shell ;;------------------------------------------------------------- ;;转换“多重插入块”为“普通块”。 (defun c:exm () (setvar "cmdecho" 0) (setq stm (car (entsel "n点取多重块"))) (while stm (setq e (entget stm)) (setq stlx (CDR (assoc 0 e))) (if (= stlx "insert") (Progn (setq r_zm70 (assoc 70 e)) (setq c_zm71 (assoc 71 e)) (setq r_dist_zm44 (assoc 44 e)) (setq c_dist_zm45 (assoc 45 e)) (setq e (SUbst (cons 44 0) r_dist_zm44 e)) (setq e (SUbst (cons 45 0) c_dist_zm45 e)) (setq e (SUbst (cons 70 0) r_zm70 e)) (setq e (SUbst (cons 71 0) c_zm71 e)) (setq e (SUbst (list 100"acdbblockreference") (list 100"acdbminsertblock") e)) (entmake e) (entdel stm) )) (setq stm (car (entsel "n点取下一多重块"))) ) (setvar "cmdecho" 1) ) ``` ## 方法2: 新建`unlk.lsp`, ps:文件需要是`ANSI`编码格式 代码如下: 然后使用`ap`命令加载 输入`unlk`运行后选择图形会直接分解 ```shell (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) ) ``` WMI Scripting HTML 当前访问者IP地址及地址归属: Last modification:March 8th, 2024 at 04:02 pm © 允许规范转载 Support 如果觉得我的文章对你有用,请随意赞赏 ×Close Appreciate the author Sweeping payments