2024年4月19日发(作者：)
MAPGIS二次开发基础知识
一、手动注册组件与注销组件
COM以及客户应用程序所需的、用来定位组件及对组件进行实例化的信息存储在
Windows的注册表（Registry）里。因此，在使用组件之前要对组件进行注册，
只有成功注册才能引用该组件，其具体步骤为：
1．将包容组件的DLL文件放入MAPGISPROGRAM目录下，假设物理路径为：
D:
2．运行注册表程序注册组件Windows开始菜单-〉运行：
regsvr32D:注册成功与否将有对话框弹出。
3．注销该组件方法为：
regsvr32/uD:
二、VisualBasic中嵌入对象类型库
为了使VisualBasic能够访问MAPGIS对象定义,应该在VisuaiBasic项目或模块中嵌入
MAPGIS对象类型库。如果想把一个VisualBasic对象声明为MAPGIS对象类型,要求嵌入
MAPGIS对象类型库,如果想把一个VisualBasic对象声明为一般Object类型,就不必嵌
入MAPGIS对象。
为了在项目中嵌入MAPGIS对象类型库,通常执行这些步骤:
从Project(工程)菜单,选择References,References对话框出现,选中复选框嵌入
MapGisBasCom1TypeLibrary文件。这要求VisualBasic环境或代码模块编辑器是活动
的,正在运行。
三、使用MAPGIS对象
可以使用VisualBasic编写使用MAPGIS对象的程序。在VisualBasic程序中使用MAPGIS
对
象所要求的步骤是:
1．嵌入MAPGIS对象类型库。
2．建立一个MAPGIS对象。
3．使用MAPGIS对象和包含的其他对象。
4．释放MAPGIS对象。
使用一个句点(.)把对象变量与该对象的属性、方法和集合分开。
四、使用C++和COM函数
可以使用C++和COM函数编写使用MAPGIS对象的程序。在C++程序中使用
MAPGIS对象所要求的步骤是:
1.嵌入MAPGIS对象和COM头文件,并链接到COM库。
2.初始化C0M库。
3.建立一个MAPGIS对象。
4.使用MAPGIS对象和包含的其他对象。
5.释放MAPGIS对象。
6.解除C0M库的初始化。
使用成员选择运算符(->)把“对象指针”变量与属性、方法和集合函数分开。
嵌入MAPGIS对象
对MAPGIS对象编程的第一步是在项目中嵌入合适的类型库或头文件。
完整的MAPGIS对象类型库包含在MapGisBasCom1.h文件中，这个文件的默认路径:
D:mapgis65includeMapGisBasCom1.h
类型库含有关于所有MAPGIS对象、属性和方法的信息。
五、COM的调用
MAPGIS对象包括ANSI和Unicode这两个定制接口。使用ANSI接口时,所有MAPGIS对象字
符
串都是每个字符一个字节的ANSI字符串。使用Unicode接口时,所有MAPGIS对象字符串都
是每个字符两个字节的Unicode字符串。所有MAPGIS对象字符串都使用====BSTR字符串数
据类型。
默认情况下使用ANSI定制接口和ANSI====BSTR字符串。如果想使用Unicode定制接口和
Unicode=====BSTR字符串,在嵌入所有头文件之前必须定义UNICODE和_UNICODE。
例如:
#defineUNICODE
#define_UNICODE
在字符串值两端使用TEXT(“str”)宏。默认情况下,这些是ANSI“Str”字符串。在定
义了UNICODE和_UNICODE时,这些是UnicodeL“Str”字符串。在32位0LE中,所有BSTR
字
符串是Unicode字符串。为了使C++程序能够访问MAPGIS对象定义,除了嵌入Windows和
0LE头文件之外,还必须嵌人MAPGIS==.H和MAPGIS==.H头文件。默认情况下,MAPGIS头文
件位于======＼INCLUDE目录中。
VisualC++项目的Include设置或INCLUDE环境变量应指向含有这些文件的目录。
必须嵌入以下头文件:
BasCom1_i.c
BasCom1.h
例如：
#include"MapGisBasCom1_i.c"
#include"MapGisBasCom1.h"
VisualC++项目的Library设置或LIB环境变量应指向含有这些文件的目录。
在程序能使用MAPGIS对象之前,必须初始化C0M库。
VisualBasic
MAPGIS程序不必初始化COM,VisualBasic自动初始化C0M库。
C++
所有MAPGISCOM函数都返回一个HRESULT值,这个值含有关于MAPGISCOM函数的成
功或失败
的信息。可以声明单个HRESULT变量并重复利用它。例如:
HRESULThr;
在调用任何MAPGIS或COM函数之前,MAPGIS程序必须使用COMCoInitialize函数初始
化COM
库。例如:
hr=CoInitialize(Null);
必须把NULL传递给CoInitialize。
七、建立MAPGIS对象
MAPGIS组件的核心是MAPGIS对象。
VisualBasic
在VisualBasic中有2个方法用于建立MAPGIS对象,这2个方法都涉及使用Dim语句声明
特定类型的对象变量。
特定的MAPGIS对象类型
常用的方法(如果使用的VisualBasic版本支持它)是使用Dim语句声明特定MAPGIS对象
对象类型的对象变量,这个方法要求MAPGIS类型库包括在VisualBasic项目中。为了实际
建立一个MAPGIS对象的新实例.可以在Dim语句中使用New关键字(如果使用VisualBasic
版
本支持它的话)或者使用CreateObject函数。
例如,使用New关键字创建新的MAPGIS对象的语句是:
DimldotAsNewL_DOT
例如，使用CreateObject函数声明和创建一个新的MapGis对象:
DimldotAsL_DOT
Setldot=CreateObject("MapGisBasCom1.L_DOT")
有些版本的VisualBasic使用虚函数表绑定(vtable-binding),或早期绑定。直接使用
MAPGIS定制接口(不通过COMIDispatch接口),产生最好的性能。
有些版本的VisualBasic使用推迟绑定的形式,叫做分派ID绑定(dispID,binding),它使
用COMIDispatch。IDispatch::Invoke函数与在MAPGIS类型库中包括的dispID一起使
用。这种方法使应用的性能没有使用New关键字那样快.但比使用Object类型快。
八、在C++中建立MAPGIS对象
在C++中只有一种方法建立MAPGIS对象,声明合适的MAPGIS“对象指针"类型的对象变量,
然
后使用COMCoCreateInstance函数建立MAPGIS对象的新实例。把以下参数传递给
CoCreateInstance:
对象的类ID
_INPROC_SERVER
对象的接口ID
“对象指针”变量的地址（使用&运算符的地址）。
例如，要建立一个新的ID_DotMAPGIS对象：
IPntArea*ptPAi;
hr=CoCreateInstance(CLSID_PntArea,
NULL,
CLSCTX_INPROC_SERVER,
IID_IPntArea,
(void**)&ptPAi);
注意:一个多线程程序,必须串行化对MAPGIS对象的所有访问,以避免重入.
九、函数库名称
函数库名称
工作区基础函数
矩形图框函数
投影类库
c,c++说明文件
Win_area.h
frmdll32.h
projdll.h
控制点操作w32_cpnt.h
状态栏显示点转换以及工作区投影函数cordcvt.h
图形显示输出Map_out.h
win_out.h
工程对象操作函数以及拼版文件操作函数Map_prj.h
编辑工程文件Prj_Disp.h
图例和工程文件操作函数
图像显示函数
图像编辑函数
输入编辑子系统类库
拓扑操作函数
图元以及剪贴板操作函数
UNDO处理数据及成员函数
窗口操作函数
GisView对象函数
空间分析函数
各种头文件
Project.h
Mapdisp.h
Mapedit.h
CGisEdit.h
CPrjEdit.h
Gistopo.h
clippaste.h
gistool.h
CGisView.h
Win_oper.h
Spc_anly.h
MapGis.h
十、怎样用vb对mapgis进行二次开发，不知道怎样将二者联系起来
Vb开发三种方式：
MAPGISAPI开发库
通过调用应用程序接口直接编程
MAPGIS可视控件（ocx）
MAPGIS组件开发（com）
通过控件和组件编程
如何创建MAPGIS对象
DimworkaiAsNEWPntArea
DimworkaiAsPntArea
Setworkai=CreateObject(“a”)
三种方式可以互为补充。
前MAPGIS二次开发库主要以API函数、MFC类库、ActiveX控件三种方式提供。开发库
被封装于若干动态链接库（DLL）中。
API函数在使用方法上与Windows的API函数完全一样，因此是独立于开发工具的。无
论您使用VC++、VB还是Dephi…，您在这些工具中如何调用Windows的API函数，您就
怎么调用这些二次开发函数。
MAPGIS类库是为基于MFC（MicrosoftFoundationClass）的开发者提供的多个可重用
基类，将应用程序所需的常见基本功能作了封装，使用便利，改动灵活。开发者只需从类库
派生即可使自己的程序获得从窗口显示控制到图形查询编辑的各项功能。
MAPGIS二次开发常见问题及解答(转载）
MAPGIS二次开发常见问题及解答(转载）
1、问：如何用Delphi生成MAPGIS明码文件？
答：先利用手册看懂明码格式文件的格式，知道数据的组织方式，利用delphi的文件函数创建一个文本型
文件，吧数据库中的数
据按照格式输出就是了。
2、问：ATT_STRU和CATT_STRU的区别和联系？
答：ATT_STRU是以前老版本的东东,换成CATT_STRU试试.CATT_STRU中包含了属性结构的详细信
息,具体用法可参见二次开发帮助
文档中第三章数据结构中关于属性字段描述结构,属性字段描述头和属性信息头的介绍,里面有该结构的详
细内容。
3、问：请教关于“不能打开子图库...”的问题，急！
答：系统库路径不对，将、、三个文件拷贝到执行目录即可。这几
个语言件放在
MAPGISPROGRAM目录中。或是运行可设置，该运行文件也同样在
MAPGISPROGRAM目录中。
4、问：如果只知道工作区ai能不能依次得到工作区中的图元号，该如何得到啊！
答：
longi,pntn;
shortlen;
pnt_infoinf;
d_dotxy;
char*dat;
{
_GetPntNum(ai,&i,&pntn);//取点数
for(i=1;i《pntn;i++)
{
if(_getpnt(ai,i,&xy,&dat,&len,&inf)<=0)//取点，返回值1/0/-1成功/失败/删除
continue;
…对该图元进行操作
}
}
i就是图元号
5、问：MapGis6.5的SDK函数NearPnt，到底应该如何用啊！跟以前的不同了，给个例子吧！
答：
longWINAPI_NearPnt(shortai,D_DOT*xy,unsignedchar*layerOnOffPad,shortpadLen,d
ouble*dis);
ai点工作区号
*xy点位置号---比如鼠标的位置
layeronoffpad图层开关标志，如不为空就只在打开状态的图层中查找
padLen是layerOnOffPad的长度
出口dis返回距离
返回值成功返回点号，失败为0
6、问：如何屏蔽掉CPrjEditView中的右键功能！！！
答：
editview有一个PopMenuControl属性，同理CPrjEditView也可以直接使用这个属性。
uControl=-1'///不显示菜单
=0'///全部显示
=1'///显示窗口菜单
=2'///显示窗口+编辑菜单
=3'///1+2+工具箱
7、问：如何将一个圆添加到一个工作区Ai中？
答：
先用_AppendLin函数在工作区画园（或画弧）的时候需要自己生成坐标点，比如说D_DOT*dat，
这里dat的空间需自己申请，其长度为longlen，线的参数是LIN_INFOinf，需要赋值，shortai为区
工作区号，longi为弧
段号。然后调用：
i=_AppendLin(ai,dat,len,&inf);
输入弧段。然后添加区域
入口:ai-区工作区号
longrdat[2]-区域数据块
rdat[0]=1(弧段个数),rdat[1]=i
rinf-区域图形信息，需要赋值
(i为弧段号)
然后调用：
_AppendReg(ai,rdat,2,&rinf);
8、问：急关于_ShortFlash(ENTITY_MSG*pt,longnum)函数！
答：
sypedefstruct
{shortai工作区号
shorttype图元类型
longelmi图元号
}ENTITY_MSG
定义一个ENTITY_MSG数组你把所要闪烁的图元一个一个加进去就行了。
9、问：实现查询多边形中图元的，并时期闪烁显示，应如何实现呢？
答：用_RectAskToList系列函数，然后可通过CGisView的闪烁机制完成。
10、问：
CloseToolBox();//关闭工具箱
OpenToolBox();//打开工具箱
我的程序只要进行了上面关闭和打开工具箱的操作后，在最后关闭时总是报错
不管是用上面的函数还是用右键提供的工具箱控制，到最后都会出现一个
DebugAssertionFailed！
的错误，谁能解释一下呢？答：
1、升级你的VC++（比如SP2、SP4）
2、出现这种问题不用管，在编绎成Releas版后，这个问题不会再出现。
11、问：我在本机器开发环境上运行开发的软件没什么问题。但在其他机器上，运行时出现找不到
动态链接库文件。请帮忙！
答：你编的东西编译成DEBUG版，运行时需要(这可不是MAPGIS的动态库，是VC的)，如
果你在编译时生成RELEASE版，到
别的机子上运行，就不用找了。
12、问：有没有获得工程文件名的函数，有没有通过工程文件，来获得工程中的个文件的路径的函数！！！
答：这个容易，兄弟用VC吧。打开有关PRJ的头文件（*.h，具体是哪个我记不清了，自已找找），看
里面的函数声明，这比看帮
助或是开发指南要好用得多，而且看到的东西比什么指南都强。里面的函数英文名称确切，当然，如果你
的英文不行，先去补习一下吧。
13、问：颜色不准，急!急!急!!!我公司新买的HPDJ800PS的喷墨打印机，mapgis的颜色库用的是地
矿部的标准色库，可每次执行光栅化输出以后，出图颜色与色标差太多，光栅化参数按推荐100、75、61、
100设的。
答：又是该死的地矿部标准，那玩意是用6色印刷的，普通喷墨仪如果只有四色，怎么着都打不出一模一
样的。
真要打出跟那标准一模一样，也简单，输出到EPS，花几千块，去印刷厂印一张回来。
14、问：请教各位大侠，logcount和count的区别？含义分别是什么？
答：
逻辑数：工作区中没有被删除的实体或者记录的个数。
物理数：工作区中所有的实体或者记录的个数，包括那些从被删除了的实体或者记录。
有如下等式：
物理数＝逻辑数＋被删除的个数＋1
15、问：
请问有没有这样的函数？
可以求出两个区之间的公共弧段呢。
有的话，请告诉我关于这个函数的详细情况。谢谢！
答：
先取出第一个区的所有弧段，对每一条弧段取拓扑，看看拓扑的左区或者右区中有没有一个等于第二个区
的区号。如果有，那么这条弧段就是这两个区的公共弧段。
16、问：如何对表文件（.wb）进行读某条记录的某个字段！！！请问各位大虾：如何取得表文件的记录
数，如何判断该记录是被删除，如何取某记录的某个字段值。谢谢！！
答：下载区二次开发示例第5章有详细说明。
17、问：请问在delphi里怎么调用mapgis的api函数
答：和调windows的api一样调用。
如：
function_FindNearColor(r,g,b:Integer):Integer;stdcall;External''
1Click(Sender:TObject);
var
aa:Integer;
S:string[11];
begin
aa:=_FindNearColor(255,255,255);
Str(aa,S);
ShowMessage(S);
end;
18、问：在对话框中实现区填充颜色、图案预览和选择
答：自己重绘ListCtrl。在DrawItem函数中绘制每一个Item的图形（用MyDC）。
19、问：请教各位大虾，如何用vb编程实现mapgis中属性文件转换为dbf、mdb等文件？
答：目前VB中还没有提供导出属性数据的二次开发的方法。
你可以用ADO或者其他的工具将mapgis的属性数据读出来再形成各自的记录集，最后专程dbf、mdb
20、问：请教有关cmyk和mapgis颜色阶的问题
答：目前组件中还没有相应的方法。API中提供_FindNearCMYKColor、_FindNearColor等函数完成
颜色的转换。
21、问：那位朋友有MAPGIS明码文件格式说明能不能给我发一份，急需，我实在是找不到。。谢谢。
答：详见mapgis地理信息系统使用手册数字制图篇
22、问：
1）如何能得到一条线的起始结点和终止结点（图元号）？
2）知道一个node的x,y坐标，如何能得到这个node的图元号？
答：
取该线的拓扑信息。LIN_TOP
该拓扑信息中第一个和第二个元素就是其实结点和中止结点的图元号
查找最近结点
long_NearNod(shortai,D_DOT*xy,double*rtnDis)
参数入口ai-结点工作区号
-结点位置，xy为图形实际坐标*xy
出口*rtndis-返回距离
返回值成功返回结点号(>0)，失败返回0
23、问：在VC++中，如何从一装入工程文件中，读出工程文件中每个文件的名称和类型？谢谢，大虾。
答：
7、取工程中某个文件的类型
short_PRJGetItemType(MAPPROJECTprj,intindex)
参数：入口prj－工程句柄
index
出口无
返回值：index指定文件的文件类型(LIN/PNT/REG/MSIIMG)
9、取项目的文件名(带全路径)
LPCTSTR_PRJGetItemName(MAPPROJECTprj,intindex)
参数：入口prj－工程句柄
index
出口无
返回值：index指定文件的名称的字符串
10、取项目的文件名(不带全路径)
short_PRJGetItemName1(MAPPROJECTprj,intindex,char*name)
参数：入口prj－工程句柄
index
出口*name－
－文件位置
－文件位置
－文件位置
返回文件的名称
返回值：成功返回1，失败返回0
24、问：如果调用CGisEditView的编辑与修改什么的函数，那么视图窗口总是处于交互状态，请问如何
取消？
答：先调用SetExtTool（NULL）；
再调用SetOperateState（0）；
25、问：我用VB来调试一些帮助中列举的例子，在加载工程的时候用bPRJLoadProject()，系统给出错
误：baddllcallingconvention.我不知道什么原因？
答：你在mapgis目录下的basic中找到map_，对bPRJLoadProject的声明如下。
DeclareFunctionbPRJLoadProjectLib""Alias"#1"(OptionalByValaInstAsIn
teger=0)AsLong
你自己改为：
DeclareFunctionbPRJLoadProjectLib""Alias"#1"(OptionalByValaInstAsIn
teger=0,OptionalByValfastOpenAsInteger=0)AsLong
26、问：请问用delphi调用mapgis的dll一定要用vc的dll对吗
答：不用重装VC。只需要到别的地方去找一个MFC42D。DLL文件复制到SYSTEM目录即可。
27、问：我想取消EditView的右键功能，而自己用Command1（在vb中）来实现，该怎么样做？(比
如实现放大、缩小、平移、更新、复位等）
答：EditView空间提供zoomin()放大，zoomout()缩小等对窗口操作的方法。具体可参考对象浏览器
中对各方法的注释。
28、问：我在求距离和面积的时候想先画出线然后得到距离或面积，就跟在MAGPGIS图库管理子系统中
距离测量和面积测量功能一样，又该怎么样来实现？
答：画线可以采用异或线的方法，鼠标点击的每个点都转换成逻辑坐标，放入D_DotSet,再用
CalculateLength，CalculateOneArea求长度和面积。
29、问：急！！关于_InputFileName()函数
我的代码是这样的：
char*strOutPath;
char*fileter;
strOutPath=NULL;
fileter="wt";
_InputFileName(strOutPath,NULL,NULL,"PNT",'1',fileter,NULL);
我调试的时候，一到最后一行就报错。
错误信息如下：
():0xC0000005:AccessViolation
请指教，谢谢！
答：
charszName[128];
chardsn[32];
charowner[32];
charftype;
charopenflag=0;//0打开文件；1保存文件
charfilter[]=_T("线文件(*.wl)0*.wl0点文件(*.wt)0*.wt00");
charttlStr[]=_T("打开文件");
charlog[32];
charpsw[32];
memset(szName,0,sizeof(szName));
memset(dsn,0,sizeof(dsn));
memset(log,0,sizeof(log));
memset(psw,0,sizeof(psw));
memset(owner,0,sizeof(owner));
_InputFileName(szName,dsn,owner,&ftype,openflag,filter,ttlStr);
if(dsn[0]!='0')
{
db_GetLogPsw(dsn,log,psw);
//m_hInst工作区示例句柄m_ai工作区号
m_ai=_OpenFileArea(m_hInst,szName,dsn,log,psw);
}
else
m_ai=_OpenFileArea(m_hInst,szName);
szNamedsnownerftype都是出口参数。
strOutPath你给的是NULL当然是错误的。
有可能是网络数据，dsnowner也为NULL，是相当危险的。
30、问：用delphi怎么新建一个工程？并且能不让新建的工程弹出那两个对话框吗？
答：直接CreateComObject（）asIMap，然后把这个Imap接口赋给editview即可。
31、问：关于maplayer，在delphi中maptree不能正确使用，请问我如何能知道工程里所有文件
的名称和状态？
答：对map的layer进行遍历，每个layer的workarea的name属性就是工程里该文件的名称。该layer
的visible表示是否可见的状态。用map的activelayer取、设激活的layer。
32、问：这样求两点距离和图型面积？（vb)用鼠标虚义一根线，求出线两端的距离？用鼠标画一个任意
闭合区，求闭合区的面积？
答：
不管你输入的是线，还是闭合区域，在Mapgis里都是用“点集”D_DotSet表示的。
将你鼠标输入的点转换成逻辑坐标存入D_DotSet。
调用CalculateLength(xyAsD_DotSet)AsDouble求线长度
调用CalculateOneArea(xyAsD_DotSet)AsDouble求该点集围成的区的面积
33、问：请问用delphi开发，如何将某一maplayer和工作区绑定？
我打开了一个工程文件，现在想对其中某一层进行操作，如何把这一层和工作区进行绑定？那个attach
怎么用？我的意思是已经用把文件打开了，然后怎么绑定？我用的是
varregarea:iregarea;
regarea:=createcomobject(class_regarea)asiregarea;
(regarea);
把regarea保存一下，发现还是空白一片
答：对工程中的某一层进行操作，只需要对该layer的workarea接口操作即可。
而你的代码是把该layer又和一个新的regarea（你只是实例化了，没有装载文件）绑定，此时已经丢掉
了原来的workarea。所以出现你描述的情况。
34、问：那个函數能够实现计算一条曲线与其它多条曲线的交点？
答：
在winarea.h文件中有计算单个线段交点的函数
shortWINAPI_CalCrossDot(D_DOT*la0,D_DOT*la1,D_DOT*lb0,D_DOT*lb1,D_DOT*x
y);
你可以先用当前线的rect通过RectAskLin找到相交的线，再逐个求交点。
35、问：我使用actxedit------gisedit控件进行的二次开发。
可是打包后安装，这个控件总也不能被注册。
具体怎么解决？
答：建议你将该控件所用到的dll也一起打包（用DEPENDS察看）
在你的打包程序中用regsvr32来注册。
36、问：我用ModEnvFile但是报错说不支持对象的属性或方法
请问为什么？
我用GetEnv得到了路径的文本，怎么修改呀？
str=
之后怎么办呢？
答：="新的路径"
37、问：如何在VB中实现对目录环境修改的功能
答：你指的是mapgis的环境目录吗？
如果是，你可以用mapgis对象下面的getenv、writeenvfile、setenv方法来取得、修改、设置mapgis
的环境目录。
38、问：老话重提：如何获得工程的地图参数
答：MAPGIS工程中也同样记载了一个“地图参数”的内容！
如果是按照标准方式建立的工程数据，那么工程中的地图参数和包含文件中的地图参数应该是一样的！所
以建议直接取工程文件
本身记载的地图参数，那么就不用考虑是否存在文件的区别了！具体函数是：
在project.h中调用Prj_Param即可！
39、问：如何在map对象中实现只对激活的maplayer进行编辑和操作？
答：selectpoint方法可以选中所有的打开的点文件中的点。而不仅仅是你激活的那个layer。在最新的
mapgis中对maplayer增加
了一个selected的标志。如果该标志设为1，则selectpoint会在这个layer上做操作。相反，则不会影
响这个layer。
40、问：在mapgis输入编辑里有个功能叫“根据属性赋参数”，请问二次开发里提供这个功能吗？如果有
怎么用，在哪里可以找到；如果没有怎么根据属性筛选符合条件的点。答：、“根据属性赋参数”实际上就
是找出那些满足你给定的属性条件的图元，然后给他们参数的某一项，或者某几项。用AttAsktoList即可，
具体可参考vb开发示例。（下载区）
41、问：用Graphics选中图元后，如何取得其属性值，请用VB示范一下，谢谢！
答：可以自己写一个交互操作，用鼠标双击、或者拉框来查询图元。
对于鼠标双击可以直接调用，对于拉框可用rectasktolist来查询。前者得到图元实体好，后者
得到实体号列表。然后用这些实体号即可取属性即可得到相应的属性。
42、问：有关IMS的浏览查询的问题
我想在IMS中实现浏览查询功能，能不能按照如下的思路做：
1选定某一个工作区；
2找出该工作区的所有图元
3显示该图元的信息
问题是：
怎么样找出一个工作区的所有图员
dimPrjItem
setPrjItem=Object("TEM.1")
Session("MapViewObject").mi,PrjItem
这样能得到i对应的工作区，下面该怎么得到此工作区的所有图元呢？
谢谢
答：
要得到图元，是用户进行查询的，而查询有多种查询方法，可以模糊、点击等等，如果用添加查询，就用
函数gisSearchByStr，点击就用gisSearchByHitting等等，lib库中有这样的函数，web开发实例中也
有这样的例子，您可以看看那里的例子，希望对您有所帮助
43、问：请问大侠，bE00out函数，能不能自定义导出的e00文件的路径？
答：直接在文件名前面加路径即可。
如：
DimhInstAsInteger
DimaiAsInteger
hInst=bInitWorkArea(&H0)
ai=bOpenArea(hInst,LIN)
CallbLoadFile(ai)
CallbE00out(ai,"d:aa.e00")
CallbFreeWorkArea(hInst)
44、问：请教在WEBGIS中，能否对*.WP,*.WL,*.WT文件进行操作，属性检索的功能和非WEGGIS
开发模式下的有什么区别，我想闪烁某个/些被检索到的图元能做到吗？
答：在webgis中能够对点线面文件进行操作，可以根据用途的不同，可以进行不同的操作。属性检索
和非webgis开发模式下没有什么不同。在webgis中可以进行闪烁某个点或一些点，但是我们一般不建
议这样作，因为这样速度可以跟不上，一般是通过改变颜色的方式来标志检索到的图元。
45、问：怎么写点的属性，我想用
答：先得到你要写属性的那条记录。（i,rcd）然后对rcd属性记录进行操作，
(1)......再即可。
46、问：如何在vb中使用“GisConv.h”中所声明的api函数？比如convertapi_e
答：
DeclareFunctionbGisAscInLib"w60_conv"Alias"#6"(ByValAHInstAsInteger,ByValmP
athAsString,outAiAsInteger)AsInteger
'明码文件转换二进制文件，返回成功和失败
DeclareFunctionbGisAscOutLib"w60_conv"Alias"#7"(ByValaiAsInteger,ByValFileNa
meAsString)AsInteger
'二进制文件转换明码文件，返回成功和失败
DeclareFunctionbE00InLib"w60_conv"Alias"#8"(ByValAHInstAsInteger,ByValmPath
AsString,ByRefOutApAsInteger,ByRefOutAlAsInteger,ByRefOutArAsInteger,ByRe
fOutLabAsInteger,OptionalByRefOutNaiAsInteger=0,OptionalByValOrderColorFlag
AsInteger=0,OptionalByValPntColorFldAsLong=0,OptionalByValLinColorFldAsLon
g=0,OptionalByValRegColorFldAsLong=0)AsInteger
DeclareFunctionbE00outLib"w60_conv"Alias"#9"(ByValaiAsInteger,ByValFileName
AsString)AsInteger
DeclareFunctionbDxfOutLib"w60_conv"Alias"#10"(ByValapAsInteger,ByValalAsInt
eger,ByValFileNameAsString)AsInteger
DeclareFunctionbArcInfInLib"w60_conv"Alias"#11"(ByValAHInstAsInteger,ByValm
PathAsString,ByRefOutApAsInteger,ByRefOutAlAsInteger,ByRefOutArAsInteger)
AsInteger
DeclareFunctionbArcInfOutLib"w60_conv"Alias"#12"(ByValaiAsInteger,ByValFileNa
meAsString)AsInteger
DeclareFunctionbArcInLib"w60_conv"Alias"#13"(ByValAHInstAsInteger,ByValmPat
hAsString,ByRefOutApAsInteger,ByRefOutAlAsInteger)AsInteger
DeclareFunctionbArcOutLib"w60_conv"Alias"#14"(ByValaiAsInteger,ByValFileName
AsString)AsInteger
'示例：
'DimahInstAsInteger
'DimbinAiAsInteger
'DimaiAsInteger
'DimmpathAsString
'DimfnameAsString
'Dimres
''ahInst=bInitWorkArea(0)
'mpath="d:"
'res=bGisAscIn(ahInst,mpath,binAi)
'MsgBoxres
'fname="d:"
'ai=bOpenLinArea(ahInst)
'bLoadFileai
'res=bGisAscOut(ai,fname)
'MsgBoxres
'bFreeWorkAreaahInst
47、问：对于区有一个生成label文件的操作，它是生成的一个新的点文件并提示保存，现在我就是想把
生成的点文件保存在现在点文件的一层里，有什么办法吗？
答：修改生成的点文件中的每个点的图形参数，将图层改为一致，再拷贝打一个点工作区中即可。
48、问：求一个点到一个区的最近和最远距离要怎么做
答：double_MinDistofPntToReg(D_DOT*pnt,shortai,long,ri)
double_MaxDistofPntToReg(D_DOT*pnt,shortai,longri)
*pnt点坐标地址
ai区所在工作区
ri区号
若点位于区内，则最小距离为0
================2003年12月10新增==============
49、问：请教关于定位的问题。
在一个工作区里面，我使用SelectRegion方法获得一个selectset，想把它放大显示在屏幕中央，该如
何操作，使用那一个对象或是方法？？最好给几句代码（vb）。3Q
答：
首先，取出集合中实体图形信息（Info）使用Range(MapRectAsD_Rect)方法更改
图形信息中的区域范围(D_Rect)。
50、问：动画功能如何实现？
如何在有向的道路中心线上实现车行的模拟？
即在道路上定两个点，以一定的速度，模拟汽车（符合）在两个点间的动态的行走，能否给个简单的demo。
答：
MAPGIS属性数据支持动画类型的数据，不需要什么示例，你只要把相应的动画剪辑（世面上有专门制作
这种闪图的软件）建立到属性库中就可以了，在相应的地方调用程序执行就行了。
51、问：请教大师：如何用vb实现mapgis投影变换中的“用户的文件投影转换”的功能；
答：
使用以下方法，用对话框设置投影变换。
FunctionSetInPara([moveAsInteger],[EnableEditAsInteger=1])AsBoolean
在ns对象中
52、问：mapgis的帮助中讲的图元号和实体号是一个意思吗？
答：GIS里的一些专业术语是有些比较难懂，图元号与实体号是一个意思。
53、问：_EditAtt这个函数包含联动的功能吗？我使用_EditAtt不能实现图形的联动，请问还需要使用
别的函数吗？
答：
_EditAtt函数会弹出一个窗体，返回值是这个窗口的句柄。
程序实现联动就是这个窗口和图形所在的视图窗口之间互相通信的结果。
当在属性编辑窗口中编辑某个记录的字段时会像视图窗口发送消息MGM_FLASH_GRAPH，该消息的
wParam参数为属性窗口状态，它可
以是下列宏定义之一：
BEGIN_EDATT：表示开始编辑属性。
EDITING_ATT：表示正在编辑属性。
END_EDATT：表示结束编辑属性。
属性窗口发送此状态时，属性窗口没有撤消。一般情况，属性窗口发送的所有MGM_FLASH_GRAPH消
息中，开始时为BEGIN_EDATT状
态，最后为END_EDATT状态，中间为若干EDITING_ATT状态。
lParam参数为指向MGMSG结构的指针，该指针所指结构空间属于属性编辑窗口，MGMSG结构如下：
//图元实体信息结构
typedefstruct
{shortai;//工作区号。
shorttype;//图元类型，为LIN,PNT,REG,NOD,NET,TBL之一。
longelmi;
}ENTITY_MSG;
//图元重新显示信息结构
typedefENTITY_MSGMGMSG;
通过lParam参数，通知hWnd窗口当前记录对应的图元是什么。
当联动状态为断开时，属性窗口不给hWnd窗口发送当前图元消息。
当鼠标在视图窗口双击选中一个实体时应该像属性窗口发送GoToAtt的消息，让属性跳转到和空间实体对
应的属性处。
具体的程序可参考VC开发第五章示例
54、问：gisattedit控件问题
请问大虾，《mapgis组件开发手册》中说gisattedit的GotoAtt方法，当参数rcdNo=0时，弹出跳转
条件对话框。但是我试过，却无法实现。我把gisattedit与工作区绑定后，仍然不能用，不知有何奥妙？
//图元号。
答：
DimareaAsPntArea
Setarea=NewPntArea
()Then
a=area
tSwitch=True
AttWorkAreaarea,
Areaarea,
EndIf
PrivateSubEditView_CurAttElement(ByVallNoAsLong)
tlNo
EndSub
PrivateSubGisAttEdit_CurRcdFldNo(ByValrcdNoAsLong,ByValfldNoAsInteger)
ementarea,rcdNo,
EndSub
55、问：怎么在裁剪的时候不用装入裁剪框文件,而是直接在工作区内用鼠标画一个框子.
答：不是在工作区中画一个框子，而是在View上拉一个框子，记录下框子的各个点添加到一个新的工作
区中，将这个工作区作为裁减框工作区。裁减完成后可以设置这个工作区的改变标志为false，在关闭它。
56、问：用_OverlayPntReg函数，叠加在某一区上的点时，如何不让区文件的属性追加到点属性上!谢
答：你可以将点中和区属性有关的一些属性字段删除。
57、问：在MAPGIS里如何获得一个区的最长的边，并且怎么知道它的方位
答：
对每一个区调用_GetReg(...,);
doublemaxLength=0;
doubletempLength;
doublemaxLi=0;
for(i=1;i
{
if(rdat[i]!=0)
{
_GetLin(...abs(rdat[i]),)
tempLength=_CalculateLength(dotset,linlen);
if(tempLength>maxLeghth)
{
maxLeghth=tempLeghth;
maxLi=abs(rdat[i]);
}
}
}
58、问：(MSVC++)如何使用API在SQLSERVER2000的库中建立MAPGIS管理过程？
答：出于安全方面的考虑，我们没有将建mapgis管理过程的函数引出，故一定要在平台上进行操作才能
建立Mapgis管理过程。
59、问：如何建立shapefile与mapgis的颜色对照表？
答：shapefile本身并不带有颜色信息，是需要在arcview中重新赋予的，比如根据属性赋参数，所以也
就没有和mapgis间的对照表，包括线型、颜色、子图等。
60、问：关于数据源的问题！
我是WEB－MAPGIS的用户，我想知道对于数据源，是不是必须用SQLSERVER作为数据源，能不能用
其他的数据库软件？如ACCESS、FOXPRO等？另外我想问问QLSERVER2000是不是和
WINDOWSXP这个操作系统不兼容？我迫切想知道答案，能快点回复我吗？
答：
对于数据源，可以用SqlServer和Oracle，对于Access和FroPro不支持，原因很简短，因为后两种
数据库软件对大型数据库支持不好，所以我们没有作SDE，SqlServer2000不会与WindowsXp冲突，
因为他们都是微软的，你可以打Sql的Sp4布丁和XP的布丁，不会有问题
61、问：我有两个线工作区，一个装了一条直线，另一个装了一系列等值线，我希望得到直线与等值线相
交的一系列点，求教实现方法！谢谢！
答：
可以用函数：
short_CalCrossDot(D_DOT*la0,D_DOT*la1,D_DOT*lb0,D_DOT*lb1,D_DOT*xy)
参数：入口*la0-线段的起点坐标
*la1-线段的终点坐标
*lb0-另一线段的起点坐标
*lb1-另一线段的终点坐标
出口*xy-两直线的交点坐标
返回值1/0-成功/失败
用一个双循环，对每一条等值线调用_GetLin得到线的空间数据，其中会返回一个点集，点集中每两个相
邻的点形成一条直线，对这每一条直线和直线工作区中的直线调用上述的函数_CalCrossDot即可得到交
点坐标。
62、问：能够通过区域的边界点的地理坐标求得区域得实际面积吗？
答：在projDll中有函数
doubleWINAPI_CountPolygonArea(D_DOT*xyLst,intlen,MAP_PARA*map);
可以根据形成多边形的点集以及相应的地图参数计算出实际面积。
63、问：用EDITVIEW显示多个点（或线）文件后，怎样激活某一层点（线）文件，并对其修改？
答：根据你要修改的那一层的工作区类型，将工作区对象赋给EditView相应的工作区接口。如：要修改
某区工作区regAi，则
a=regAi
64、问：我有一个*.GRD文件，利用什么MAPGIS库的什么函数把它显示为等值线？
要是离散的数据，显示之前又是调用什么函数把他规格化呢？
答：
MAPGIS提供了TINSDk开发包,可到网站下载.
在Tin_Area.h文件中,
GRD数据可通过_tnTinGridDemTraceContour()函数追踪为等值线.
具体步骤:
(1)使用_tnGetTinAI()创建TIN工作区;
(2)使用_tnLoadFile()装入GRD文件;
(3)使用_tnTinGridDemTraceContour()进行追踪过程(此函数提供参数设置界面).
离散数据,有两种网格化方法(依数据而定):
(1)直接使用_tnDistInsGriding()或_tnKringGriding()进行网格化;
(2)先建立三角网(可使用_tnCreateTinNetInTinArea0),
再使用_tnTinDatGriding()内插网格化.
65、问：我想将计算得到的一系列离散的数据，画成函数曲线通过对话框显示出来，请问用什么比较好？
答：方法：得到了离散点，调用mapgis的光滑函数(,w60LnCps.h),生成线文件，直接
放到mapgis提供的显示对象或控件显示即可。
66、问：请问QUERY对象查询时，输入条件查询时，“输入日期大于2002-2-1”的条件，应该何格式？
我用“日期>2002-2-1"格式后，查询的结果超出查询的范围。
答：对于日期的查询需要将日期用"[]"括起来，如：日期>[2002-2-1]
67、问：请教等值线问题
有我一批点的X坐标、Y坐标和观测值，想在自已的程序中画等值线，mapgis里的数字地面模型中有这
样的功能，但是我不知道二次开发函数是那些（特别是那三种数据网格化方法的函数）？而且对TIN文件
也一点不懂，能不能给介绍下这方面的知识和mapgis的等值线绘制方法,并给发个例子程序？
答：
首先,要下载TINSDK的开发库;
在其中Tin_Area.h头文件中,有相关函数的说明可供参考.
由于这一部分的二次开发库还未正式推出,所以目前尚无开发手册,只能针对具体开发函数回答.
对于等值线追踪,
对于离散点数据,应按照下列步骤进行:
a.首先按照系统要求的DET数据格式,编辑你的数据(可以参考DTM系统);
b.使用_tnGetTinAI()创建TIN工作区,最后应用_tnDeleteTinAI()删除;
c.使用_tnLoadFile()装入数据文件;
d.使用_tnCreateTinNetInTinArea()生成三角网;
e.使用_tnTinTriNetTraceContour()追踪等值线;
================2003年12月17日新增===========
68、问：关于输入区的问题
有什么办法，让边输入弧段边生成区，当弧段封闭时，就自动生成一个区。
而且输入弧段最好用键盘输入。
能实现吗？给段代码吧
答：
键盘输入点，记录下每一个点的坐标。添加到一个D_Dot数组中，记录下点数。
用下面的函数即可将这些点组成弧段并生成区。(当然第一个点和最后一个点应该是同一个点。)
longMakeRegFromLin(shortai,D_DOT*pddDot,longnum)
{ASSERT(ai>0);
//添加弧段
LIN_INFOLinInfo={0};
longLinNo=_AppendLin(ai,pddDot,num,&LinInfo);
//造区
longrdat[3]={0};
rdat[0]=num+1;
rdat[1]=LinNo;
REG_INFORegInfo={0};
longRegNo=_AppendReg(ai,rdat,2,&RegInfo);
returnRegNo;
}
69、问：如何在EDITVIEW中加入多个点线区文件？
答：
DimpntArea1AsPntArea
DimpntArea2AsPntArea
DimlinArea1AsLinArea
DimlinArea2AsLinArea
DimregArea1AsRegArea
DimregArea2AsRegArea
PrivateSubCommandButton1_Click()
SetpntArea1=NewPntArea
SetpntArea2=NewPntArea
SetlinArea1=NewLinArea
SetlinArea2=NewLinArea
SetregArea1=NewRegArea
SetregArea2=NewRegArea
EndSub
PrivateSubEditView1_MyDraw(ByValMpDCAsObject)
eapntArea1
eapntArea2
ealinArea1
ealinArea2
earegArea1
earegArea2
EndSub
70、问：如何在继承PRJ建立切分视后，向文件添加项目，给个示例吧？
答：
intflag;
charszName[256];
chardsn[32];
charowner[32];
charftype;
charopenflag;
charfilter[]="MapGis线文件(*.wl)0*.wl00";
charttlStr[]="添加线文件";
openflag=0;
memset(szName,0,sizeof(szName));
memset(dsn,0,sizeof(dsn));
memset(owner,0,sizeof(owner));
flag=_InputFileName(szName,dsn,owner,&ftype,openflag,filter,ttlStr);
if(flag=1)
{
//给工程添加文件，只需要知道该文件的文件名，并不需要打开该文件(装入工作区)
_PRJAppend(GetProject(),szName,NULL,-1);
//PrjListView中显示刚添加进的文件
((CMyPrjListView*)(((CChildFrame*)(((CFrameWnd*)(AfxGetMainWnd()))->GetActiv
eFrame
()))->m_e(0,0)))->ReloadPrjItems();
//PrjEditView复位显示
OnRestoreWindow();
}
71、问：请问如何用VB实现多个图元在EDITVIEW上同时闪烁?
答：
DimselsetAsSelectSet
Setselset=NewSelectSet
Fori=-1
//闪烁多个实体，对每一个实体都要New一个SelectItem
Setsel=NewSelectItem
=gisLIN_ENTITY
=(i)
ea=areaObj
Setsel=Nothing
Next
Set=selset
Set
Setselset=Nothing
72、问：有什办法在GAPGIS内核启动之前修改环境目录？
我试过许多种方法，包括在CMyApp::InitInstance()甚至在构造函数CMyApp::CMyApp()中加入相关
检查程序行也失败。看着连续蹦出来的几个标着惊叹号的对话框和接下来的死翘翘。真是让人伤心。
答：
在程序外面包一层不调用mapgis显示相关动态库的程序即可。外层程序仅仅调用win_area.h中的函数
来修改目录环境。修改完成后，调用进程函数装入要执行的mapgis程序。
73、问：如何根据点的属性（坐标值）调整点的位置？
答：如果是单个调整的话，可以利用“定位点”的方式；如果是批量调整，那就把坐标属性导出来然后再根
据坐标来生成点。
74、问：在用VC++得类库开发时，调用API函数时EDITWND参数如何获取？
我是一位刚学MAPgis开发的新手。在用VC++得类库开发时，调用API函数时EDITWND参数如何获
取？谢谢，那位能帮助我。
答：
现在Mapgis推荐使用类库来进行二次开发，你说的EDITWND已经被封装到CGisView类当中，你
直接继承CGisView类即可完成Mapgis图形显示的功能。具体的做法如下：
第一步：建一个VisualC++的项目。打开VisualC++工作环境，选择File菜单New命令，在弹出
的对话框中选择Projects页的MFCAppWizard(EXE)项并在Projectname编辑框中敲入工程名（例如：
engineer），然后单击OK。这样便进入了AppWizard（向导）的第一步，在这一步里用户要选择工程
类型，可以选择单文档或多文档工程，初学者最好选单文档类型；单击Next进入向导的第二步、第三步、
直到完成（Finish之后OK）,这几步用户可以采用默认设置。到此为止一个VC的项目已建好，然后用户
的工作就是在这个项目中实现MAPGIS平台中的功能及自己想要的其他功能。
第二步：要完成的工作是将工程中的视图类改为继承CGisView类。具体操作是打开工程中的视图类的
两个文件（*View.h、*），用VisualC++查找替换功能（Edit菜单下的Replace命令或热键
Ctrl+H）分别将这两个文件中的CView字符串全部替换为isView，替换完毕，在工程中视图类的定义前
面加入#include“cgisview.h”，这样就完成了CGisView类的继承。
第三步：调用CGisView类中的OnDraw(pDC)函数，以完成绘图工作的预先处理。具体操作方法：
在视图类的OnDraw(CDC*pDC)函数中加语句CGisView。添加过程见下面示例：
voidCEngineerView::OnDraw(CDC*pDC)
{CEngineerDoc*pDoc=GetDocument();
ASSERT_VALID(pDoc);
//TODO:adddrawcodefornativedatahere
CGisView::OnDraw(pDC);
}第四步：对VisualC++的工作环境进行必要的设置，这些设置很重要。
第1项(字节)设置：选择Project菜单下的Settings命令，在C/C++页面上，Category一栏选
择CodeGeneration,并将StructMemberAlignment设定为1Byte。
第2项（输出目录）设置：把生成的可执行文件输出到MAPGIS动态连接库所在的目录下。选择Project
菜单下的Settings命令,在General页面上，Outputfiles一栏，填写mapgis应用程序目录，例如：
c:mapgis65program。
第3项（包含库）设置：设置头文件及库文件的路径。选择Tools菜单下的Options命令,在Directory
页面上，在Showdirectoriesfor:一栏选择includefiles,在Directories:下面填写MAPGIS二次开发
库头文件目录，例如，C:MAPGIS65include；然后，在此页面上的Showdirectoriesfor:一栏再选
择libraryfiles，在Directories:下面填写MAPGIS二次开发库目录，例如，C:MAPGIS65lib。
75、问：ZVelStrcT结构，如何赋参数？
答：
typedefstruct
{LIN_INFOlinf;//等值线图形参数.
REG_INFOrinf;//填充区图形参数.
doublefZdem;//等值线层值.
charmskOn;//该层注记开关.
//高程等值结构.}ZVelStrcT;
如果要追踪n层等值线,就申请n+1个层结构(区间)!!!
赋值说明:
1.前两个参数可参考线/区图形参数结构赋值;
为当前层高程值;
=0/1,表示该层不注记/注记.
76、问：怎样获得正在编辑的工作区号？
答：
CGisEditView::GetEditArea
原型：shortGetEditArea(shortaitype);
参数：入口aitype–正在编辑工作区类型。
返回值：编辑工作区号
77、问：请教！_RectAskToArea函数为什么返回值为零？
答：
如果返回值为0，表示没有查询到实体。您检查下
1、您给的参数D_RECT*rc的值是不是对应的是图形坐标（也称逻辑坐标）的值。
2、工作区号是否合法；
3、是否控制了图层开关；
78、问：如何新建一个路径并把文件存进去？
_SaveAFile()时，如果指定的文件路径不存在，则文件存不进去，如何让MAPGIS新建该路径，再把文
件存进去？
答：
该函数要求文件夹存在。如果想让MAPGIS新建该路径，再把文件存进去，可以调用函数_SaveFileAs();
79、问：使用_ClearArea()清理工作区时会将属性结构也清空了，如果我想保留该用什么函数？
使用_ClearArea()清理工作区时会将属性结构也清空了，如果我想保留该用什么函数？特别当工作区类型
时为TBL时！
答：
想保留属性结构，可以用循环语句将所有实体删除即可。比如想删除所有的线,可象如下调用：
_GetLin(lai,&logN,&n);
for(i=0;i _DelLin(lai,i);/*应该是for(i=1;i<=n;i++)*/ 80、问：请教：能否简单介绍MAPGIS中逻辑坐标，设备坐标和窗口坐标的关系呢？ 我每次响应CGisview::onmousemove和CGisview::onlfbuttondown这些函数时，获取的cpoint 是窗口坐标，每当用_AppendLin()_AppendReg()这些函数时好象又是逻辑坐标，和文件坐标信息一致， 但我用_MoveTo(),_LineTo(),_Circle()_Rect()等函数时，用_AppendLin()_AppendReg()中同样的 坐标，但显示结果不是一样位置。请教_MoveTo(),_LineTo(),_Circle()_Rect()等函数使用的是什么坐 标系统？ 答： AppendLin()等函数使用的是图形坐标（也称逻辑坐标），CGisview::onmousemove使用的是窗口坐 标，_MoveTo(),_LineTo(),_Circle()_Rect()使用的是设备坐标。所以在函数使用中一定要分清楚不同 的坐标系。并且mapgis提供了不同坐标系的转化函数，如LpToDp,LpToWp,WpToDp,WpToLp等。
发布评论