Select Plane Example (VBA)

This example shows how to select the default SolidWorks Right Plane.

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

'

' Preconditions: Model document is open.

'

' Postconditions: Default SolidWorks Right Plane is selected.

'

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

Option Explicit

Sub main()

    ' Select Right Plane (1-based index)

    Const ReqPlane              As Long = 3

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.ModelDoc2

    Dim swFeat                  As SldWorks.feature

    Dim PlaneCount              As Long

    Dim bRet                    As Boolean

    Set swApp = Application.SldWorks

    Set swModel = swApp.ActiveDoc

    Set swFeat = swModel.FirstFeature

    Do While Not swFeat Is Nothing

        If "RefPlane" = swFeat.GetTypeName Then

            PlaneCount = PlaneCount + 1

            If ReqPlane = PlaneCount Then

                bRet = swFeat.Select2(False, 0): Debug.Assert bRet

                Exit Do

            End If

        End If

        Set swFeat = swFeat.GetNextFeature

    Loop

End Sub

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