Private Sub Form_Load()
Dim objApp As SolidEdgeFrameWork.Application
Dim objDoc As SolidEdgeDraft.DraftDocument
Dim objSheet As SolidEdgeDraft.Sheet
Dim objArcs2d As SolidEdgeFrameworkSupport.Arcs2d
Dim objArc2d1 As SolidEdgeFrameworkSupport.Arc2d
Dim objArc2d2 As SolidEdgeFrameworkSupport.Arc2d
Dim objArc2d3 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
' create arcs2d object
Set objArcs2d = objSheet.Arcs2d
'create arc2d objects
Set objArc2d1 = objArcs2d.AddByCenterStartEnd(xCenter:=0, yCenter:=0, _
xStart:=0.15, yStart:=0#, xEnd:=0, yEnd:=0.15)
Set objArc2d2 = objArcs2d.AddByCenterStartEnd(xCenter:=0, yCenter:=0, _
xStart:=0#, yStart:=0.15, xEnd:=-0.15, yEnd:=0#)
Set objArc2d3 = objArcs2d.AddByCenterStartEnd(xCenter:=0, yCenter:=0, _
xStart:=0#, yStart:=0.15, xEnd:=-0.15, yEnd:=0#)
'send the third arc2d to back
Call objArc2d3.SendToBack
' USER DISPLAY
' Release objects
Set objApp = Nothing
Set objDoc = Nothing
Set objSheet = Nothing
Set objArcs2d = Nothing
Set objArc2d1 = Nothing
Set objArc2d2 = Nothing
Set objArc2d3 = Nothing
End Sub