Get Faces Adjacent to Vertex Example (VBA)

This example shows how to get the faces adjacent to the selected vertex.

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

'

' Preconditions: Model document is open and a vertex is selected.

'

' Postconditions: Faces adjacent to the selected vertex are selected.

'

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

Option Explicit

Sub main()

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As SldWorks.ModelDoc2

    Dim swSelMgr                    As SldWorks.SelectionMgr

    Dim swVert                      As SldWorks.Vertex

    Dim vFaceArr                    As Variant

    Dim vFace                       As Variant

    Dim swFace                      As SldWorks.face2

    Dim swEnt                       As SldWorks.entity

    Dim bRet                        As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swVert = swSelMgr.GetSelectedObject5(1)

    swModel.ClearSelection2 True

    vFaceArr = swVert.GetAdjacentFaces

    For Each vFace In vFaceArr

        Set swFace = vFace

        Set swEnt = swFace

        bRet = swEnt.Select4(True, Nothing): Debug.Assert bRet

    Next vFace

End Sub

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