基于COM的MAPGIS二次开发.docVIP

基于COM的MAPGIS二次开发 1 建立MAPGIS工作区对象 MAPGIS工作区对象是MAPGIS组件中最基本的几个组件对象之一。从工作区入手，通过创建和使用这些对象便于熟悉和掌握关于MAPGIS工作区对象的大部分属性和方法的使用，从而了解MAPGIS组件对象之间存在的结构关系。 首先需要创建MAPGIS工作区对象。常用的方法是使用Dim语句来声明特定的对象变量，这个方法要求MAPGIS类型库已经被包括在Visual Basic项目中。 例如，使用New关键字创建新的MAPGIS点工作区对象的语句是： Dim PntAi As New PntArea //定义一个点工作区对象PntAi并实例化。 例如，使用CreateObject函数声明和创建一个新的MAPGIS对象： Dim PntAi As PntArea Set PntAi = CreateObject(MapGisBasCom1. PntArea ) 下面以点工作区对象PntArea为例，介绍MAPGIS工作区对象的基本属性和方法。 （1） 点工作区对象的加载 PntAi.Load //自由加载(弹出对话框选择需要加载的文件)，忽略所有的参数。 PntAi.Load(China.wt) //加载China.wt文件到工作区，双引号中的文件名应该带绝对路径。 PntAi.Load(China.wt, MYTESTDB, sa, ) //加载网络数据文件，其中MYTESTDB为数据源，sa为数据库用户，最后一个参数应为对应的用户密码。 PntAi.AppendFile //此处弹出文件对话框，选择要添加的文件到当前工作区。 PntAi.AppendFile(China.wt, MYTESTDB, sa, ) //添加网络数据文件China.wt到当前工作区。 （2） 点工作区对象的存取 PntAi.Save //将当前操作的文件保存，不改变原来文件的文件名。 PntAi.SaveAs //另存文件（忽略返回值），可以保存为本地文件，也可以是网络数据文件 PntAi.Save(China.wt, MYTESTDB, sa, ) //保存文件到网络数据库中（忽略返回值） PntAi.SavePart(PntPad, PntInfo, LayOnOff) //保存部分点到原文件，其中三个参数都是MAPGIS组件对象，均需定义并实例化，PntPad为点信息开关板对象Pnt_Pad，PntInfo是点信息对象Pnt_Info，LayOnOff是图层开关对象LayerOnOffPad。 PntAi.Get(lRes, xy, szStr, PntInfo) //取实体号为lRes的点实体的详细信息，参数xy为一个二维点对象D_Dot，szStr为描述点信息的字符串，后三个参数均为出口参数，只需要定义，不能实例化。 PntAi.GetExistFlag(lRes) //取实体是否存在的标志，返回值表示实体号为lRes的点实体是否存在，1/0/-1=存在/不存在/被删除。 PntAi.GetPos3D(lRes, xyz) //取实体号为lRes的三维点实体的坐标值，并将值设置到定义的对象xyz中。 PntAi.GetRect(lRes, rect) //取实体号为lRes的图元的矩形范围，并将值设置到定义的矩形对象rect中，该函数返回值:1/0/-1=存在/不存在/被删除。 PntAi.GetLayer(lRes, laynum) //取实体号为lRes的点实体所属图层号，并将值设置到整型变量laynum中，该函数返回值:1/0/-1=存在/不存在/被删除。 PntAi.GetRectLayer(lRes, rect, laynum) //取实体号为lRes的点实体的矩形范围及其图层号，返回值:1/0/-1=存在/不存在/被删除。 PntAi.GetDatLen(lRes) //取实体号为lRes的点实体的数据长度(字节长度)。 PntAi.GetInfo(lRes, PntInfo) //取实体号为lRes的图元信息，该函数返回值:1/0/-1=存在/不存在/被删除 PntAi.GetType(lRes, pntType) //取实体号为lRes的点实体的类型。 PntAi.GetAreaAlias(fName) //取工作区文件别名，并将别名设置到字符串变量fName中。 PntAi.SetAreaAlias(点工作区文件) //设工作区文件别名，即将别名作为参数直接写到引号中。 PntAi.GetAreaFClass //取工作区文件分类码。 PntAi.SetAreaFClass(1) //设工作区文件分类码,设为0类型。