mapbasic程序有详细的解释.doc

《mapbasic程序有详细的解释.doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、河道比降计算程序mapinfo==================================================================='项目：河道比降计算'作者：崔军明'版本：2.2'日期：2009-12-23''使用说明：'  1、新建图层，绘制主河道（也可以复制水系，然后整理出主河道）。'  2、确定高程的单位（米/分米）。如果与主河道相交的等高线的高程单位不统一，则将其修改一致。'  3、运行此程序，打开需要的表，设置计算选项，计算河道比降。'  4、如果遇到错误，根据提示将河道上的节点吸附在等高线上，并保存河

2、道表(Stream)。'    关闭全部表（不必保存），重新运行程序。'  5、程序运行结束后，保存计算结果，然后浏览比降计算表(Gradient)。'    (1)复查高程列(Elev)的单位是否统一，确认设置计算选项时所作的选择是正确的。'  6、注意，计算某个流域的河道比降时，只需打开对应部分的等高线图层。如果等高线图层太大，会大大影响计算速度。'==================================================================='------------------------------

3、---------------------------------------------------'MapBasic的调试方法：'(1)在出错或需要的地方，使用Note（或Print）语句将变量的值显示出来。'(2)在MapInfo中，打开MapBasic窗口，回车就会执行当前语句。''MapBasic中SQL的特性：'(1)Delete语句，执行的是无条件删除，即删除表中的全部记录。它不像SQLServer的SQL语句，可以加Where限制从句。'    它的WhereRowid=?子句用处不大！'(2)Update语句，执行的也是无条件更

4、新，默认情况下，它会更新全部记录。但是，Update语句可以通过视图更新，这就'    等价于使用了Where子句。如：Select*FromTableWherecolumn=?,UpdateSelectionSetColumn=Value，'    参考MapBasic帮助。'---------------------------------------------------------------------------------Include"MAPBASIC.DEF"DeclareSubMainDeclareSubOpenTableD

5、eclareSubInitDeclareSubSetupCalcOptionDeclareSubWriteElev2GradientDeclareSubAddCrossingOnStreamDeclareSubGetReachLenDeclareSubWriteLen2GradientDeclareFunctionIsDownStreamAsLogicalDeclareFunctionLocateCrossing(LAsObject,LiAsObject,ByValCAsInteger)AsIntegerDeclareFunctionCalcGr

6、adientAsFloatDeclareSubSaveGradient(ByValJAsFloat)GlobalEVAsInteger   '等高线的高程，用来查询当前正在处理的等高线，便于找到没有吸附的等高线GlobalELEV_UNITSAsInteger'高程单位选项值'----------------------------------------'计算河道比降'----------------------------------------SubMainDimJAsFloat   '河道比降CallOpenTable   '打开相关表C

7、allInit     '初始化CallSetupCalcOption  '设置计算选项CallWriteElev2Gradient'查询和河道相交的等高线并将其写入比降计算表CallAddCrossingOnStream'在河道上添加交点节点CallGetReachLen   '获取河段长度，并将其存入河段长度临时表CallWriteLen2Gradient  '将河段长度导入比降计算表中J=CalcGradient()   '计算河道比降CallSaveGradient(J)  '保存计算结果EndSub'------------------

8、----------------------'打开河道、等高线和比降计算表'------------------------------