topic 回复： Finding Baseline Name with COM Interface in Civil 3D Customization Forum

Finding Baseline Name with COM Interface

GTVic — Wed, 27 Sep 2023 07:45:47 GMT

The following code comes from C:\ProgramData\Autodesk\C3D 2023\enu\Data\Reports\Net\Source\C3DReports\C3DReports.vbproj

The issue is that cycling through the Baselines (COM) gives you only the alignment name associated with the Baseline and the same alignment name can be in use for multiple baselines. The Using section has been added to show it is easy to cycle through the baselines (NET) and get all the baseline names. There doesn't seem to be a method for translating the COM object to .NET.

I could assume that when cycling through the order is the same in .NET and COM.

' this works

Dim sampleLineGroupId As ObjectId = FromAcadObject(AeccLandLib.AeccSampleLineGroup)

Dim oSampleLineGroup As SampleLineGroup = trans.GetObject(sampleLineGroupId , OpenMode.ForRead)

' this does not work

Dim baseLineGroupId As ObjectId = FromAcadObject(AeccRoadLib.AeccBaseline)

Dim oBaseline As Baseline = trans.GetObject(oBaseline, OpenMode.ForRead)

Code from ReportForm_CorridorSlopeStake:

For Each oBaseline As AeccRoadLib.IAeccBaseline In oCorridor.Baselines If oCorridorInfo.mBaselines.ContainsKey(oBaseline.Alignment.Name) = False Then Dim oBaselineInfo As CBaseline oBaselineInfo = New CBaseline Dim currentSamplelineGroupCount As Integer = 0 Dim currentSamplelineCount As Integer = 0 Dim currentLinkCodesGroupCount As Integer = 0 Dim currentBaselineName As String = "" Using trans As Transaction = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.TransactionManager.StartTransaction Dim doc As CivilDocument = CivilApplication.ActiveDocument For Each objId As ObjectId In doc.CorridorCollection Dim objCorridor As Corridor = trans.GetObject(objId, OpenMode.ForRead) For Each baselineEnt As Baseline In objCorridor.Baselines currentBaselineName = baselineEnt.Name Dim alignmentEnt As Alignment = trans.GetObject(baselineEnt.AlignmentId, OpenMode.ForRead) currentBaselineName = baselineEnt.Name & " - " & alignmentEnt.Name Next Next End Using If buildBaselineInfo(oBaseline, oBaselineInfo, currentSamplelineGroupCount, currentSamplelineCount, currentLinkCodesGroupCount) Then oCorridorInfo.mBaselines.Add(oBaseline.Alignment.Name, oBaselineInfo) End If samplelineGroupCount += currentSamplelineGroupCount samplelineCount += currentSamplelineCount linkCodesGroupCount += currentLinkCodesGroupCount End If Next

回复： Finding Baseline Name with COM Interface

465340553 — Sat, 07 Oct 2023 07:13:03 GMT

Baseline probably not Database Object，

There is no correspondent ObjectID.

回复： Finding Baseline Name with COM Interface

GTVic — Tue, 10 Oct 2023 16:44:11 GMT

Thanks, that makes sense.

Can I assume the following code retrieves the exact same baselines in the same order in any drawing?

' COM loop For Each oBaseline As AeccRoadLib.IAeccBaseline In oCorridor.Baselines ' NET loop For Each baselineEnt As Baseline In objCorridor.Baselines

回复： Finding Baseline Name with COM Interface

465340553 — Wed, 11 Oct 2023 00:49:41 GMT

I don't think so，

Corridors are different，

Baselines are different.

回复： Finding Baseline Name with COM Interface

GTVic — Thu, 12 Oct 2023 21:11:22 GMT

I'll ask the question in a different way.

Assuming oCorridor and objCorridor are COM and .NET variables that point to the exact same corridor, would each For loop return the baselines for that corridor in the same order?

回复： Finding Baseline Name with COM Interface

465340553 — Fri, 13 Oct 2023 01:31:38 GMT

public void C_Test20231013() { Document doc = Application.DocumentManager.MdiActiveDocument; Database db = doc.Database; var comCivilDoc = (Autodesk.AECC.Interop.UiLand.AeccDocument)((Autodesk.AECC.Interop.UiLand.AeccApplication)((AcadApplication)Application.AcadApplication).GetInterfaceObject("AeccXUiland.AeccApplication.12.0")).ActiveDocument;// civil 3d 2018 using (Transaction tr = doc.TransactionManager.StartTransaction()) { var corridorId = CivilApplication.ActiveDocument.CorridorCollection[0]; var netCorridor = corridorId.GetObject(OpenMode.ForRead) as Corridor; doc.Editor.WriteMessage("\n.Net baseline Info"); foreach (var bl in netCorridor.Baselines) { //doc.Editor.WriteMessage("\n" + bl.Name); doc.Editor.WriteMessage("\n" + bl.StartStation); doc.Editor.WriteMessage("\t" + bl.EndStation); } Autodesk.AECC.Interop.Roadway.IAeccCorridor comCorridor = comCivilDoc.ObjectIdToObject(corridorId.OldIdPtr.ToInt64()); doc.Editor.WriteMessage("\nCom baseline Info"); foreach (Autodesk.AECC.Interop.Roadway.AeccBaseline bl in comCorridor.Baselines) { //doc.Editor.WriteMessage("\n" + bl.Name); doc.Editor.WriteMessage("\n" + bl.StartStation); doc.Editor.WriteMessage("\t" + bl.EndStation); } tr.Commit(); } }

I tested a dwg，

The results obtained were consistent.

By the way，

Use Com API，

I can't get the name of the baseline，

There is no API to get the name：

回复： Finding Baseline Name with COM Interface

GTVic — Fri, 13 Oct 2023 01:29:49 GMT

Thank you.

This question arises from Toolspace > Reports Manager > Corridor > Slope Stake Report.

Notice that it does not allow you to select the Baseline, only the Alignment. If you have multiple Baselines with the same alignment it will list the alignment only once so you will be reporting on the first Baseline that uses the alignment. My modification allows selection by Baseline instead by retrieving the Baseline names via .NET.

Modified version:

回复： Finding Baseline Name with COM Interface

465340553 — Fri, 13 Oct 2023 02:09:58 GMT

These codes are relatively early，

When writing this code there may not be .Net API,

Now，Only use .Net API ，all can be done.