CAD Forum

Code: Select all

Option Explicit

Sub main()

    Dim swApp As SldWorks.SldWorks
    Dim swModel As ModelDoc2
    Dim swSelMgr As SelectionMgr
    Dim swFace As Face2
    Dim EdgeArr() As Edge
    Dim swSketch As Sketch
    Dim swSketchManager As SketchManager

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    
    If swModel Is Nothing Then Exit Sub
    
    Set swSketch = swModel.GetActiveSketch2
    Set swSketchManager = swModel.SketchManager
    Set swSelMgr = swModel.SelectionManager
    If swSelMgr.GetSelectedObjectType3(1, -1) = swSelectType_e.swSelFACES Then
        Set swFace = swSelMgr.GetSelectedObject6(1, -1)
    End If
    
    If swSketch Is Nothing Then Exit Sub
    If swFace Is Nothing Then Exit Sub

    EdgeArr = swFace.GetEdges
    If IsEmpty(EdgeArr) Then Exit Sub
    
    swModel.Extension.MultiSelect2 EdgeArr, False, Nothing
    
    swSketchManager.SketchUseEdge2 False

End Sub