Delete All Constraints in Selected Sketch Example (VBA)

This example shows how to delete all of the constraints in the selected sketch.

 

'-----------------------------------------------

'

' Preconditions: Sketch is selected in FeatureManager design tree.

'

' Postconditions: All constraints in selected sketch are deleted.

'

'-----------------------------------------------

Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim swSelMgr                As SldWorks.SelectionMgr

    Dim swFeat                  As SldWorks.feature

    Dim swSketch                As SldWorks.Sketch

    Dim vSketchSeg              As Variant

    Dim swSketchSeg             As SldWorks.SketchSegment

    Dim vSketchPt               As Variant

    Dim swSketchPt              As SldWorks.SketchPoint

    Dim swSelData               As SldWorks.SelectData

    Dim i                       As Long

    Dim bRet                    As Boolean

    

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swSelData = swSelMgr.CreateSelectData

    Set swFeat = swSelMgr.GetSelectedObject6(1, 0)

    Set swSketch = swFeat.GetSpecificFeature2

    

    ' Edit sketch

    swModel.EditSketch

    

    vSketchSeg = swSketch.GetSketchSegments

    For i = 0 To UBound(vSketchSeg)

        Set swSketchSeg = vSketchSeg(i)

        

        bRet = swSketchSeg.Select4(False, swSelData): Debug.Assert bRet

        swModel.SketchConstraintsDelAll

    Next i

    

    vSketchPt = swSketch.GetSketchPoints2

    For i = 0 To UBound(vSketchPt)

        Set swSketchPt = vSketchPt(i)

        

        bRet = swSketchPt.Select4(False, swSelData): Debug.Assert bRet

        swModel.SketchConstraintsDelAll

    Next i

    

    ' Exit sketch

    swModel.InsertSketch2 True

End Sub