gis的應用ppt課件-資料下載頁
2025-01-14 03:23本頁面
【正文】 point End If Next End Function Dim K As Integer, L As Integer 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。找到最短的擴展邊 FindInitializePoints ‘構造第一個三角形 minCosine = 1 Vertex1 = minVertex1: Vertex2 = minVertex2 Set Point1 = (Vertex1) Set Point2 = (Vertex2) count = For i = 1 To count If i Vertex1 And i Vertex2 Then Set Point3 = (i) Cosine = MinAngle(Point1, Point2, Point3) If Cosine minCosine Then minCosine = Cosine Vertex3 = i End If End If Next = Vertex1: = Vertex2 = Vertex3 pTriangle: Set pTriangle = Nothin
教學課件相關推薦
鄂ICP備17016276號-1