GIS应用系统中图形的操作.docVIP

重 庆 交 通 大 学 学 生 实 验 报 告 实验课程名称 地理信息系统软件二次开发 开课实验室 空间数据处理实验室 学 院 河海学院 年级 2008 专业班 1 学 生 姓 名 学 号 开 课 时 间 2011 至 2012 学年第 1 学期 总 成 绩 教师签名 目录 实验四 GIS应用系统中图形的操作 3 一、实验内容 3 二、实验要求 3 三、实验步骤 3 1、系统完善； 3 2、图形求交 4 3、图形求并 7 4、图形求差 11 5、图形异或 14 四、实验成果 18 五、实验心得 18 实验四 GIS应用系统中图形的操作 一、实验内容 1、学习运用代码在所编系统中进行图形的基本操作； 2、完善系统。 二、实验要求 1、完善系统，实现在主窗体中调用多个窗体； 2、运用代码实现图形相交； 3、运用代码实现在图形求并； 4、运用代码实现在图形求差； 5、运用代码实现在图形异或； 三、实验步骤 1、系统完善； 在主界面窗体中完善系统界面，在“图形操作”菜单栏下添加图形求并、图形求差、图形求交、图形异或等选项，如图4-1（系统界面） 图4-1（系统界面） 2、图形求交 由于学生水平局限，不能够在一个窗体中完成所有功能的，因此此实验在多个窗体中实现，添加名为“frmintersection”的窗口，设置其界面，如图4-2 图4-2（frmintersection窗体界面） 在代码窗口中写入以下代码： Dim Poly As MapObjects2.Polygon Dim Poly1 As MapObjects2.Polygon Dim Poly2 As MapObjects2.Polygon Private Sub Command1_Click() Dim p As Point Dim Pts As MapObjects2.Points 第一个Polygon Set Poly1 = New MapObjects2.Polygon Set Pts = New MapObjects2.Points Set p = Map1.ToMapPoint(100, 100) Pts.Add p Set p = Map1.ToMapPoint(5500, 1500) Pts.Add p Set p = Map1.ToMapPoint(800, 3200) Pts.Add p Poly1.Parts.Add Pts 第二个Polygon Set Poly2 = New MapObjects2.Polygon Set Pts = New MapObjects2.Points Set p = Map1.ToMapPoint(500, 500) Pts.Add p Set p = Map1.ToMapPoint(3500, 1500) Pts.Add p Set p = Map1.ToMapPoint(2000, 3000) Pts.Add p Poly2.Parts.Add Pts Set Poly = Nothing Map1.TrackingLayer.Refresh True End Sub Private Sub Command2_Click() If Not Poly1 Is Nothing Then Set Poly = Poly1.Difference(Poly2) Map1.TrackingLayer.Refresh True Else MsgBox 先点击“显示Polygon”按钮！ End If End Sub Private Sub Form_Load() frmintersection.WindowState = 2 Map1.Width = Screen.Width - 3400 Map1.Height = Screen.Height - 2450 End Sub Private Sub Map1_AfterTrackingLayerDraw(ByVal hDC As stdole.OLE_HANDLE) Dim sym As New Symbol, sym1 As New Symbol, sym2 As New Symbol sym.Color = moRed sym1.Color = moGreen sym2.