Imports System.IO
Imports System.Runtime.InteropServices
Module Example
<STAThread()> _
Sub Main()
Dim objFolder As DirectoryInfo
Dim objFileInfo As FileInfo
Dim objApplication As SolidEdgeFramework.Application = Nothing
Dim objDocuments As SolidEdgeFramework.Documents = Nothing
Dim objSheetMetalDocument As SolidEdgePart.SheetMetalDocument = Nothing
Dim objFlatPatternModels As SolidEdgePart.FlatPatternModels = Nothing
Dim objFlatPatternModel As SolidEdgePart.FlatPatternModel = Nothing
Dim objTabs As SolidEdgePart.Tabs = Nothing
Dim objTab As SolidEdgePart.Tab = Nothing
Dim objSketch As SolidEdgePart.Sketch = Nothing
Dim objProfile As SolidEdgePart.Profile = Nothing
Try
OleMessageFilter.Register()
objFolder = GetTrainingFolder()
objFileInfo = New FileInfo(Path.Combine(objFolder.FullName, "Sheet Metal\SE_Transition_RR.psm"))
' Start Solid Edge
objApplication = Activator.CreateInstance(Type.GetTypeFromProgID("SolidEdge.Application"))
objApplication.Visible = True
objDocuments = objApplication.Documents
objSheetMetalDocument = objDocuments.Open(objFileInfo.FullName)
' Get the flat pattern model object in the test case
objFlatPatternModels = objSheetMetalDocument.FlatPatternModels
objFlatPatternModel = objFlatPatternModels.Item(1)
' Get the Tabs Object for the Model
objTabs = objFlatPatternModel.Tabs
' Get a sketch & profile and create the tab
objSketch = objSheetMetalDocument.Sketches.Item(1)
objProfile = objSketch.Profiles.Item(1)
' Add tab
objTab = objTabs.AddTab(objProfile, SolidEdgePart.FeaturePropertyConstants.igRight)
Catch ex As Exception
Console.WriteLine(ex.Message)
Finally
OleMessageFilter.Revoke()
End Try
End Sub
Function GetTrainingFolder() As DirectoryInfo
Dim objInstallData As SEInstallDataLib.SEInstallData = Nothing
Dim objInstallFolder As DirectoryInfo = Nothing
Dim objTrainingFolder As DirectoryInfo = Nothing
Try
objInstallData = New SEInstallDataLib.SEInstallData
objInstallFolder = New DirectoryInfo(objInstallData.GetInstalledPath())
objTrainingFolder = New DirectoryInfo(Path.Combine(objInstallFolder.Parent.FullName, "Training"))
Catch
Finally
If Not (objInstallData Is Nothing) Then
Marshal.FinalReleaseComObject(objInstallData)
objInstallData = Nothing
End If
End Try
Return objTrainingFolder
End Function
End Module