《cad分解多重引用块分解》由会员分享,可在线阅读,更多相关《cad分解多重引用块分解(2页珍藏版)》请在金锄头文库上搜索。
1、1把以下内容用记事本保存为lsp文件(如exm.lsp)2用cad打开图3输入命令“appload”,加载exm4输入命令“exm”既可把“多重插入块”转换为“普通块”5然后既可用“explode”分解。;转换“多重插入块”为“普通块”。(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_zm7
2、1 (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 100AcDbBlockReference) (list 100AcDbMInsertBlock) e)(entmake e)(entdel stm)(SETQ STM (car (ENTSEL n点取下一多重块)(setvar cmdecho 1)