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