GIS课件实验5-7 地图矢量化和 与专题地图制作及地图浏览系统开发（7学时）.ppt

实验5-6 地图矢量化与专题地图制作实验7 MapObjects软件应用 一、实验内容 二、现场评分 时间： 农信1201班：4月11日（周六）下午2：00-6：00 农信1202班：4月11日（周六）晚6：00-10：00 一、实验内容 1、用ArcView打开中国行政区划地图（JPG格式），进行屏幕跟踪矢量化，保存图层，用Arc/Info软件建立拓扑关系（shapearc、build、clean），矢量中国行政区划地图；属性表内添加属性字段（省区市名称、总人口数），标注省区市名称，创建“2013年中国人口分布专题地图（制作人：***）”，Layout，输出为JPG图片。 2、建立一个中国电子地图浏览系统。要求：（1）窗体BorderStyle属性选1、Caption为自己姓名，窗体背景色为浅蓝色。运行时窗体最大化显示。（2）在窗体中添加Map控件，Map1的大小占整个窗体大小3/4左右，且Map1上下边框和左边框与窗体的边框重合，在Map1上添加矢量化的中国行政区划图层。要求Map1底色为浅灰色，中国行政区划图层为绿色。（3）在Map1上按左键用鼠标画框，实现地图放大，按右键拖动鼠标实现地图移动。 （4）在Map1右侧添加四个命令按钮，命令按钮背景色为浅绿色，Caption分别为缩小、还原、帮助、退出，字体为宋体、大小为3号、加粗，编写相应代码使其实现Caption上指定功能。帮助命令按钮代码为： Private Sub Command3_Click() Dim Bs As String Bs = 按右键移动,左键放大； vbCrLf 按“缩小”按钮缩小地图50%； vbCrLf 按“还原”按钮还原地图原始尺寸。 vbCrLf vbCrLf ***,2015/4/11 MsgBox Bs, , 中国电子地图浏览系统帮助 End Sub （5）运行建立的电子地图浏览系统，在Map1上按左键用鼠标画框，使地图适当放大，按右键拖动鼠标使地图移动一定距离。再点击帮助按钮。 附1：中国各省区市人口数（2013） 单位：万人 注：据《中国统计年鉴（2014）》。共34个省市区；香港在东，澳门在西。 省区市名称 年末人口 省区市名称 年末人口 省区市名称 年末人口 广东 10644 江西 4522 新疆 2264 河南 9413 辽宁 4390 上海 2415 山东 9733 黑龙江 3835 北京 2115 四川 8107 贵州 3502 天津 1472 江苏 7939 陕西 3764 海南 895 河北 7333 福建 3774 香港 718 湖南 6691 山西 3630 宁夏 654 安徽 6030 重庆 2970 青海 578 湖北 5799 吉林 2751 西藏 312 浙江 5498 甘肃 2582 澳门 59 广西 4719 内蒙古 2498 总计：大陆136072万人、港澳台3114万人 云南 4687 台湾 2337 附2：MO图层加载和地图操作 1、添加Map控件：在VB上建立一个FORM后，在【工程】/【部件】中选择“ESRI MapObjects2.2”,就可从左面工具箱上向FORM添加Map控件实例。Map控件实例缺省命名为Map1。可根据应用情况给它改名。 2、手工加载图层：在Map1上右击，在菜单中选择【特性】，单击弹出的图层设置界面中间的【Add】或【Remove】，可加载或卸载图层，按上下箭头，调整图层覆盖关系。 3、地图操作的基本功能 （1）地图放大：要实现的第一个功能是GIS系统地图放大功能。 Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Set Map1.Extent = Map1.TrackRectangle End Sub 运行此程序，在地图上用鼠标画框，就可进行地图放大。 （2）地图移动：在MO中，实现用鼠标移动地图的功能，其语句为： Map1.pan 以下程序实现按右键移动、左键放大功能。运行时先对地图放大，才能移动。 * *