【正文】
r Dim pTriangle As New Triangle Dim Vertex3 As Integer, Vertex1 As Integer, Vertex2 As Integer, Vertex4 As Integer Dim i As Integer, j As Integer, count As Integer Dim minCosine As Double, Cosine As Double Dim Point1 As AcadPoint, Point2 As AcadPoint, Point3 As AcadPoint, Point4 As AcadPoint Dim PointNum As Integer Dim SideSign() As Integer ‘構建邊使用情況矩陣 PointNum = If PointNum = 0 Then MsgBox 沒有找到離散的高程點 ! Exit Function End If ReDim SideSign(1 To PointNum, 1 To PointNum) For i = 1 To PointNum For j = 1 To PointNum SideSign(i, j) = 0 Next Next 39。 72 GIS與遙感( RS)的結合 一、 GIS與遙感結合的必要性 遙感是 GIS重要的數據源,有效的數據更新手段 1)遙感手段能夠迅速、準確、綜合性地大范圍地采集環(huán)境和資料數據 2)遙感數據具有多光譜和的動態(tài)多時相特點 3)為 GIS數據更新提供了全方位的手段和動態(tài)數據源 GIS可為遙感分析提供有用的輔助信息和手段 1)有助于提高遙感數據自動分類的精度 2)為遙感應用分析提供一個良好的環(huán)境 3)有助于提高遙感信息識別的精度和效率 二、 GIS與遙感結合的途徑 (a) 發(fā)展一個能綜合處理矢量和柵格數據的矢柵一體的 GIS (b) 通過國際標準的空間數據交換格式作中間媒介、相互轉換 (c) 通過 GIS與遙感系統(tǒng)間建立接口,實現格式轉換與數據傳送 重慶衛(wèi)星影像圖 167。房地產開發(fā)和銷售過程中也可以利用 GIS功能進行決策和分析。 五、生態(tài)、環(huán)境管理與模擬(Environmental Management and Modeling) 區(qū)域生態(tài)規(guī)劃、環(huán)境現狀評價、環(huán)境影響評價、污染