勾配変移点を編集する

2 つの隣接する接線が交差するポイント(実際に交差しているかどうかは関係ない)を、勾配変移点(PVI)と呼びます。このポイントは、接線とそれらを接続している曲線の両方の勾配を制御するので、縦断のジオメトリを編集するときに役立ちます。縦断のすべての PVI のコレクションは、AeccProfile.PVIs プロパティに含まれています。 このオブジェクトを使用すると、縦断の PVI のアクセス、追加、および削除を実行して、縦断を構成する図形の位置と数を変更できます。個々の PVI (AeccProfilePVI 型)は名前と ID を備えていませんが、特定の測点と標高によって識別されます。コレクションのメソッド AeccProfilePVIs.ItemAt と AeccProfilePVIs.RemoveAt は、測点および標高パラメータに最も近い PVI をアクセスまたは削除します。このため、変更する PVI の正確な位置は必要ありません。

次の例では、指定したポイントに最も近い PVI を識別します。次に、「図形から縦断を作成する」で作成した縦断に新しい PVI を追加して、その標高を変更します。

Dim oPVI As AeccProfilePVI
 
' Find the PVI close to station 1000 elevation -70.
Set oPVI = Nothing
Set oPVI = oProfile.PVIs.ItemAt(1000, -70)
Debug.Print "PVI closest to station 1000 is at station: "; 
Debug.Print oPVI.Station
 
' Add another PVI and slightly adjust its elevation.
Set oPVI = oProfile.PVIs.Add(607.4, -64.3, aeccProfileTangent)
oPVI.Elevation = oPVI.Elevation - 2#