Lesson 3.4 select methods code

Files

Associated model(s) Lesson 3.4 select methods code

Code

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSelMgr As SldWorks.SelectionMgr
Dim swEdge As SldWorks.Edge
Dim swFace As SldWorks.Face2
Dim swEnt As SldWorks.Entity
Dim swSelData As SldWorks.SelectData
Dim vFaces As Variant
    
Sub main()
    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set swSelMgr = swModel.SelectionManager
    
    If swSelMgr.GetSelectedObjectType3(1, -1) = swSelEDGES Then
        Set swEdge = swSelMgr.GetSelectedObject6(1, -1)
        swModel.ClearSelection2 True
        vFaces = swEdge.GetTwoAdjacentFaces2
        For i = 0 To 1
            Set swFace = vFaces(i)
            Set swEnt = swFace
            swEnt.Select4 True, swSelData
        Next i
    Else
        MsgBox "Please select an edge."
    End If
End Sub