'*****************************************************************************
' CamBam.CAD.PointListUtils
' CreatePointlistFromPolylineStep(Polyline opoly, double steps)
'
'*****************************************************************************


Sub main()

    Dim plist As PointList = New PointList

    If CamBamUI.MainUI.ActiveView.SelectedEntities.Length > 0 Then

        For Each ent As Entity In CamBamUI.MainUI.ActiveView.SelectedEntities

            If TypeOf ent Is Polyline Then
                plist = PointListUtils.CreatePointlistFromPolylineStep(ent, 20.5)
            End If

            CamBamUI.MainUI.ActiveView.CADFile.Add(plist.Clone)

        Next ent

        CamBamUI.MainUI.ActiveView.RefreshView()

    End If

End Sub