MapBasic编程2.docVIP

地图学与地理信息系统专业0级研究生讲义 MapBasic编程001 定义变量 Dim 变量名或数组名称列表 As 数据类型 [,As 数据类型…] 数据类型：Integer, Float, String, Logical, Date, Object, Brush, Fond… Dim 定义局部变量, Global 定义全局变量，MapBasic所有变量和数组必须先定义后使用 002 引用库文件 Include d:\...\ mapbasic\mapbasic.def ——包含标准定义文件 Include d:\...\ mapbasic\menu.def ——包含菜单文件 Include d:\...\ mapbasic\icons.def ——包含图标文件 003 表操作 Open Table “表名.tab” ——打开MapInfo表 Register Table “VFP表名.dbf ” Type dbf ——导入VFP表（地图化） Into “MapInfo表名.tab” ——指定图层 Export MapInfo表名.tab ——导出MapInfo表 Into “VFP表名.dbf ” Type “dbf” ——指定VFP表 Update表名.tab ——更新MapInfo属性表 Set 字段名=（字段）表达式 ——更新列 004 访问指定的字段 Fetch [First / Next / Prev / Rec n ] From 表名 变量名=表名.字段名 005 字段值更新 Set 字段名=（字段）表达式 006 修改表结构（表sde已有4个字段：a1,b,e,e1，欲a1改名,增加c,d字段,e改宽度，删除e1） Alter Table sde /(Rename a1 a / Add c Chr(6) / d Decimal(8,2) / Modify e Deimal(9,2) /Drop e1/Order a,b,c,d,e） 006 保存表 commit table 第2次修改表结构之前，需要对第一次的修改存盘 007 结构控制语句 1、分支： If 条件式 Then / 语句组 / Else / 语句组 / End If If 条件式 Then / 语句组 / Else If 条件式 Then / 语句组 /…/ Else / 语句组 / End If Do Case 变量 / Case / 变量值列 / 语句组 /…/ Case Else / 语句组 / End Case 2、循环：For x=x1 to x2 / 语句组 / Next (固定次数) Do While 条件式 / 语句组 / Loop （条件循环） 008 结束程序 End Program——终止应用程序，不关闭打开的表。End MapInfo——终止应用程序，退出MapInfo。 009 运行外部可执行程序 Run Program “可执行程序名 程序参数” 010 定义坐标系统和视区范围（实体绘制或读取坐标必需） Set CoordSys nonearth ——平面坐标 units 坐标单位 ——m,km,degree… bounds (x1,y1) (x2,y2) ——左下角和右上角坐标 011 菜单制作 012 几个程序例子 ‘程序1——计算属性表中字段表达式的值，并把结果并存入该表的指定字段（环境综合评价） include c:\mapinfo\mapbasic\mapbasic.def Open Table C:\mapinfo\专题图层名 Update 专题图层名 Set 字段名=w1*字段1+w2*字段2+…… ‘程序2——转换MapInfo的*.dat文件为VFP的*.dbf文件（属性数据转出处理） Open Table c:\MA