Private Sub Form_Load()
Dim objApp As SolidEdgeFrameWork.Application
Dim objDoc As SolidEdgeDraft.DraftDocument
Dim objSheet As SolidEdgeDraft.Sheet
Dim objStyle1 As SolidEdgeFrameWork.LinearStyle
Dim objStyle2 As SolidEdgeFrameWork.LinearStyle
Dim objArcs2d As SolidEdgeFrameworkSupport.Arcs2d
Dim objArc2d As SolidEdgeFrameworkSupport.Arc2d
' 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
'getting the Active Sheet object
Set objSheet = objDoc.ActiveSheet
'get arcs2d object
Set objArcs2d = objSheet.Arcs2d
'create an arc2d
Set objArc2d = objArcs2d.AddByCenterStartEnd(xCenter:=0, yCenter:=0, _
xStart:=0.15, yStart:=0#, xEnd:=0#, yEnd:=0.15)
'get 2nos linear style object
Set objStyle1 = objDoc.LinearStyles(3)
Set objStyle2 = objDoc.LinearStyles(7)
'Add first SegmentedStyle
Call objArc2d.AddSegmentedStyle(x1:=0.15, y1:=0#, x2:=0.08116, _
y2:=0.12615, Style:=objStyle1)
'Add second SegmentedStyle
Call objArc2d.AddSegmentedStyle(x1:=0.08116, y1:=0.12615, x2:=0.2, _
y2:=0.3, Style:=objStyle2)
'remove all segmented styles
Call objArc2d.RemoveAllSegmentedStyles
' USER DISPLAY
' Release objects
Set objApp = Nothing
Set objDoc = Nothing
Set objSheet = Nothing
Set objArcs2d = Nothing
Set objArc2d = Nothing
Set objStyle1 = Nothing
Set objStyle2 = Nothing
End Sub