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)
Exit Do
End If
End If
Set swFeat =
swFeat.GetNextFeature
Loop
End Sub