Get Ruled-Surface Feature Data Example (VBA)
This example shows how to get ruled-surface feature data.
'----------------------------------------------------------------------------
' Preconditions:
' 1. Open a part document that contains a ruled-surface feature.
' 2. Select the ruled-surface feature.
'
' Postconditions: The ruled-surface feature type is printed to the
' Immediate window.
'---------------------------------------------------------------------------
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swFeat As SldWorks.Feature
Dim swSelMgr As SldWorks.SelectionMgr
Dim swRuledSurfFeat As SldWorks.RuledSurfaceFeatureData
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swSelMgr = swModel.SelectionManager
Set swFeat = swSelMgr.GetSelectedObject6(1, -1)
Set swRuledSurfFeat = swFeat.GetDefinition
' Ruled-surface feature type as defined in
swRuledSurfaceType_e
Debug.Print "Ruled-surface feature type: " & swRuledSurfFeat.Type
End Sub