Create 2D Spline Example (VB.NET)
This topic shows how to create a 2D spline.
'---------------------------------------------------------------------------
' Preconditions: Open a new part.
'
' Postconditions:
' 1. Creates a sketch of a 2D spline.
' 2. Examine the graphics area.
'---------------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System.Runtime.InteropServices
Imports
System
Partial
Class
SolidWorksMacro
Dim
swModelDoc As
ModelDoc2
Dim
swModelDocExt As
ModelDocExtension
Dim i
As
Integer
Dim
j As
Integer
Dim
x(5) As
Double
Dim
y(5) As
Double
Dim
boolstatus As
Boolean
Sub
main()
swModelDoc = swApp.ActiveDoc
swModelDocExt = swModelDoc.Extension
boolstatus = swModelDocExt.SelectByID2("Front
Plane",
"PLANE", 0, 0, 0,
False, 0,
Nothing, 0)
' Open sketch
swModelDoc.InsertSketch2(True)
' Calculate the values for x, y,
and z
For
i = 0 To 4
x(i) = i
y(i) = i ^ 2 + 3 * i
Next
i
' Initialize the routine and sketch
the first point of the spline at 0,0,0
swModelDoc.SketchSpline(-1,
0, 0, 0)
' Sketch four more points of the
spline
For
j = 4 To 0
Step -1
swModelDoc.SketchSpline(j, x(j), y(j), 0)
Next
j
' Exit sketch
swModelDoc.InsertSketch2(True)
End
Sub
Public
swApp As
SldWorks
End
Class