FromPolyline Example

FromPolyline Example

Sub Example_FromPolyline()

    ' This example creates AEC Profile from a 2D Polyline.          

    Dim plineObj As   AcadPolyline

    Dim points(0 To 14) As     Double

    ' Define the 2D polyline points     

    ' The 3rd element is ignored     

    points(0) = 1: points(1) = 1: points(2) = 0: 

    points(3) = 1: points(4) = 2: points(5) = 0:

    points(6) = 2: points(7) = 2: points(8) = 0: 

    points(9) = 3: points(10) = 2: points(11) = 0: 

    points(12) = 4: points(13) = 4: points(14) = 0: 

    ' Create a 2D Polyline object in model space         

    Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)

    On Error Resume Next

    Dim ring As AecRing
    Dim profile As New AecProfile

    Dim doc As AecArchBaseDocument
    Set doc = AecArchBaseApplication.ActiveDocument
    Dim cprofiles As AecProfileStyles
    Dim profileStyle As AecProfileStyle

    Set cprofiles = doc.ProfileStyles
    Set profileStyle = cprofiles.Item("FromPolyline")
    If profileStyle Is Nothing Then
        Set profileStyle = cprofiles.Add("FromPolyline")
    End If
    Set ring = profile.Rings.Add

    ring.FromPolyline plineObj

    plineObj.delete
    Set profileStyle.profile = profile

End Sub