基線測点にアクセスして変更する

アセンブリ横断は、基線に沿って一定間隔で配置されます。基線に沿って配置されているアセンブリのすべての測点のリストは、AeccBaseline.GetSortedStations メソッドを使用して取得できます。基線リージョン上のすべての測点は、AeccBaselineRegion.GetSortedStations メソッドを使用して取得できます。

Dim v As Variant
v = oBaselineRegion.GetSortedStations()
Dim i As Integer
Debug.Print "Assembly stations:"
For i = 0 To UBound(v)
    Debug.Print v(i)
Next i

AddStation メソッドを使用すると、新しい測点を基線および基線リージョンに追加できます。 DeleteStation メソッドを使用すると、既存の測点を削除できます。 DeleteStation には、一定範囲内の測点を指定するオプションの tolerance パラメータが含まれています。AeccBaselineRegion.GetAdditionalStation メソッドを使用すると、基線リージョンに追加されたすべての測点のリストを取得できます。 AeccBaselineRegion.ClearAdditionalStations を使用すると、基線リージョンに追加されたすべての測点を削除し、一定間隔で作成された元の測点だけを残すことができます。

' Add an assembly to the baseline at station 12+34.5
oBaseline.AddStation 1234.5, "Station description"
 
' Remove the station located within 0.1 units around 5+67.5
oBaseline.DeleteStation 567.5, 0.1