-b-使用“exm.lsp”解密或加密为“多重插入块”--b-

45e))(setqe(subst(cons440)r_dist_zm44e))(setqe(subst(cons450)c_dist_zm45e))(setqe(subst(cons700)r_zm70e))(setqe(subst(cons710)c_zm71e))(setqe(subst(list100AcDbBlockReference)(list100AcDbMInsertBlock)e))(entmakee)(entdelstm)))(SETQSTM(car(ENTSEL\n点 取下一多重块))))(setvarcmdecho1));;--------------------------------------------------------------------;;转换普通块为多重插入块(DEFUNC:lockb()(setvarcmdecho0)(SETQSTM(car(ENTSEL\n点取块)))(whilestm(setqe(entgetstm))(setqstlx(cdr(assoc0e)))(if(=stlxINSERT)(PROGN(setqr_zm70(assoc70e))(setqc_zm71(assoc71e))(setqe(subst(cons701)r_zm70e))(setqe(subst(cons711)c_zm71e))(setqe(subst(list100AcDbMInsertBlock)(list100AcDbBlockReference)e))(entmakee)(entdelstm)))(SETQSTM(car(ENTSEL\n点取下一块))))(setvarcmdecho1));;--------------------------------------------------------------------