MAPGIS二次开发常见问题及解答(转载)
1、问:如何用Delphi生成MAPGIS明码文件?
答:先利用手册看懂明码格式文件的格式,知道数据的组织方式,利用delphi的文件函数创建一个文本型文件,吧数据库中的数
据按照格式输出就是了。
2、问:ATT_STRU 和CATT_STRU的区别和联系?
答: ATT_STRU是以前老版本的东东,换成CATT_STRU试试.CATT_STRU中包含了属性结构的详细信息,具体用法可参见二次开发帮助
文档中第三章数据结构中关于属性字段描述结构,属性字段描述头和属性信息头的介绍,里面有该结构的详细内容。
3、问:请教关于“不能打开子图库...”的问题,急!
答:系统库路径不对,将mapfont.gis、mconfig.gis、netcfg.gis三个文件拷贝到执行目录即可。这几个语言件放在
MAPGIS\PROGRAM\目录中。或是运行MapEnv.exe可设置,该运行文件也同样在MAPGIS\PROGRAM\目录中。
4、问:如果只知道工作区 ai 能不能依次得到工作区中的图元号,该如何得到啊!
答:
long i,pntn;
short len;
pnt_info inf;
d_dot xy;
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,到底应该如何用啊!跟以前的不同了,给个例子吧!
答:
long WINAPI _NearPnt(short ai,D_DOT *xy,unsigned char *layerOnOffPad,short padLen,double *dis);
ai 点工作区号
*xy 点位置号---比如鼠标的位置
layeronoffpad 图层开关标志,如不为空就只在打开状态的图层中查找
padLen 是layerOnOffPad的长度
出口 dis 返回距离
返回值成功返回点号,失败为0
6、问:如何屏蔽掉CPrjEditView中的右键功能!!!
答:
editview有一个PopMenuControl属性,同理CPrjEditView也可以直接使用这个属性。
editview.PopMenuControl=-1 '///不显示菜单
=0 '///全部显示
=1 '///显示窗口菜单
=2 '///显示窗口+编辑菜单
=3 '///1+2+工具箱
7、问:如何将一个圆添加到一个工作区Ai中?
答:
先用_AppendLin函数在工作区画园(或画弧)的时候需要自己生成坐标点,比如说 D_DOT *dat,
这里dat的空间需自己申请,其长度为 long len,线的参数是 LIN_INFO inf,需要赋值,short ai为区工作区号,long i 为弧
段号。然后调用:
i = _AppendLin(ai,dat,len,&inf);
输入弧段。然后添加区域
入口: ai - 区工作区号
long rdat[2] - 区域数据块
rdat[0] = 1(弧段个数),rdat[1]= i (i 为弧段号)
rinf - 区域图形信息,需要赋值
然后调用:
_AppendReg(ai,rdat,2,&rinf);
8、问:急关于_ShortFlash(ENTITY_MSG *pt,long num)函数!
答:
sypedef struct
{short ai 工作区号
short type 图元类型
long elmi 图元号
}ENTITY_MSG
定义一个ENTITY_MSG数组你把所要闪烁的图元一个一个加进去就行了。
9、问:实现查询多边形中图元的,并时期闪烁显示,应如何实现呢?
答:用_RectAskToList系列函数,然后可通过CGisView的闪烁机制完成。
10、问:
CloseToolBox();//关闭工具箱
OpenToolBox(); //打开工具箱
我的程序只要进行了上面关闭和打开工具箱的操作后,在最后关闭时总是报错
不管是用上面的函数还是用右键提供的工具箱控制,到最后都会出现一个
Debug Assertion Failed!
的错误,谁能解释一下呢?答:
1、升级你的VC++(比如SP2、SP4)
2、出现这种问题不用管,在编绎成Releas版后,这个问题不会再出现。
11、问:我在本机器开发环境上运行开发的软件没什么问题。但在其他机器上,运行时出现找不到mfc42d.dll动态链接库文件。请帮忙!
答:你编的东西编译成DEBUG版,运行时需要mfc42.dll(这可不是MAPGIS的动态库,是VC的),如果你在编译时生成RELEASE版,到
别的机子上运行,就不用找mfc42d.dll了。
12、问:有没有获得工程文件名的函数,有没有通过工程文件,来获得工程中的个文件的路径的函数!!!
答:这个容易,兄弟用VC吧。打开有关PRJ的头文件(*.h,具体是哪个我记不清了,自已找找),看里面的函数声明,这比看帮
助或是开发指南要好用得多,而且看到的东西比什么指南都强。里面的函数英文名称确切,当然,如果你的英文不行,先去补习一下吧。
13、问:颜色不准,急!急!急!!!我公司新买的HP DJ800PS的喷墨打印机,mapgis的颜色库用的是地矿部的标准色库,可每次执行光栅化输出以后,出图颜色与色标差太多,光栅化参数按推荐100、75、61、100设的。
答: 又是该死的地矿部标准,那玩意是用6色印刷的,普通喷墨仪如果只有四色,怎么着都打不出一模一样的。
真要打出跟那标准一模一样,也简单,输出到EPS,花几千块,去印刷厂印一张回来。
14、问:请教各位大侠,logcount和count的区别?含义分别是什么?
答:
逻辑数:工作区中没有被删除的实体或者记录的个数。
物理数:工作区中所有的实体或者记录的个数,包括那些从被删除了的实体或者记录。
有如下等式:
物理数=逻辑数+被删除的个数+1
15、问:
请问有没有这样的函数?
可以求出两个区之间的公共弧段呢。
有的话,请告诉我关于这个函数的详细情况。谢谢!
答:
先取出第一个区的所有弧段,对每一条弧段取拓扑,看看拓扑的左区或者右区中有没有一个等于第二个区的区号。如果有,那么这条弧段就是这两个区的公共弧段。
16、问:如何对表文件(.wb)进行读某条记录的某个字段!!!请问各位大虾:如何取得表文件的记录数,如何判断该记录是被删除,如何取某记录的某个字段值。谢谢!!
答:MAPGIS.COM.CN下载区二次开发示例第5章有详细说明。
17、问:请问在delphi里怎么调用mapgis的api函数
答: 和调windows的api一样调用。
如:
function _FindNearColor(r,g,b:Integer):Integer;stdcall;External'mapdsp60.dll'
procedure TForm1.Button1Click(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(short ai,D_DOT *xy,double *rtnDis)
参数 入口 ai - 结点工作区号
*xy - 结点位置,xy为图形实际坐标
出口 *rtndis - 返回距离
返回值 成功返回结点号(>0),失败返回0
23、问:在VC++中,如何从一装入工程文件中,读出工程文件中每个文件的名称和类型?谢谢,大虾。
答:
7、取工程中某个文件的类型
short _PRJGetItemType(MAPPROJECT prj,int index)
参数: 入口 prj - 工程句柄
index - 文件位置
出口 无
返回值:index指定文件的文件类型(LIN/PNT/REG/MSIIMG)
9、取项目的文件名(带全路径)
LPCTSTR _PRJGetItemName(MAPPROJECT prj,int index)
参数: 入口 prj - 工程句柄
index - 文件位置
出口 无
返回值:index指定文件的名称的字符串
10、取项目的文件名(不带全路径)
short _PRJGetItemName1(MAPPROJECT prj,int index,char *name)
参数: 入口 prj - 工程句柄
index - 文件位置
出口 *name - 返回文件的名称
返回值:成功返回1,失败返回0
24、问:如果调用CGisEditView的编辑与修改什么的函数,那么视图窗口总是处于交互状态,请问如何取消?
答:先调用SetExtTool(NULL);
再调用SetOperateState(0);
25、问:我用VB来调试一些帮助中列举的例子,在加载工程的时候用bPRJLoadProject(),系统给出错误:bad dll calling convention.我不知道什么原因?
答:你在mapgis目录下的basic中找到 map_prj.bas ,对bPRJLoadProject的声明如下。
Declare Function bPRJLoadProject Lib "mapprj60.dll" Alias "#1" (Optional ByVal aInst As Integer = 0) As Long
你自己改为:
Declare Function bPRJLoadProject Lib "mapprj60.dll" Alias "#1" (Optional ByVal aInst As Integer = 0, Optional ByVal fastOpen As Integer = 0) As Long
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);
我调试的时候,一到最后一行就报错。
错误信息如下:
Unhandled exception in ChangePoint.exe(BAS60.DLL):0xC0000005:Access Violation
请指教,谢谢!
答:
char szName[128];
char dsn[32];
char owner[32];
char ftype;
char openflag=0; //0 打开文件;1 保存文件
char filter[]=_T("线文件(*.wl)\0*.wl\0点文件(*.wt)\0*.wt\0\0");
char ttlStr[]=_T("打开文件");
char log[32];
char psw[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);
szName dsn owner ftype 都是出口参数。
strOutPath你给的是NULL当然是错误的。
有可能是网络数据,dsn owner 也为NULL,是相当危险的。
30、问:用delphi怎么新建一个工程?并且能不让新建的工程弹出那两个对话框吗?
答:直接CreateComObject()as IMap,然后把这个Imap接口赋给editview即可。
31、问:关于maplayer, 在delphi中maptree不能正确使用,请问我如何能知道工程里所有文件的 名称和状态?
答:对map的layer进行遍历,每个layer的workarea的name属性就是工程里该文件的名称。该layer的visible表示是否可见的状态。用map的activelayer取、设激活的layer。
32、问:这样求两点距离和图型面积?(vb) 用鼠标虚义一根线,求出线两端的距离?用鼠标画一个任意闭合区,求闭合区的面积?
答:
不管你输入的是线,还是闭合区域,在Mapgis里都是用“点集”D_DotSet表示的。
将你鼠标输入的点转换成逻辑坐标存入D_DotSet。
调用 CalculateLength(xy As D_DotSet) As Double 求线长度
调用 CalculateOneArea(xy As D_DotSet) As Double 求该点集围成的区的面积
33、问:请问用delphi开发,如何将某一maplayer和工作区绑定?
我打开了一个工程文件,现在想对其中某一层进行操作,如何把这一层和工作区进行绑定?那个attach怎么用?我的意思是已经用map.load把文件打开了,然后怎么绑定?我用的是
var regarea:iregarea;
regarea:=createcomobject(class_regarea) as iregarea;
maplayer.attach(regarea);
把regarea保存一下,发现还是空白一片
答:对工程中的某一层进行操作,只需要对该layer的workarea接口操作即可。
而你的代码是把该layer又和一个新的regarea(你只是实例化了,没有装载文件)绑定,此时已经丢掉了原来的workarea。所以出现你描述的情况。
34、问:那个函數能够实现计算一条曲线与其它多条曲线的交点?
答:
在winarea.h文件中有计算单个线段交点的函数
short WINAPI _CalCrossDot(D_DOT *la0,D_DOT *la1,D_DOT *lb0,D_DOT *lb1,D_DOT *xy);
你可以先用当前线的rect通过RectAskLin找到相交的线,再逐个求交点。
35、问:我使用actxedit------gisedit控件进行的二次开发。
可是打包后安装,这个控件总也不能被注册。
具体怎么解决?
答: 建议你将该控件所用到的dll也一起打包(用DEPENDS察看)
在你的打包程序中用regsvr32来注册。
36、问: 我用ModEnvFile但是报错说不支持对象的属性或方法
请问为什么?
我用GetEnv得到了路径的文本,怎么修改呀?
str=Mapgis.GetEnv.cur
之后怎么办呢?
答:Mapgis.GetEnv.cur="新的路径"
37、问:如何在VB中实现对目录环境修改的功能
答:你指的是mapgis的环境目录吗?
如果是,你可以用mapgis对象下面的getenv、writeenvfile、setenv方法来取得、修改、设置mapgis的环境目录。
38、问:老话重提:如何获得工程的地图参数
答: MAPGIS工程中也同样记载了一个“地图参数”的内容!
如果是按照标准方式建立的工程数据,那么工程中的地图参数和包含文件中的地图参数应该是一样的!所以建议直接取工程文件
本身记载的地图参数,那么就不用考虑是否存在文件的区别了!具体函数是:
在project.h中调用Prj_Head.PrjMapParam即可!
39、问:如何在map对象中实现只对激活的maplayer进行编辑和操作?
答:selectpoint方法可以选中所有的打开的点文件中的点。而不仅仅是你激活的那个layer。在最新的mapgis中对maplayer增加
了一个selected的标志。如果该标志设为1,则selectpoint会在这个layer上做操作。相反,则不会影响这个layer。
40、问:在mapgis输入编辑里有个功能叫“根据属性赋参数”,请问二次开发里提供这个功能吗?如果有怎么用,在哪里可以找到;如果没有怎么根据属性筛选符合条件的点。答:、“根据属性赋参数”实际上就是找出那些满足你给定的属性条件的图元,然后给他们参数的某一项,或者某几项。用AttAsktoList即可,具体可参考vb开发示例。(MPGIS.COM.CN下载区)
41、问: 用Gisedit1.SelectGraphics选中图元后,如何取得其属性值,请用VB示范一下,谢谢!
答:可以自己写一个交互操作,用鼠标双击、或者拉框来查询图元。
对于鼠标双击可以直接调用nearlin...,对于拉框可用rectasktolist来查询。前者得到图元实体好,后者得到实体号列表。然后用这些实体号即可取属性即可得到相应的属性。
42、问:有关IMS 的浏览查询的问题
我想在IMS中实现浏览查询功能,能不能按照如下的思路做:
1 选定某一个工作区;
2 找出该工作区的所有图元
3 显示该图元的信息
问题是:
怎么样找出一个工作区的所有图员
dim PrjItem
set PrjItem = Server.CreateObject("MpMapCom.MpPRJITEM.1")
Session("MapViewObject").ViewPrj.GetItem i,PrjItem
这样能得到i对应的工作区,下面该怎么得到此工作区的所有图元呢?
谢谢
答:
要得到图元,是用户进行查询的,而查询有多种查询方法,可以模糊、点击等等,如果用添加查询,就用函数gisSearchByStr,点击就用gisSearchByHitting等等,lib库中有这样的函数,web开发实例中也有这样的例子,您可以看看那里的例子,希望对您有所帮助
43、问:请问大侠,bE00out函数,能不能自定义导出的e00文件的路径?
答:直接在文件名前面加路径即可。
如:
Dim hInst As Integer
Dim ai As Integer
hInst = bInitWorkArea(&H0)
ai = bOpenArea(hInst, LIN)
Call bLoadFile(ai)
Call bE00out(ai, "d:\aa.e00")
Call bFreeWorkArea(hInst)
44、问:请教在WEBGIS中,能否对*.WP,*.WL,*.WT文件进行操作,属性检索的功能和非WEGGIS开发模式下的有什么区别,我想闪烁某个/些被检索到的图元能做到吗?
答:在webgis中能够对点线面文件进行操作,可以根据用途的不同,可以进行不同的操作。 属性检索和非webgis开发模式下没有什么不同。在webgis中可以进行闪烁某个点或一些点,但是我们一般不建议这样作,因为这样速度可以跟不上,一般是通过改变颜色的方式来标志检索到的图元。
45、问:怎么写点的属性,我想用pntatt.write
答: 先得到你要写属性的那条记录。pntarea.get(i,rcd)然后对rcd属性记录进行操作,rcd.item.val(1)......再pntarea.write即可。
46、问:如何在vb中使用“GisConv.h”中所声明的api函数?比如convertapi_e
答:
Declare Function bGisAscIn Lib "w60_conv" Alias "#6" (ByVal AHInst As Integer, ByVal mPath As String, outAi As Integer) As Integer
'明码文件转换二进制文件,返回成功和失败
Declare Function bGisAscOut Lib "w60_conv" Alias "#7" (ByVal ai As Integer, ByVal FileName As String) As Integer
'二进制文件转换明码文件,返回成功和失败
Declare Function bE 00In Lib "w60_conv" Alias "#8" (ByVal AHInst As Integer, ByVal mPath As String, ByRef OutAp As Integer, ByRef OutAl As Integer, ByRef OutAr As Integer, ByRef OutLab As Integer, Optional ByRef OutNai As Integer = 0, Optional ByVal OrderColorFlag As Integer = 0, Optional ByVal PntColorFld As Long = 0, Optional ByVal LinColorFld As Long = 0, Optional ByVal RegColorFld As Long = 0) As Integer
Declare Function bE00out Lib "w60_conv" Alias "#9" (ByVal ai As Integer, ByVal FileName As String) As Integer
Declare Function bDxfOut Lib "w60_conv" Alias "#10" (ByVal ap As Integer, ByVal al As Integer, ByVal FileName As String) As Integer
Declare Function bArcInfIn Lib "w60_conv" Alias "#11" (ByVal AHInst As Integer, ByVal mPath As String, ByRef OutAp As Integer, ByRef OutAl As Integer, ByRef OutAr As Integer) As Integer
Declare Function bArcInfOut Lib "w60_conv" Alias "#12" (ByVal ai As Integer, ByVal FileName As String) As Integer
Declare Function bArcIn Lib "w60_conv" Alias "#13" (ByVal AHInst As Integer, ByVal mPath As String, ByRef OutAp As Integer, ByRef OutAl As Integer) As Integer
Declare Function bArcOut Lib "w60_conv" Alias "#14" (ByVal ai As Integer, ByVal FileName As String) As Integer
'示例:
'Dim ahInst As Integer
'Dim binAi As Integer
'Dim ai As Integer
'Dim mpath As String
'Dim fname As String
'Dim res
' 'ahInst = bInitWorkArea(0)
'mpath = "d:\mapgis61\sample\china.wal"
'res = bGisAscIn(ahInst, mpath, binAi)
'MsgBox res
'fname = "d:\mapgis61\sample\china.wal"
'ai = bOpenLinArea(ahInst)
'bLoadFile ai
'res = bGisAscOut(ai, fname)
'MsgBox res
'bFreeWorkArea ahInst
47、问: 对于区有一个生成label文件的操作,它是生成的一个新的点文件并提示保存,现在我就是想把生成的点文件保存在现在点文件的一层里,有什么办法吗?
答: 修改生成的点文件中的每个点的图形参数,将图层改为一致,再拷贝打一个点工作区中即可。
48、问:求一个点到一个区的最近和最远距离要怎么做
答: double _MinDistofPntToReg(D_DOT *pnt,short ai,long,ri)
double _MaxDistofPntToReg(D_DOT *pnt,short ai,long ri)
*pnt 点坐标地址
ai 区所在工作区
ri区号
若点位于区内,则最小距离为0
================2003年12月10新增==============
49、问:请教关于定位的问题。
在一个工作区里面,我使用SelectRegion方法获得一个selectset,想把它放大显示在屏幕中央,该如何操作,使用那一个对象或是方法??最好给几句代码(vb)。3Q
答:
首先,取出集合中实体图形信息(Info)使用EditView.SetMapRange(MapRect As D_Rect)方法更改图形信息中的区域范围(D_Rect)。
50、问:动画功能如何实现?
如何在有向的道路中心线上实现车行的模拟?
即在道路上定两个点,以一定的速度,模拟汽车(符合)在两个点间的动态的行走,能否给个简单的demo。
答:
MAPGIS属性数据支持动画类型的数据,不需要什么示例,你只要把相应的动画剪辑(世面上有专门制作这种闪图的软件)建立到属性库中就可以了,在相应的地方调用程序执行就行了。
51、问: 请教大师:如何用vb实现mapgis投影变换中的“用户的文件投影转换”的功能;
答:
使用以下方法,用对话框设置投影变换。
Function SetInPara([move As Integer], [EnableEdit As Integer = 1]) As Boolean
在PRJTRANSCOMLib.PrjTrans对象中
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结构如下:
//图元实体信息结构
typedef struct
{short ai; //工作区号。
short type; //图元类型,为LIN,PNT,REG,NOD,NET,TBL之一。
long elmi; //图元号。
}ENTITY_MSG;
//图元重新显示信息结构
typedef ENTITY_MSG MGMSG;
通过lParam参数,通知hWnd窗口当前记录对应的图元是什么。
当联动状态为断开时,属性窗口不给hWnd窗口发送当前图元消息。
当鼠标在视图窗口双击选中一个实体时应该像属性窗口发送GoToAtt的消息,让属性跳转到和空间实体对应的属性处。
具体的程序可参考VC开发第五章示例
54、问:gisattedit控件问题
请问大虾,《mapgis组件开发手册》中说gisattedit的GotoAtt方法,当参数rcdNo=0时,弹出跳转条件对话框。但是我试过,却无法实现。我把gisattedit与工作区绑定后,仍然不能用,不知有何奥妙?
答:
Dim area As PntArea
Set area = New PntArea
If area.Load() Then
EditView.PntArea = area
EditView.LinkAttSwitch = True
EditView.AttachAttWorkArea area, area.Type
GisAttEdit.AttachArea area, area.Type
End If
Private Sub EditView_CurAttElement(ByVal lNo As Long)
GisAttEdit.GotoAtt lNo
End Sub
Private Sub GisAttEdit_CurRcdFldNo(ByVal rcdNo As Long, ByVal fldNo As Integer)
EditView.GotoElement area, rcdNo, area.Type
End Sub
55、问: 怎么在裁剪的时候不用装入裁剪框文件,而是直接在工作区内用鼠标画一个框子.
答:不是在工作区中画一个框子,而是在View上拉一个框子,记录下框子的各个点添加到一个新的工作区中,将这个工作区作为裁减框工作区。裁减完成后可以设置这个工作区的改变标志为false,在关闭它。
56、问:用_OverlayPntReg函数,叠加在某一区上的点时,如何不让区文件的属性追加到点属性上!谢
答:你可以将点中和区属性有关的一些属性字段删除。
57、问:在MAPGIS里如何获得一个区的最长的边,并且怎么知道它的方位
答:
对每一个区调用_GetReg(...,rdat,len....);
double maxLength=0;
double tempLength;
double maxLi=0;
for(i=1;i
{
if(rdat[i]!=0)
{
_GetLin(...abs(rdat[i]),dotset,linlen...)
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是不是和WINDOWS XP这个操作系统不兼容?我迫切想知道答案,能快点回复我吗?
答:
对于数据源,可以用Sql Server 和Oracle,对于Access和FroPro不支持,原因很简短,因为后两种数据库软件对大型数据库支持不好,所以我们没有作SDE,Sql Server2000不会与Windows Xp冲突,因为他们都是微软的,你可以打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中有函数double WINAPI _CountPolygonArea(D_DOT *xyLst,int len,MAP_PARA *map);
可以根据形成多边形的点集以及相应的地图参数计算出实际面积。
63、问:用EDITVIEW显示多个点(或线)文件后,怎样激活某一层点(线)文件,并对其修改?
答:根据你要修改的那一层的工作区类型,将工作区对象赋给EditView相应的工作区接口。如:要修改某区工作区 regAi,则
EditView.RegArea = regAi
64、问:我有一个*.GRD文件,利用什么MAPGIS库的什么函数把它显示为等值线?
要是离散的数据,显示之前又是调用什么函数把他规格化呢?
答:
MAPGIS提供了TIN SDk开发包,可到网站下载.
在Tin_Area.h文件中,
GRD数据可通过_tnTinGridDemTraceContour()函数追踪为等值线.
具体步骤:
(1) 使用_tnGetTinAI()创建TIN工作区;
(2) 使用_tnLoadFile()装入GRD文件;
(3) 使用_tnTinGridDemTraceContour()进行追踪过程(此函数提供参数设置界面).
离散数据,有两种网格化方法(依数据而定):
(1) 直接使用_tnDistInsGriding()或_tnKringGriding()进行网格化;
(2) 先建立三角网(可使用_tnCreateTinNetInTinArea0),
再使用_tnTinDatGriding()内插网格化.
65、问: 我想将计算得到的一系列离散的数据,画成函数曲线通过对话框显示出来,请问用什么比较好?
答: 方法:得到了离散点,调用mapgis的光滑函数(TinBas60.dll,w60LnCps.h),生成线文件,直接放到mapgis提供的显示对象或控件显示即可。
66、问:请问QUERY对象查询时,输入条件查询时,“输入日期大于 2002-2-1 ”的条件,应该何格式?我用“日期> 2002-2-1 "格式后,查询的结果超出查询的范围。
答: 对于日期的查询需要将日期用"[]"括起来,如: 日期>[ 2002-2-1 ]
67、问:请教等值线问题
有我一批点的X坐标、Y坐标和观测值,想在自已的程序中画等值线,mapgis里的数字地面模型中有这样的功能,但是我不知道二次开发函数是那些(特别是那三种数据网格化方法的函数)?而且对TIN文件也一点不懂,能不能给介绍下这方面的知识和mapgis的等值线绘制方法,并给发个例子程序?
答:
首先,要下载TIN SDK的开发库;
在其中Tin_Area.h头文件中,有相关函数的说明可供参考.
由于这一部分的二次开发库还未正式推出,所以目前尚无开发手册,只能针对具体开发函数回答.
对于等值线追踪,
对于离散点数据,应按照下列步骤进行:
a.首先按照系统要求的DET数据格式,编辑你的数据(可以参考DTM系统);
b.使用_tnGetTinAI()创建TIN工作区,最后应用_tnDeleteTinAI()删除;
c.使用_tnLoadFile()装入数据文件;
d.使用_tnCreateTinNetInTinArea()生成三角网;
e.使用_tnTinTriNetTraceContour()追踪等值线;
================ 2003 年12 月17 日 新增===========
68、问:关于输入区的问题
有什么办法,让边输入弧段边生成区,当弧段封闭时,就自动生成一个区。
而且输入弧段最好用键盘输入。
能实现吗?给段代码吧
答:
键盘输入点,记录下每一个点的坐标。添加到一个D_Dot数组中,记录下点数。
用下面的函数即可将这些点组成弧段并生成区。(当然第一个点和最后一个点应该是同一个点。)
long MakeRegFromLin(short ai,D_DOT* pddDot,long num)
{ ASSERT(ai>0);
// 添加弧段
LIN_INFO LinInfo={0};
long LinNo=_AppendLin(ai,pddDot,num,&LinInfo);
// 造区
long rdat[3]={0};
rdat[0]=num+1;
rdat[1]=LinNo;
REG_INFO RegInfo={0};
long RegNo=_AppendReg(ai,rdat,2,&RegInfo);
return RegNo;
}
69、问:如何在EDITVIEW中加入多个点线区文件?
答:
Dim pntArea1 As PntArea
Dim pntArea2 As PntArea
Dim linArea1 As LinArea
Dim linArea2 As LinArea
Dim regArea1 As RegArea
Dim regArea2 As RegArea
Private Sub CommandButton1_Click()
Set pntArea1 = New PntArea
Set pntArea2 = New PntArea
Set linArea1 = New LinArea
Set linArea2 = New LinArea
Set regArea1 = New RegArea
Set regArea2 = New RegArea
pntArea1.Load
pntArea2.Load
linArea1.Load
linArea2.Load
regArea1.Load
regArea2.Load
End Sub
Private Sub EditView1_MyDraw(ByVal MpDC As Object)
MpDC.DispArea pntArea1
MpDC.DispArea pntArea2
MpDC.DispArea linArea1
MpDC.DispArea linArea2
MpDC.DispArea regArea1
MpDC.DispArea regArea2
End Sub
70、问:如何在继承PRJ建立切分视后,向文件添加项目,给个示例吧?
答:
int flag;
char szName[256];
char dsn[32];
char owner[32];
char ftype;
char openflag;
char filter[]="MapGis线文件(*.wl)\0*.wl\0\0";
char ttlStr[]="添加线文件";
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()))->GetActiveFrame
()))->m_wndSplitter.GetPane( 0, 0 )))->ReloadPrjItems();
//PrjEditView复位显示
OnRestoreWindow();
}
71、问:请问如何用VB实现多个图元在EDITVIEW上同时闪烁?
答:
Dim selset As SelectSet
Set selset = New SelectSet
For i = 1 To lst.Count - 1
//\\闪烁多个实体,对每一个实体都要 New 一个 SelectItem
Set sel = New SelectItem
sel.Type = gisLIN_ENTITY
sel.ItemNo = lst.Item(i)
sel.WorkArea = areaObj
selset.Add sel
Set sel = Nothing
Next
Set EditView.SelectSet = selset
EditView.FlashElement EditView.SelectSet
Set selset = 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图形显示的功能。具体的做法如下:
第一步:建一个Visual C++的项目。打开Visual C++工作环境,选择File菜单New命令,在弹出的对话框中选择Projects页的MFC AppWizard(EXE)项并在Project name编辑框中敲入工程名(例如:engineer),然后单击OK。这样便进入了AppWizard(向导)的第一步,在这一步里用户要选择工程类型,可以选择单文档或多文档工程,初学者最好选单文档类型;单击Next进入向导的第二步、第三步、直到完成(Finish之后OK),这几步用户可以采用默认设置。到此为止一个VC的项目已建好,然后用户的工作就是在这个项目中实现MAPGIS平台中的功能及自己想要的其他功能。
第二步:要完成的工作是将工程中的视图类改为继承CGisView类。具体操作是打开工程中的视图类的两个文件(*View.h、*View.cpp),用Visual C++查找替换功能(Edit菜单下的Replace命令或热键Ctrl+H)分别将这两个文件中的CView字符串全部替换为isView,替换完毕,在工程中视图类的定义前面加入#include “cgisview.h”,这样就完成了CGisView类的继承。
第三步:调用CGisView类中的OnDraw(pDC)函数,以完成绘图工作的预先处理。具体操作方法:在视图类的OnDraw(CDC* pDC)函数中加语句CGisView。添加过程见下面示例:
void CEngineerView::OnDraw(CDC* pDC)
{ CEngineerDoc* pDoc = GetDocument();
ASSERT_VALID(pDoc);
// TODO: add draw code for native data here
CGisView::OnDraw(pDC);
} 第四步:对Visual C++的工作环境进行必要的设置,这些设置很重要。
第1项(字节)设置:选择Project菜单下的Settings命令,在C/C++页面上,Category一栏选择 Code Generation,并将Struct Member Alignment设定为1 Byte。
第2项(输出目录)设置:把生成的可执行文件输出到MAPGIS动态连接库所在的目录下。选择Project菜单下的Settings命令,在General页面上,Output files一栏,填写mapgis应用程序目录,例如:
c:\mapgis65\program。
第3项(包含库)设置:设置头文件及库文件的路径。选择Tools菜单下的Options命令,在Directory页面上,在Show directories for:一栏选择include files,在Directories:下面填写MAPGIS二次开发库头文件目录,例如,C:\MAPGIS65\include;然后,在此页面上的Show directories for:一栏再选择library files,在Directories:下面填写MAPGIS二次开发库目录,例如,C:\MAPGIS65\lib。
75、问:ZVelStrcT结构,如何赋参数?
答:
typedef struct
{ LIN_INFO linf; //等值线图形参数.
REG_INFO rinf; //填充区图形参数.
double fZdem; //等值线层值.
char mskOn; //该层注记开关.
} ZVelStrcT; //高程等值结构.
如果要追踪n层等值线,就申请n+1个层结构(区间)!!!
赋值说明:
1. 前两个参数可参考线/区图形参数结构赋值;
2. fZdem为当前层高程值;
3. mskOn=0/1,表示该层不注记/注记.
76、问:怎样获得正在编辑的工作区号?
答:
CGisEditView:: GetEditArea
原型:short GetEditArea(short aitype);
参数:入口 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<n;i++) /*编者注:这行有问题,图元实体号应从1开始*/
_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等。