Imports System.Runtime.InteropServices
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim objSEApp As SolidEdgeFramework.Application = Nothing
Dim objAsmDoc As SolidEdgeAssembly.AssemblyDocument = Nothing
Dim objBaseStyle As SolidEdgeFramework.FaceStyle = Nothing
Try
'Get Solid Edge application object
objSEApp = Marshal.GetActiveObject("SolidEdge.Application")
'Get assembly document
objAsmDoc = objSEApp.ActiveDocument
objAsmDoc.GetBaseStyle(SolidEdgeAssembly.AssemblyBaseStylesConstants.seAssemblyThreadedCylindersStyle, objBaseStyle)
MsgBox(objBaseStyle.StyleName)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Class