Private Sub Form_Load()
Dim objApp As SolidEdgeFrameWork.Application
Dim objDoc As SolidEdgeDraft.DraftDocument
Dim objSheet As SolidEdgeDraft.Sheet
Dim objEllipses2d As SolidEdgeFrameworkSupport.Ellipses2d
Dim objEllipse2d As SolidEdgeFrameworkSupport.Ellipse2d
Dim objLinearStyles As SolidEdgeFrameWork.LinearStyles
Dim objLinearStyle As SolidEdgeFrameWork.LinearStyle
Dim objLinearStyle1 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
'getting the Active Sheet object
Set objSheet = objDoc.ActiveSheet
'getting the Ellipses2d object
Set objEllipses2d = objSheet.Ellipses2d
'Create an Ellispse2d in Clockwise orientation
Set objEllipse2d = objEllipses2d.AddByCenter(xCenter:=0.3, yCenter:=0.25, _
xMajor:=0.1, yMajor:=0, Ratio:=0.5, Orientation:=igGeom2dOrientClockwise)
'Get the LinearStyles object
Set objLinearStyles = objDoc.LinearStyles
'Add new LinearStyles to the collection
Set objLinearStyle = objLinearStyles.Add(Name:="LinearStyle1", Parent:="Visible")
Set objLinearStyle1 = objLinearStyles.Add(Name:="LinearStyle2", Parent:="Tangent")
'set the color property to blue
objLinearStyle.Color = vbBlue
'create segements with LinearStyles
Call objEllipse2d.AddSegmentedStyle(x1:=0.25, y1:=0.25, x2:=0.3, y2:=0.3, Style:=objLinearStyle)
Call objEllipse2d.AddSegmentedStyle(x1:=0.35, y1:=0.25, x2:=0.3, y2:=0.2, Style:=objLinearStyle1)
'Remove all segmented styles
Call objEllipse2d.RemoveAllSegmentedStyles
' USER DISPLAY
' Release objects
Set objApp = Nothing
Set objDoc = Nothing
Set objSheet = Nothing
Set objEllipses2d = Nothing
Set objEllipse2d = Nothing
Set objLinearStyles = Nothing
Set objLinearStyle1 = Nothing
Set objLinearStyle = Nothing
End Sub