Private Sub Form_Load()
Dim objApp As SolidEdgeFramework.Application
Dim objDoc As SolidEdgeDraft.DraftDocument
Dim objLinearStyles As SolidEdgeFramework.LinearStyles
Dim objLinearStyle As SolidEdgeFramework.LinearStyle
Dim objLinearStyleCenter As SolidEdgeFramework.LinearStyle
Dim objLinearStyleCPlane As SolidEdgeFramework.LinearStyle
Dim objLinearStyleDotted As SolidEdgeFramework.LinearStyle
Dim objLinearStyleHidden As SolidEdgeFramework.LinearStyle
Dim objLinearStyleNormal As SolidEdgeFramework.LinearStyle
Dim objLinearStylePhantom As SolidEdgeFramework.LinearStyle
Dim objLinearStyleTangent As SolidEdgeFramework.LinearStyle
' Report errors
Const PI = 3.14159265358979
' Create/get the application with specific settings
On Error Resume Next
Set objApp = GetObject(, "SolidEdge.Application")
If Err Then
Err.Clear
Set objApp = CreateObject("SolidEdge.Application")
Set objDoc = objApp.Documents.Add("SolidEdge.DraftDocument")
objApp.Visible = True
Else
Set objDoc = objApp.ActiveDocument
End If
'Get the LinearStyles object
Set objLinearStyles = objDoc.LinearStyles
'Add new LinearStyle to the collection
Set objLinearStyle = objLinearStyles.Add(Name:="LinearStyle1", Parent:="Visible")
' USER DISPLAY
' Release objects
Set objApp = Nothing
Set objDoc = Nothing
Set objLinearStyles = Nothing
Set objLinearStyle = Nothing
Set objLinearStyleCenter = Nothing
Set objLinearStyleCPlane = Nothing
Set objLinearStyleDotted = Nothing
Set objLinearStyleHidden = Nothing
Set objLinearStyleNormal = Nothing
Set objLinearStylePhantom = Nothing
Set objLinearStyleTangent = Nothing
End Sub