GetDesignEtchBodies Method

Description

Returns Etch bodies of Ordered and Sync Etches while in the Flatten enviornment.

Syntax

Visual Basic
Public Sub GetDesignEtchBodies( _ ByRef NumEtchBodies As Long, _ ByRef EtchBodies() As Object _ )

Parameters

NumEtchBodies: Returns number of Etch bodies.
EtchBodies: Returns Etch Bodies.

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
        Dim objDoc As SolidEdgePart.SheetMetalDocument
        Dim objFlatModel As SolidEdgePart.FlatPatternModel
        Dim objEtchBody As SolidEdgeGeometry.Body
        Dim lNumDesignEtchBodies As Long
        Dim DesignEtchBodies(0) As Object

        Try
            ' Get Solid Edge application
            objApp = GetObject(, "SolidEdge.Application")

            ' Open supplied file
            objDoc = objApp.ActiveDocument

            ' Get Flat model
            objFlatModel = objDoc.FlatPatternModels.Item(1)
            objDoc.ModelingMode = SolidEdgePart.ModelingModeConstants.seModelingModeOrdered

            ' Activate the Flat model 
            objFlatModel.MakeActive()

            ' Get desgin bodies bodies from Flat model

            Call objFlatModel.GetDesignEtchBodies(lNumDesignEtchBodies, DesignEtchBodies)

            For Each objEtchBody In DesignEtchBodies
                ' Query needed information from etch body
            Next
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

   End Class