コリドー サーフェスのリストを取得する

各コリドーのすべてのコリドー サーフェスのコレクションは、AeccCorridor.CorridorSurfaces プロパティに保持されます。 各コリドー サーフェスには、サーフェスの境界と、サーフェスの作成に使用するすべてのポイント、リンク、および計画線コードのリストが含まれています。さらに、サーフェスの作成に使用するサーフェス スタイルと横断スタイルの読み込み専用の参照も含まれています。

注:

Autodesk Civil 3D API には、新しいコリドー サーフェスを作成するメソッドと既存のコリドー サーフェスを変更するメソッドは含まれていません。

次のサンプルでは、コリドー内のすべてのコリドー サーフェスを取得し、使用されたポイント コードを指定します。

Dim oCorridorSurface As AeccCorridorSurface
For Each oCorridorSurface In oCorridor.CorridorSurfaces
    Debug.Print "Surface name: "; oCorridorSurface.Name
 
    ' Get the point codes that were used to construct
    ' this surface.
    Dim sCodes() As String
    Dim sCodeList As String
    Dim i as Integer
    sCodes = oCorridorSurface.PointCodes
    For i = 0 To UBound(sCodes)
        sCodeList = sCodeList & " " & sCodes(i)
    Next i
    Debug.Print "Point codes: " & sCodeList
Next