Insert Conic Curve Example (VBA)

This example shows how to create a conic curve.

'----------------------------------------------------------------------------
' Preconditions: Modify the path to Part.prtdot if necessary.
'
' Postconditions:
' 1. A new part is created.
' 2. A conic curve is inserted into the part.
' ---------------------------------------------------------------------------

Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.ModelDoc2

Option Explicit

Sub main()
    Set swApp = Application.SldWorks
    Set Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SolidWorks 2013\templates\Part.prtdot", 0, 0, 0)
    Set Part = swApp.ActiveDoc
    Dim skSegment As SldWorks.SketchSegment
    Set skSegment = Part.SketchManager.CreateConic(0.109436, 0.080614, 0#, 0.048742, 0.022907, 0#, -0.017812, 0#, 0#, -0.006092, -0.069601, 0#)
    Part.SketchManager.InsertSketch True
    Part.ShowNamedView2 "*Isometric", 7
End Sub