如果不懂把图纸发给我:1025344364@qqcom
;;-------------------------------------------------------------
;;转换“多重插入块”为“普通块”。
(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)应该是一个群组不是块,你在命令行中输入G回车会出现一个对象编组对话框
1,看编组名复选框下是不是有组名如果有那就选中它
2,选择中后修改编组复选择框的灰色字就可以使用了直接按分解,此组就被分开了同时组名也会消失
3,在看一看图是不是被分解了方法一:下载一个“贱人CAD工具箱”,里面有解密功能,慢慢练熟软件的使用;
方法二:
试一试加载程序的方法吧。我这里有个可以一试(;将下面的代码复制在记事本内,另存为unlklsp文件,打开这张不能修改的图纸,
命令appload选择加载程序文件unlklsp,命令行键入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.从图中可以看出,所有的一切都是一个完整的身体,一个完整的块。
2.在命令框中输入X空格,如,拆分,分成许多小块。
3.用M从其源删除一个块。
4.搬出去作为,这也是一个完整的小块,在X次分解。
5看,所有的线都分开了,只有填充空白的线或一个整体,如果你还想在分割,第三个X分解,一般填充空白的线是一个用。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)