关于多重插入块--怎么分解

zhouyi3344 · 发表于 2010-4-27 13:23:14

我们不再是孤独的探索者；让我们的手紧紧相连，一起成长。

您需要登录才可以下载或查看，没有账号？注册会员

×

1、先在图层管理器里将锁定图层打开
2、选中该“多重插入块”，在其属性里将行、列均改为“1"
3、将下段保存为"exm.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) )
4、在打开了含有多重插入块的图形文件里加载“exm.lsp”，运行“exm”根据提示选中多重插入块
5、运行“explode”就可以将多重插入块分解，修改了。
注：该程序引用自网易暖通huawencai大侠版权归其所有。

331851677 · 发表于 2010-5-4 10:56:36

支持楼住~谢谢分享！！！！

1986shi1986 · 发表于 2011-1-26 15:23:29

很有用，很强大，我试过了，这个方法可行:victory:

duobao · 发表于 2011-8-12 20:57:34

怎么搞完后用explode一炸图形就不见了，请楼主指教指教啊，多谢！

账号		自动登录	找回密码
密码			注册会员

[资料手册] 关于多重插入块--怎么分解

我们不再是孤独的探索者；让我们的手紧紧相连，一起成长。

相关帖子