Hi,
this is very raw example just for testing AeccCorridor using COM API.
Public Sub ShowCorridorDetails()
Dim ed As Autodesk.AutoCAD.EditorInput.Editor = Application.DocumentManager.MdiActiveDocument.Editor
Dim C3DApp As New C3DUtilities.C3DUtil
Dim objEnt As Autodesk.AutoCAD.Interop.Common.AcadEntity = AutocadUtilities.CadUtil.SelectEntityByCOM("Select a corridor")
If TypeOf objEnt Is Autodesk.AECC.Interop.Roadway.AeccCorridor Then
Try
Dim oCorridor As AeccCorridor = CType(objEnt, AeccCorridor)
ed.WriteMessage(vbCrLf + "CorridorName = " + oCorridor.Name)
ed.WriteMessage(vbCrLf + "CorridorDisplayName = " + oCorridor.DisplayName)
ed.WriteMessage(vbCrLf + "CorridorDescription = " + oCorridor.Description)
ed.WriteMessage(vbCrLf + "CorridorColor = " + oCorridor.TrueColor.ColorName)
ed.WriteMessage(vbCrLf + "CorridorLayer = " + oCorridor.Layer)
ed.WriteMessage(vbCrLf + "CorridorOutOfDate = " + oCorridor.OutOfDate.ToString)
Dim oBaselines As AeccBaselines = oCorridor.Baselines
ed.WriteMessage(vbCrLf + "CorridorBaselines = " + oCorridor.Baselines.Count.ToString)
For Each oBaseline As AeccBaseline In oBaselines
ed.WriteMessage(vbCrLf + "BaselineType = " + oBaseline.Type.ToString)
ed.WriteMessage(vbCrLf + "BaselineProfile = " + oBaseline.Profile.Name)
ed.WriteMessage(vbCrLf + "BaselineAlignment = " + oBaseline.Alignment.Name)
ed.WriteMessage(vbCrLf + "BaselineIsProcessed = " + oBaseline.IsProcessed.ToString)
ed.WriteMessage(vbCrLf + "BaselineRegions = " + oBaseline.BaselineRegions.Count.ToString)
For Each item As AeccBaselineRegion In oBaseline.BaselineRegions
Next
Dim oFeatureLines As AeccBaselineFeatureLines = oBaseline.MainBaselineFeatureLines
Dim oOffsetBaselineFLines As AeccBaselineFeatureLinesCol = oBaseline.OffsetBaselineFeatureLinesCol
Next
Dim oCorSurfaces As AeccCorridorSurfaces = oCorridor.CorridorSurfaces
Dim oFeaLineInfos As AeccFeatureLineCodeInfos = oCorridor.FeatureLineCodeInfos
Catch ex As Exception
End Try
End If
End Sub
