ポイント グループを使用してポイントを追加する

AeccTinSurface.PointGroups コレクションにポイント グループを追加することによって、TIN サーフェスにポイントを手動で追加できます。

' Make a surface consisting of 30 random points. To do
' this, first add 30 points to the document's collection
' of points, then make a point group from those points. 
' Finally, add that point group to the surface.
Dim i As Integer
For i = 0 To 29
    Dim pt(0 To 2) As Double
    pt(0) = Int(5000 * Rnd())
    pt(1) = Int(5000 * Rnd())
    pt(2) = Int(200 * Rnd())
    Dim oPoint As AeccPoint
    Set oPoint = oAeccDocument.Points.Add(pt)
    oPoint.Name = "Point" & CStr(i)
Next i
 
Dim oPtGroup As AeccPointGroup
Set oPtGroup = oAeccDocument.PointtGroups.Add("Random group")
' Add all points with a name beginning with "Point"
oPtGroup.QueryBuilder.IncludeNames = "point*"
' Add the point group to the surface.
oTinSurface.PointGroups.Add oPtGroup
oTinSurface.Update

また、等高線を追加することによってサーフェスにポイントを追加することもできます。詳細は、「TIN サーフェスに等高線を追加する」を参照してください。

サーフェスを構成するすべてのポイントは、位置の配列である読み込み専用 AeccTinSurface.Points プロパティから取得できます。

' Print the location (easting, northing, and elevation)
' of the 1000th point.
Dim vLocation as Variant
vLocation = oTinSurface.Points(1000)
 
' Now vLocation contains a 3 element array of doubles.
Debug.Print "Easting:"; vLocation(0)
Debug.Print "Northing:"; vLocation(1)
Debug.Print "Elevation:"; vLocation(2)