Create Alignment

[ebarlevi]

Hi,

I am trying to learn NET by example. ( I know some VB)

Is there a complete code for creating an alignment from ployline ?

Thanks

[Jeff_M]

Sure:

C:\Program Files\Autodesk\AutoCAD Civil 3D 2013\Sample\Civil 3D API\DotNet\VB.NET\AlignmentSample

The same example shipped with C3D2010-2012

[ebarlevi]

Right but,

That program create and draws the polyline, I want to choose the polyline.

[Jeff_M · Accepted solution]

Replace this code in the CreateAlignmentsByLWPolyline function:

         dObjId = CreatePolyline()
         If (dObjId.IsNull) Then
             m_Editor.WriteMessage("Sample Alignment: Error creating a polyline." + Convert.ToChar(10))
             Return False
        End If

With this:

            Dim dObjId As ObjectId
            dObjId = SelectPolyline()
            If (dObjId.IsNull) Then
                m_Editor.WriteMessage("Sample Alignment:  Error getting a polyline." + Convert.ToChar(10))
                Return False
            End If

Then add this Function to the end of the class:

        Public Function SelectPolyline() As ObjectId
            Dim oPoly As ObjectId = Nothing
            Dim entOpts As New PromptEntityOptions("Select polyline:")
            entOpts.SetRejectMessage("...not a LWPolyline, try again!")
            entOpts.AddAllowedClass(GetType(Polyline), True)
            Dim entRes As PromptEntityResult = m_Editor.GetEntity(entOpts)
            If entRes.Status = PromptStatus.OK Then
                oPoly = entRes.ObjectId
            End If
            Return oPoly
        End Function

[Anonymous]

Please take a look at the following :

http://adndevblog.typepad.com/infrastructure/2012/06/do-you-want-to-programmatically-convert-polylin...

Hope this helps.

[ebarlevi]

Thank you very much !

Works like a charm

[Anonymous]

Would you please mark this as "Solved" ?

Thanks,