Function CreateTrimmedSheet5( _
   ByVal Curves As System.Object, _
   ByVal PreserveAnalyticCurves As System.Boolean, _
   ByVal Tolerance As System.Double _
) As System.Object

Dim instance As ISurface
Dim Curves As System.Object
Dim PreserveAnalyticCurves As System.Boolean
Dim Tolerance As System.Double
Dim value As System.Object
 
value = instance.CreateTrimmedSheet5(Curves, PreserveAnalyticCurves, Tolerance)

System.object CreateTrimmedSheet5( 
   System.object Curves,
   System.bool PreserveAnalyticCurves,
   System.double Tolerance
)

System.Object^ CreateTrimmedSheet5( 
&   System.Object^ Curves,
&   System.bool PreserveAnalyticCurves,
&   System.double Tolerance
) 

Parameters

Curves

Array of curves that represent the boundary of the trimmed sheet (see Remarks)

PreserveAnalyticCurves

True to preserve analytic curves, false to store all trimming curves as SP-curves

Tolerance

Tolerance for gaps between edges (see Remarks)

Return Value

'VBA

'===========================================
'Preconditions:
'1. Open a new part.
'2. Run the macro to the Stop.
'3. Press F5 to create the imported feature.
'
'Postconditions:
'1. Creates a temporary body and displays it.
'2. Uses the temporary body to create Surface-Imported1
'   in the FeatureManager design tree.
'===========================================

Const RADIUS As Double = 0.01

Dim swApp As SldWorks.SldWorks
Dim swPart As SldWorks.PartDoc
Dim swSurf As SldWorks.Surface
Dim swBody As SldWorks.Body2
Dim swFeat As SldWorks.Feature
Dim swModeler As SldWorks.Modeler

Option Explicit

Sub main()

    Set swApp = Application.SldWorks
    Set swPart = swApp.ActiveDoc
   
    Set swModeler = swApp.GetModeler
   
    Dim dCenter(2) As Double
    dCenter(0) = 0: dCenter(1) = 0: dCenter(2) = 0
   
    Dim dAxis(2) As Double
    dAxis(0) = 0: dAxis(1) = 0: dAxis(2) = 1
   
    Dim dRef(2) As Double
    dRef(0) = 1: dRef(1) = 0: dRef(2) = 0
   
    Set swSurf = swModeler.CreateSphericalSurface2(dCenter, dAxis, dRef, RADIUS)

    ' No trimming curves are required, so pass one Nothing in the Curves parameter array
    ' of ISurface::CreateTrimmedSheet5
    Dim ZeroTrimmingCurves(0 To 0) As SldWorks.Curve
    Set ZeroTrimmingCurves(0) = Nothing
    Set swBody = swSurf.CreateTrimmedSheet5(ZeroTrimmingCurves, True, 0.00001)
   
    swBody.Display3 swPart, RGB(255, 255, 0), swTempBodySelectOptions_e.swTempBodySelectable
   
    Stop
   
    Set swFeat = swPart.CreateFeatureFromBody3(swBody, False, swCreateFeatureBodyOpts_e.swCreateFeatureBodyCheck + swCreateFeatureBodyOpts_e.swCreateFeatureBodySimplify)
   
End Sub

The Curves array contains all of the curves required to add the appropriate trimming loops to the surface. A null or Nothing entry in the array represents the separation between loops.

The trimming curves supplied are assumed to lie on the surface. If the curves are 2D curves, then they should be created using this surface.

If your application is creating a trimmed sheet body from a periodic surface without trimming curves, then the Curves array should contain only one entry: null or Nothing.

Tolerance sets the edge precision in PK_SURF_make_sheet_trimmed. The default parasolid tolerance is 0.00001. This parameter allows you to specify a looser tolerance for gaps between edges.

Before calling this method, trim the curves created by IModeler::CreateArc and IModeler::CreateLine by calling ICurve::CreateTrimmedCurve2. Elliptical curves created by IModeler::CreateEllipse do not need to be trimmed before calling this method.