測点セットを作成する

通常、線形測点には一定間隔でラベルが付けられます。AeccAlignment.GetStations メソッドを使用すると、一定間隔で配置された測点の数、位置、およびジオメトリを計算できます。このメソッドは、主測点と副測点の指定された間隔と要求された測点のタイプに基づいて測点のコレクションを返します。要求された測点のタイプが aeccEquation ではない場合、測点値はブレーキ測点を無視します。

Dim oStations As AeccAlignmentStations
 
' If we were to label major stations placed every 100 units
' and minor stations placed every 20, how many labels 
' would this alignment have?
Set oStations = oAlignment.GetStations(aeccAll, 100#, 20#)
Debug.Print "Number of labels: " & oStations.Count
 
' Print the location of each major station in the set.
Dim i as Integer
For i = 0 To oStations.Count - 1
    If (oStations.Item(i).Type = aeccMajor) Then
        Dim j As Integer
        Dim x As Integer
        Dim y As Integer
        j = oStations.Item(i).Station
        x = oStations.Item(i).Easting
        y = oStations.Item(i).Northing
        Debug.Print "Station " & j & " is at:" & x & ", " & y
    End If
Next i