I want all the relations in a sketch to be removed with the help of a macro. But after recording and running the macro, nothing seems to happen. I added a random sketch.

Dim swApp As Object

Dim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = Application.SldWorks

Set Part = swApp.ActiveDoc

Part.SketchConstraintsDelAll

End Sub