'VB script
' creates a new polyline with fillets from an existing polyline.
'-----------------------------------------------------------


Sub main()

    ThisApplication.ClearLogMessages()

    Dim ent As Entity
    Dim pf As Polyline, p As polyline

    'a new Cad Fillet with radius = 5
    Dim cf As CADFillet = New CADFillet(CamBamUI.MainUI.ActiveView, 5.0)

    ' test if one and only one polyline is selected

    If CamBamUI.MainUI.ActiveView.SelectedEntities.Length = 1 Then

        For Each ent In CamBamUI.MainUI.ActiveView.SelectedEntities

            If TypeOf ent Is Polyline Then

                p = CType(ent, Polyline)


                ' create a new polyline with fillets
                pf = cf.FilletPolyline(p)

                CamBamUI.MainUI.ActiveView.CADFile.Add(pf)

            End If

        Next ent

    End If

End Sub