Insert Conic Curve Example (VB.NET)
This example shows how to create a conic curve.
'----------------------------------------------------------------------------
' Preconditions: Modify the location of Part.prtdot if necessary.
'
' Postconditions:
' 1. A new part is created.
' 2. A conic curve is inserted into the part.
'
' NOTE: Because the model is used elsewhere,
' do not save changes when closing it.
'
---------------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System.Runtime.InteropServices
Imports
System
Partial
Class
SolidWorksMacro
Dim
Part As
ModelDoc2
Sub
main()
Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SolidWorks
2013\templates\Part.prtdot", 0, 0, 0)
Part = swApp.ActiveDoc
Dim
skSegment As
SketchSegment
skSegment = Part.SketchManager.CreateConic(0.109436,
0.080614, 0.0#, 0.048742, 0.022907, 0.0#, -0.017812, 0.0#, 0.0#, -0.006092,
-0.069601, 0.0#)
Part.SketchManager.InsertSketch(True)
Part.ShowNamedView2("*Isometric",
7)
End
Sub
Public
swApp As
SldWorks
End
Class