Editing Station property of a Sampleline using AeccSampleLine.Station API

By Partha Sarkar

This VB.NET
code snippet demonstrates how to add a Civil 3D SampleLine using COM API
IAeccSampleLines:: AddByPolyline() method and then check whether the sample
line is locked to the station using  IAeccSampleLine:: LockToStation, before updating it's Station value using COM API
IAeccSampleLine:: Station Property.

'idEnt is Polyline ObjectId
Dim pLineEntity As Autodesk.AutoCAD.DatabaseServices.Entity = _
  DirectCast(trans.GetObject(idEnt, OpenMode.ForWrite), Autodesk.AutoCAD.DatabaseServices.Entity)
 
'idEnt1 is Alignment ObjectId
Dim alignmentEntity As Autodesk.AutoCAD.DatabaseServices.Entity = _
  DirectCast(trans.GetObject(idEnt1, OpenMode.ForWrite), Autodesk.AutoCAD.DatabaseServices.Entity)
 
Dim pline As Autodesk.AutoCAD.Interop.Common.AcadLWPolyline = _
  DirectCast(pLineEntity.AcadObject, Autodesk.AutoCAD.Interop.Common.AcadLWPolyline)
Dim oAlignment As Autodesk.AECC.Interop.Land.AeccAlignment = _
  DirectCast(alignmentEntity.AcadObject, Autodesk.AECC.Interop.Land.AeccAlignment)           
 
 
Dim oSampleLine As Autodesk.AECC.Interop.Land.AeccSampleLine = _
  oAlignment.SampleLineGroups.Item(0).SampleLines.AddByPolyline("My_SampleLine", pline, False)
 
'' IAeccSampleLine:: Station Property
'' Gets or sets the alignment station for this sample line.
ed.WriteMessage(vbCrLf + "Station Value :" + oSampleLine.Station.ToString())
 
' Check whether the sample line is locked to the station
If(oSampleLine.LockToStation)
  oSampleLine.LockToStation = False
End If
 
'' Now Change the Station Value
'' Following hardcoded value is applicable to Civil 3D Sample DWG - "Sections-Views-Create.dwg"
oSampleLine.Station = 550.50
ed.WriteMessage(vbCrLf + "Station Value After Change:" + oSampleLine.Station.ToString())
trans.Commit()

Here is the Result :

Hope this is useful to you!