Get Tangent Faces Example (VBA)

This examples shows how to get tangent faces.

 

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

'

' Preconditions:  

'          (1) Part or assembly document is open.

'          (2) A face tangent to other faces is selected.

'

' Postconditions: All tangent faces and the selected

'                  face are listed.

'

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

Option Explicit

 

Public Enum swSelectType_e

    swSelFACES = 2      '  "FACE"

End Enum

 

Sub ProcessSelections _

( _

    swApp As SldWorks.SldWorks, _

    swModel As SldWorks.ModelDoc2 _

)

    Dim swSelMgr            As SldWorks.SelectionMgr

    Dim nSelCount           As Long

    Dim i                   As Long

    Set swSelMgr = swModel.SelectionManager

    nSelCount = swSelMgr.GetSelectedObjectCount

    For i = 1 To nSelCount

        Debug.Print "  SelType(" & i & ") = " & swSelMgr.GetSelectedObjectType2(i)

    Next i

End Sub

 

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim swSelMgr                As SldWorks.SelectionMgr

    Dim bRet                    As Boolean

    

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    

    Debug.Print "SelType (before):"

    ProcessSelections swApp, swModel

    

    swModel.SelectTangency

    Debug.Print "SelType (after ):"

    ProcessSelections swApp, swModel

End Sub

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