Hello,

I'm a student and had my first semester with VBA.

Just need to finish a last part of my project but I face one problem.

I use the current code:

 Dim pi As Double
        pi = 4 * Atn(1)
        Dim Angle As Double
        Angle = CDbl(txtAngle.Text * pi / 180)
        swModel.ClearSelection2 True
        Set myFeature = swModel.FeatureManager.FeatureRevolve2(True, True, True, False, False, False, 0, 0, Angle, 0, False, False, 0.01, 0.01, 0, Thickness, 0.01, True, True, True)
        swModel.ViewZoomtofit2

It has to make a thin revolve from a L-profile.

Everything seems to be fine but apperantly SW cant make a thin revolve with an open sketch without giving an error dialog:

The sketch is currently open. A non-thing revolution feature requires a closed sketch. Would you like the sketch to be automatically closed?

To let it work the answer has to be "No" but VB can't do anything with an error dialog so it just stops there.

some help here would be awesome