線形内の図形を調べる

AeccAlignment.Entities コレクションの各図形は、AeccAlignmentEntity から派生したタイプです。AeccAlignmentEntity.Type プロパティをチェックすることで、各図形のタイプを調べ、適切なタイプの参照をキャストできます。

次の例では、線形内のすべての図形をループし、図形のタイプを特定して、そのプロパティの 1 つを出力します。

Debug.Print "Number of Entities: "; oAlignment.Entities.Count
 
Dim i as Integer
For i = 0 To oAlignment.Entities.Count - 1
    Select Case (oAlignment.Entities.Item(i).Type)
    Case aeccTangent
        Dim oTangent As AeccAlignmentTangent
        Set oTangent = oAlignment.Entities.Item(i)
        Debug.Print "Tangent length:" & oTangent.Length
    Case aeccArc
        Dim oArc As AeccAlignmentArc
        Set oArc = oAlignment.Entities.Item(i)
        Debug.Print "Arc radius:" & oArc.Radius
    Case aeccSpiral
        Dim oSpiral As AeccAlignmentSpiral
        Set oSpiral = oAlignment.Entities.Item(i)
        Debug.Print "Spiral A value:" & oSpiral.A
    Case aeccSpiralCurveSpiralGroup
        Dim oSCSGroup As AeccAlignmentSCSGroup
        Set oSCSGroup = oAlignment.Entities.Item(i)
        Debug.Print "Radius of curve in SCS group:" _
          & oSCSGroup.Arc.Radius
 
    ' And so on for AeccAlignmentSTSGroup,
    ' AeccAlignmentSTGroup, AeccAlignmentTSGroup
    ' AeccAlignmentSCGroup, and AeccAlignmentCSGroup types.
    End Select
Next i

各図形は、その AeccAlignmentEntity.Id プロパティに含まれる識別番号を持ちます。各図形は線形内における前後の図形の番号を認識します。また、AeccAlignmentEntities.EntityAtId メソッドを使用することで識別番号で特定の図形にアクセスできます。