Imports System.IO
Imports System.Runtime.InteropServices
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim objSEApplication As SolidEdgeFramework.Application = Nothing
Dim objDoc As SolidEdgeAssembly.AssemblyDocument = Nothing
Dim objFamilyMembers As SolidEdgeAssembly.AssemblyFamilyMembers = Nothing
Dim objFamilyMember As SolidEdgeAssembly.AssemblyFamilyMember = Nothing
Dim ActiveMemberName As String
Dim NewMemberName As String
Dim SEInstallDir As DirectoryInfo
Try
' Get the application
objSEApplication = Marshal.GetActiveObject("SolidEdge.Application")
SEInstallDir = GetTrainingFolder()
objDoc = objSEApplication.Documents.Open(SEInstallDir.FullName + "\carrier.asm")
objDoc.CreateFamilyFile("Member1", "Member2", True)
objFamilyMembers = objDoc.AssemblyFamilyMembers
objFamilyMember = objFamilyMembers.NewMember("Member3")
ActiveMemberName = objDoc.AssemblyFamilyMembers.ActiveMember
MessageBox.Show(ActiveMemberName)
NewMemberName = "NewName"
If Not String.IsNullOrEmpty(ActiveMemberName) And Not String.IsNullOrEmpty(NewMemberName) Then
objFamilyMembers.RenameMember(ActiveMemberName, NewMemberName)
End If
If SolidEdgeConstants.AlternateAssemblyTypeConstants.seAlternateAssemblyType_AlternatePosition = objFamilyMembers.AlternateAssemblyType Then
MessageBox.Show("Alternate Position")
Else
MessageBox.Show("Family of Assemblies")
End If
Catch ex As Exception
MessageBox.Show(ex.ToString)
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 Class