Get Ruled-Surface Feature Data Example (VB.NET)

'----------------------------------------------------------------------------
' 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.
'---------------------------------------------------------------------------

Imports SolidWorks.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Imports System.Diagnostics


Partial Class SolidWorksMacro

    Dim swModel As ModelDoc2
    Dim swFeat As Feature
    Dim swSelMgr As SelectionMgr
    Dim swRuledSurfFeat As RuledSurfaceFeatureData

    Sub main()

        swModel = swApp.ActiveDoc

        swSelMgr = swModel.SelectionManager
        swFeat = swSelMgr.GetSelectedObject6(1, -1)
        swRuledSurfFeat = swFeat.GetDefinition

        ' Ruled-surface feature type as defined in swRuledSurfaceType_e
        Debug.Print("Ruled-surface feature type: " & swRuledSurfFeat.Type)

    End Sub

    
    Public swApp As SldWorks


End Class