- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
浅议MapGIS在地质制图中应用
摘要:文章简要讨论了 MAPGIS的主要功能,阐述 了利用MAPGIS软件制作地质图设计与制作成图的过程,以 及不同专题图专题内容的表示方法,在文章中介绍了地质图 制作的工作流程,图象处理方法,以及在图象生成之后地质 图的校正美化。
关键词:地质图;MapGIS中制图;地图库;组件开发
前言
地质图是显示地壳表面的岩石分布、地层年代、地质构 造、岩浆活动等地质现象的地图,是地质工作不可缺少的专 题图件,地质图需要专业人员在野外实际填绘,通常的做法 是先将地壳的所有地质现象抽象成点、线、面注记符号等, 然后以普通地图为底图,通过正射投影将这些地理空间实体 投影到地理底图上,以实现地质现象的可视化表达。
地质图具有图形复杂,信息量大,数据多样的特点,因 此需要通过合理的数据组织,尽量避免重复工作。在制作过 程中,我们充分发挥了 MapGIS系统的图形数据库的数据管 理功能,通过数据检索来快速有效地控制图形,提高了准确 性和编辑的工作效率。
1文件输入编辑
1文件格式转换
由于MapGIS中所使用的影像格式为.msi,所以要先进 行格式转换,将需要在M apGIS中进行处理的.tiff格式的影 像文件转换成?msi格式
1.2影像校正
格式转换完成之后就可以进行对影像的下一步处理:影 像校正。
由于图纸变形、人为导致的误差等原因会使得底图变得 不够精确,所以在进行矢量化等操作之前要对载入的底图进 行影像校正。影像校正是图像处理前重要的一个步骤,是以 后所有操作的前提。
2地图库
图1数据转换对话框
1地图库的意义
一个区域的基础数据可能由若干幅相同比例尺的、标准 图幅的地形图组成,那么如何管理成百上千幅复杂的地形图 呢? MAPGIS提供了方便的工具,即地图库管理子系统来进 行有效的管理,同时还提供了图幅查询检索、图幅接边等 工具。
为了有效管理地图,本系统采用了分层、分幅的设计 思想。一个地图库是由若干个图幅、若干个要素层及影像库 层组成。
MAPGIS海量地图库管理子系统属于通用的地图数据库 管理系统。
MAPGIS海量地图库管理子系统采用了层类的概念,以图 幅为单位来管理地图数据。每个图幅由若干层组成。这使得 图库管理更有层次感,更具条理性。它给用户提供了灵活直 观的数据入库手段、多种强有力的数据查询途径。针对地图 数据库管理的特殊性,本系统给用户提供了图幅与图幅之间 的线和区的接边功能,以消除相邻图幅间的接合误差,使这 些图幅拼接成为一完整地图时,不会让人感到整幅图是分块 的结果。
2.2地图库的建立
为了避免符号的压盖,所以在建立图库,文件批量入库 时,一定要按照线f点文件的顺序入库。
3基于VB环境的MapGIS的组件开发
3.1组件开发的意义
组件对象模型(COM)技术给程序设计理念带来了新的 突破,并且标志着未来应用程序的发展趋势。
组件技术给GIS的发展注入了新的活力,从用户的角 度来看,组件就是一系列软件模块,你可以轻而易举的将这 些模块组装起来构建满足自己需求的、功能强大的应用程 序。
3.2组件开发实例
2. 1打开图库
Private Sub mnuOpenDBS_Click ()
Set pDBSArea 二 pDBSLayer. WorkArea
pDBSArea. Load
EditView? SetWinMapRange pDBSArea? rect. xmin , pDBSArea. rect? ymin , pDBSArea. rect. xmax ,
pDBSArea? rect. ymax
EditView. RestoreWindow
End Sub
3. 2. 2图形显不
Private Sub mnuGraphDisp_Click ()
If Not pDBSArea Is Nothing Then
If IsGraDisp 二 False Then
With mnuGraphDisp
.Checked 二 Not .Checked
End With
With mnuChartDisp
.Checked 二 Not . Checked
End With
With mnuDelFrm
.Enabled = Not ? Enabled
End With
With mnuPntClassNo
Enabled = Not ? Enabled
End With
With mnuPntAtt
.Enabled 二 Not ? Enabled
End With
With mnuLinClassNo
.Enabled 二 Not . Enabled
End With
With mnuLinAtt
.Enabled = Not ? Enabled
End With
W
您可能关注的文档
最近下载
- 2024-2025学年湖南省金太阳高三上学期10月检测数学试题及答案.pdf VIP
- 1FC5同步发电机励磁系统解析.doc VIP
- 生物化学说课讲义省公共课一等奖全国赛课获奖课件.pptx VIP
- 全力以赴 冲刺高考——高三家长会(课件).pptx VIP
- 团队建设(PPT106页)学习课件.pptx VIP
- 广西科技大学2025年809信号与系统考研真题.pdf
- 补全对话(专项训练)-人教PEP版(2024版新教材)英语三年级上册含答案.pdf VIP
- 25新二上语文同步部首查字法专项练习15页(1).pdf VIP
- 宾馆餐厅消防安全培训课件.pptx VIP
- 《顶板堆载施工方案》.doc VIP
文档评论(0)