'***************************************************************************** ' CamBam.CAD.PointListUtils ' CreatePointlistFromPolyline(Polyline opoly, int 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.CreatePointlistFromPolyline(ent, 20) End If CamBamUI.MainUI.ActiveView.CADFile.Add(plist.Clone) Next ent CamBamUI.MainUI.ActiveView.RefreshView() End If End Sub