AutoCAD关于“多重插入引用”(多重块)的分解

AutoCAD关于“多重插入引用”（多重块）的分解 　　今天上班遇到一个棘手的问 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 ，由 设计 领导形象设计圆作业设计ao工艺污水处理厂设计附属工程施工组织设计清扫机器人结构设计 院发的CAD图打开后显示为一整个块，用“ｘ”命令分解不了，命令行显示“１为多重插入引用”。经过在网上搜寻，终于解决了问题。引用如下： 【图形被加密的解锁方法】 将下面的代码复制在记事本内，另存为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) ) 1.1.1 CAD多重插入引用 炸开方法   2009-10-20 11:29:15|  分类： 默认分类 |  标签： |字号大中小 订阅 把以下内容保存为lsp文件（如exm.lsp）,加载后运行exm既可把“多重插入块”转换为“普通块”，然后既可用“explode”分解。加载后运行lockb可把“普通块”转换为“多重插入块” (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) ) ;;-------------------------------------------------------------------- ;;转换“普通块”为“多重插入块” (DEFUN C:lockb () (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 e (subst (cons 70 1) r_zm70 e)) (setq e (subst (cons 71 1) c_zm71 e)) (setq e (subst (list 100"AcDbMInsertBlock") (list 100"AcDbBlockReference") e)) (entmake e) (entdel stm) )) (SETQ STM (car (ENTSEL "\n点取下一块"))) ) (setvar "cmdecho" 1) ) 2 使用“exm.lsp”解密或加密为“多重插入块” 目前很多CAD图件运用“插入多重插入块”的方法， 加密， 造成部分图件中的块，无法炸开， 网上游很多破解方法，现将自编lsp程序的方法罗列如下，希望对大家有帮助。 把以下内容保存为lsp文件（如exm.lsp）,加载后运行exm既可把“多重插入块”转换为“普通块”，然后既可用“explode”分解。加载后运行lockb可把“普通块”转换为“多重插入块” lsp源代码： ;;------------------------------------------------------------- ;;转换“多重插入块”为“普通块”。 (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) ) ;;-------------------------------------------------------------------- ;;转换“普通块”为“多重插入块” (DEFUN C:lockb () (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 e (subst (cons 70 1) r_zm70 e)) (setq e (subst (cons 71 1) c_zm71 e)) (setq e (subst (list 100"AcDbMInsertBlock") (list 100"AcDbBlockReference") e)) (entmake e) (entdel stm) )) (SETQ STM (car (ENTSEL "\n点取下一块"))) ) (setvar "cmdecho" 1) ) ;;-------------------------------------------------------------------- 如果不愿弄，下面有现成的，请大家试用。。。支持Win7，CAD2010。。。。 炸开“多重插入引用”的方法以及制作 1.“多重插入引用”的制作： 用minsert命令，提示块名，在cad工作目录下找一张图，键入这个图名，然后到提示行数或列数时，输入2以上，但行距或列距输入0。这样一个多重插入引用制作完成，无法用explode炸开了。 多重块不是重复定义块，而是在矩形阵列中插入一个块的多重引用。多重块是由命令minsert插入一个块而形成，其在正常情况下不能被分解。但若是用普通的方法构建的多重块，可以删除掉，然后用insert再插入它原来引用的块即可。不过，若它原来引用的块是匿名块（即名称前带*的块，只能用程序构建），就不是那么简单的了。这是，你就需要程序（或者说插件）来还原。vlx程序就是一个插件。也就是我上面说的编程实现。若不会编程，也没有插件，下面的方法四（方法三也可以实现）。 2.炸开方法如下： 方法一： 点击这个多重引用，看它的名字，然后再用minsert命令，插入这个名字，只不过都按默认的行数（1行）列数一直回车。这样插入的这个块就可以炸开了。 方法二： 双击这个块，出现参照编辑对话框，点确定，出现参照编辑工具条；用explode炸开；然后点击参照编辑工具条从工作集删除对象，选中所有图形，回车；再点击参照编辑工具条上的放弃对参照的修改。此时再用explode就可以炸开了。 方法三: 1、打开原文件后，输出为*.wmf文件， 2、新建空*.DWG文件，插入*.wmf文件， 3、输入另外一个炸开命令：xplode回车 4、选图层（TA），大功告成。可惜的是文字都炸开了，填充也炸了，图层只有一个，而且文件比较大。附件为wmf文件 方法四：1、在任何版本中打开图件（只要能打的开就行） 2、选中图，打开属性对话框，将行和列均改为1。 3、另存为R14以下（包括R14）版本格式。 4、打开R14，打开刚才另存的图，保存。（记住，这步尤其重要，必须是R14不能是cad2002及以上版本） 好了，你再用任何版本的cad打开看看。 另外一种方法就是编程，直接炸开即可。