《CAD分解多重引用块分解》由会员分享,可在线阅读,更多相关《CAD分解多重引用块分解(2页珍藏版)》请在金锄头文库上搜索。
1把以下内容用记事本保存为lsp文件(如exm.lsp)2用cad打开图3输入命令“appload”,加载exm4输入命令“exm”既可把多重插入块转换为普通块5然后既可用explode分解。;转换多重插入块为普通块。(DEFUNC:exm()(setvarcmdecho”0)(SETQSTM(car(ENTSELn点取多重块)(whilestm(setqe(entgetstm)(setqstlx(cdr(assoc0e)(if(=stlxINSERT)(PROGN(setqr_zm70(assoc70e)(setqc_zm71(assoc71e)(setqrdistzm44(assoc44e)(setqcdistzm45(assoc45e)(setqe(subst(cons440)r_dist_zm44e)(setqe(subst(cons450)cdistzm45e)(setqe(subst(cons700)r_zm70e)(setqe(subst(cons710)c_zm71e)(setqe(subst(list100AcDbBlockReferenee)(list100AcDbMInsertBlock)e)(entmakee)(entdelstm)(SETQSTM(car(ENTSELn(setvarcmdecho1)