Add Method

Description

Adds a bounded surface.

Syntax

Visual Basic
Public Function Add( _ ByVal NumberOfEdges As Long, _ ByRef EdgesArray() As Object, _ Optional ByVal NumberOfExcludeEdges As Variant, _ Optional ByVal ExcludeEdgesArray As Variant, _ Optional ByVal Tangent As Variant _ ) As SurfaceByBoundary

Visual Basic

Public Function Add( _
   ByVal NumberOfEdges As Long, _
   ByRef EdgesArray() As Object, _
   Optional ByVal NumberOfExcludeEdges As Variant, _
   Optional ByVal ExcludeEdgesArray As Variant, _
   Optional ByVal Tangent As Variant _
) As SurfaceByBoundary

Parameters

NumberOfEdges: Total number of edges as Integer.
EdgesArray: Array of edges for creating surface.
NumberOfExcludeEdges: Number of edges to be excluded from selected edges for Tangency.
ExcludeEdgesArray: Array of edges to be excluded from selected edges for Tangency.
Tangent: Specify tangent

Example

Example (VB.NET)

Imports System.Runtime.InteropServices

Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim objApp As SolidEdgeFramework.Application = Nothing
        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(4) As Object
        Dim arrEdge(0) As Object
        Dim objConsModel As SolidEdgePart.ConstructionModel = Nothing
        Dim objTrimSurfaces As SolidEdgePart.TrimSurfaces = Nothing
        Dim objTrimSurface As SolidEdgePart.TrimSurface = Nothing

        Try
            ' Create/get the application with specific settings
            objApp = Marshal.GetActiveObject("SolidEdge.Application")
            If objApp Is Nothing Then
                MessageBox.Show("Could not get application.")
            End If

            ' Get the active document which contains 2 sketechs. One with rectangle and other with circle in the middle of rectangle
            objPartDoc = objApp.ActiveDocument
            If objPartDoc Is Nothing Then
                MessageBox.Show("Could not open document ")
            End If

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

            If objBdrySurfaces Is Nothing Then
                MessageBox.Show("Could not get SurfaceByBoundary collection.")
            End If

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

            ' Input edges
            sketch = objPartDoc.Sketches.Item(2)
            objProfile = sketch.Profile
            arrEdge(0) = objProfile.CurveBody.Curves.Item(1)

            objBdrySurface = objBdrySurfaces.Add(4, arrInEdges)
            Dim objProjCurve As SolidEdgePart.ProjectCurve = Nothing

            objConsModel = objConstructions.Item(1)
            objTrimSurfaces = objConsModel.TrimSurfaces
            objTrimSurface = objTrimSurfaces.Add(1, arrEdge, SolidEdgePart.TrimSurfaceAreaSideConstants.igTSLeft)

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