MapBaic编程2.docVIP

地图学与地理信息系统专业08级研究生讲义 MapBasic编程(1) 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‘1--产生子菜单 Create Menu 环境 As 监测I Calling prg1, ‘1--产生子菜单 Create Menu 环境 As 监测I Calling prg1, 评价A Calling prg2, 预测P Calling prg3, 查询S Calling prg4 Alter Menu Bar Add 环境 ‘3--移去菜单项 Alter Menu 环境 Remove