Topic: Add alignment station offset labels

[krkec]

Hi

Can someone tell me how to add alignment station offset labels with vb.net.

[Jeff_M]

Dim StaOffId As ObjectId = StationOffsetLabel.Create(alignmentId, labelStyleId, markerStyleId, location)

Location is given as a 2d point

[krkec]

Thanks

but where can I learn Civil3d api.
For example I have another problem  - how to change LableSyle layer and a searched internet and developers guide  and I cant find anything.

[Jeff_M]

You have to examine the API documentation. http://docs.autodesk.com/CIV3D/2013/ENU/API_Reference_Guide/index.html

The Layer Property of a labelstyle is buried in the style here, where styl is a LabelStyle object opened for Read:
styl.Properties.Label.Layer.Value

This returns the Name of the layer as a string.

[krkec]

But how i change it

[Jeff_M]

Give it a new value after changing the OpenMode....

styl.UpgradeOpen()
styl.Properties.Label.Layer.Value = "NewLayerName"
styl.DowngradeOpen()

[krkec]

But  layer is still read only

here is my code:
            Dim opt As PromptEntityOptions = New PromptEntityOptions("\nOdaberite apligment:")
            opt.SetRejectMessage("\nObjekt mora biti aligment")
            opt.AddAllowedClass(GetType(Alignment), False)
            Dim alignid As ObjectId = ed.GetEntity(opt).ObjectId
            Dim align As Alignment = TryCast(tr.GetObject(alignid, OpenMode.ForRead), Alignment)
            Dim StacOff As ObjectId = doc.Styles.LabelStyles.AlignmentLabelStyles.StationOffsetLabelStyles.Add("Ceste")
            Dim last As Autodesk.Civil.DatabaseServices.Styles.LabelStyle = StacOff.GetObject(OpenMode.ForWrite)
            Dim StacOff1 As ObjectId = last.CopyAsSibling("Ceste2")
         Dim last1 As Autodesk.Civil.DatabaseServices.Styles.LabelStyle = StacOff1.GetObject(OpenMode.ForWrite)
         last1.UpgradeOpen()
            last1.Properties.Label.Layer = "0"
            last1.DowngradeOpen()

my app goal is to simpy copy Labelsstyle and hange its layer

[Jeff_M]

        Dim last1 As Autodesk.Civil.DatabaseServices.Styles.LabelStyle = StacOff1.GetObject(OpenMode.ForWrite)
         ''last1.UpgradeOpen() ''not needed since you opened it for Write already
            last1.Properties.Label.Layer.Value = "0" ''you omitted the Value portion
           '' last1.DowngradeOpen() ''remove since UpgradeOpen isn't used

[krkec]

Biiiig thanks Jeff