Add3 Method

Description

Creates Bounded Surface by setting tangent types for given edges, tangent faces and other options.

Syntax

Visual Basic
Public Function Add3( _ ByVal NumberOfEdges As Long, _ ByRef EdgeArray() As Object, _ ByVal NumberOfEdgesForTangentTypes As Long, _ ByRef EdgesForTangentTypes() As Object, _ ByRef TangentTypeArray() As SurfaceByBoundaryTangencyType, _ ByVal NumberOfTangentFaces As Long, _ ByRef TangentFaceArray() As Object, _ ByVal NumberOfGuideWires As Long, _ ByRef GuideWireArray() As Object, _ ByVal CloseBoundaryOption As Boolean, _ ByVal FaceMerge As SurfaceByBoundaryPatchTopology _ ) As SurfaceByBoundary

Visual Basic

Public Function Add3( _
   ByVal NumberOfEdges As Long, _
   ByRef EdgeArray() As Object, _
   ByVal NumberOfEdgesForTangentTypes As Long, _
   ByRef EdgesForTangentTypes() As Object, _
   ByRef TangentTypeArray() As SurfaceByBoundaryTangencyType, _
   ByVal NumberOfTangentFaces As Long, _
   ByRef TangentFaceArray() As Object, _
   ByVal NumberOfGuideWires As Long, _
   ByRef GuideWireArray() As Object, _
   ByVal CloseBoundaryOption As Boolean, _
   ByVal FaceMerge As SurfaceByBoundaryPatchTopology _
) As SurfaceByBoundary

Parameters

NumberOfEdges

Number of edges as Integer.

EdgeArray

Array of edges.

NumberOfEdgesForTangentTypes

Number of edges as Integer.

EdgesForTangentTypes

Array of edges for tangency type.

TangentTypeArray

Value	Description
igSurfaceByBoundaryCurvatureContinuous
igSurfaceByBoundaryNatural
igSurfaceByBoundaryTangential

NumberOfTangentFaces

Number of tangent faces as Integer.

TangentFaceArray

Array of Tangent Faces.

NumberOfGuideWires

Number of guide wires as Integer.

GuideWireArray

Array of guide wires.

CloseBoundaryOption

Close Boundary Option as Boolean.

FaceMerge

Value	Description
igSurfaceByBoundaryMinimal
igSurfaceByBoundaryMultiple
igSurfaceByBoundarySingle

Example

Example (VB.NET)

Imports System.Runtime.InteropServices
Public Class SurfaceByBoundary

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim objApplication As SolidEdgeFramework.Application
        Dim objPartDoc As SolidEdgePart.PartDocument = Nothing
        Dim objConstructions As SolidEdgePart.Constructions = Nothing
        Dim objBdrySurfaces As SolidEdgePart.SurfaceByBoundaries = Nothing
        Dim objBdrySurface As SolidEdgePart.SurfaceByBoundary = Nothing
        Dim objProfileSet As SolidEdgePart.ProfileSet = Nothing
        Dim objProfile As SolidEdgePart.Profile = Nothing
        Dim sketch As SolidEdgePart.Sketch = Nothing
        Dim arrInEdges(0 To 3) As Object
        Dim arrGuideWire(0 To 1) As Object
        Dim arrInEdgesForTangentTypes(1) As Object
        Dim arrTangentTypes(3) As SolidEdgeConstants.SurfaceByBoundaryTangencyType
        Dim arrTangentFace(3) As Object

        Try
            ' Create/get the application with specific settings
            objApplication = Marshal.GetActiveObject("SolidEdge.Application")

            ' Get the document
            objPartDoc = objApplication.ActiveDocument

            ' get the constructions collection
            objConstructions = objPartDoc.Constructions
            objBdrySurfaces = objConstructions.SurfaceByBoundaries

            ' input edges
            sketch = objPartDoc.Sketches.Item(1)
            objProfile = sketch.Profile

            ' get input edges to create bounded surface
            arrInEdges(0) = objProfile.CurveBody.Curves.Item(1)
            arrInEdges(1) = objProfile.CurveBody.Curves.Item(2)
            arrInEdges(2) = objProfile.CurveBody.Curves.Item(3)
            arrInEdges(3) = objProfile.CurveBody.Curves.Item(4)

            'Create the SurfaceByBoundary using Add3()
            'All boundary edges with natural continuity therefore NumberOfEdgesForTangentTypes and NumberOfTangentFaces are passed as zero.

            arrGuideWire(0) = objPartDoc.Sketches.Item(2).Profile.CurveBody.Curves.Item(1)

            objBdrySurface = objBdrySurfaces.Add3(4, arrInEdges, 0, arrInEdgesForTangentTypes, arrTangentTypes, 0, arrTangentFace, 1, arrGuideWire, False, SolidEdgeConstants.SurfaceByBoundaryPatchTopology.igSurfaceByBoundaryMultiple)

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub
End Class