Create Ruled Surface Example (VBA)

This example shows how to create a ruled surface.

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

'

' Preconditions:

'          (1) Part document is open.

'          (2) Two b-curves are selected.

'

' Postconditions: Ruled surface is created.

'

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

Option Explicit

Sub main()

    Dim swApp                       As SldWorks.SldWorks

    Dim swModel                     As SldWorks.ModelDoc2

    Dim swModeler                   As SldWorks.Modeler

    Dim swSelMgr                    As SldWorks.SelectionMgr

    Dim swEdge(1)                   As SldWorks.Edge

    Dim swCurve(1)                  As SldWorks.curve

    Dim nApex(2)                    As Double

    Dim vApex                       As Variant

    Dim swSurf                      As SldWorks.surface

    Set swApp = Application.SldWorks

    Set swModeler = swApp.GetModeler

    Set swModel = swApp.ActiveDoc

    Set swSelMgr = swModel.SelectionManager

    Set swEdge(0) = swSelMgr.GetSelectedObject5(1)

    Set swCurve(0) = swEdge(0).GetCurve

    Set swEdge(1) = swSelMgr.GetSelectedObject5(2)

    Set swCurve(1) = swEdge(1).GetCurve

    nApex(0) = 0#: nApex(1) = 0#: nApex(2) = 0#

    vApex = nApex

    Set swSurf = swModeler.CreateRuledSurface(swCurve(0), swCurve(1), (vApex))

End Sub

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