VB Net Feature Line Style

[Anonymous]

Hello all,

I am trying to set the corredor feature line style using VB.Net. I was used to program with VBA and now I'm beginning to learn VB.Net... So, I started to write the following code and I was able to list the feature line codes:

Dim CivilDoc As CivilDocument = Autodesk.Civil.ApplicationServices.CivilApplication.ActiveDocument()
 
Dim Trans As Transaction = Application.DocumentManager.MdiActiveDocument.Database.TransactionManager.StartTransaction
 
Dim ObjID As ObjectId
Dim i As Integer
Dim Corred As Corridor
Dim FeatInf As FeatureLineCodeInfo
 
For Each ObjID In CivilDoc.CorridorCollection
Corred = Trans.GetObject(ObjID, OpenMode.ForRead)
 
       For i = 0 To Corred.FeatureLineCodeInfos.Count
 
             FeatInf = Corred.FeatureLineCodeInfos.Item(i)
 
       Next i
 
Next ObjID

But how can I change the feat. lines styles as I can manually do with "corridor > right-click > properties > feature lines" (show in the picure bellow)? Where can I found the corridor feature line properties to be able to change the corresponding codes?

Thanks a lot,

Diego Álvares

[Anonymous · Accepted solution]

Solved!

Dim CivilDoc As CivilDocument = Autodesk.Civil.ApplicationServices.CivilApplication.ActiveDocument()
            Dim ObjID As ObjectId
            Dim Corred As Corridor
            Dim Trans As Transaction = Application.DocumentManager.MdiActiveDocument.Database.TransactionManager.StartTransaction
            Dim BaseL As Baseline
            Dim FeatCol As FeatureLineCollection
            Dim CorrFL As CorridorFeatureLine

            Dim i As Integer
            'Dim j As Integer
            
            For Each ObjID In CivilDoc.CorridorCollection
                Corred = Trans.GetObject(ObjID, OpenMode.ForRead)

                For i = 0 To Corred.Baselines.Count - 1
                    BaseL = Corred.Baselines.Item(i)

                    For Each FeatCol In BaseL.MainBaselineFeatureLines.FeatureLineCollectionMap
                        For Each CorrFL In FeatCol

                            CorrFL.StyleName = "Code_linhas_sarjeta"

                            'For j = 0 To FeatCol.Count - 1
                            '    CorrFL = FeatCol.Item(i)
                            'Next j
                        Next CorrFL
                    Next FeatCol
                Next i
            Next ObjID