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