Insert Spline Point Example (VB.NET)
This example shows how to insert a spline point in a spline sketch.
'----------------------------------------------------------------------------
' Preconditions: The specified template exists.
'
' Postconditions: The specified spline is sketched, and the specified
' spline point is inserted.
'
---------------------------------------------------------------------------
Imports
SolidWorks.Interop.sldworks
Imports
SolidWorks.Interop.swconst
Imports
System.Runtime.InteropServices
Imports
System
Partial
Class
SolidWorksMacro
Dim
Part As
ModelDoc2
Dim
skSegment As
SketchSegment
Sub
main()
Part = swApp.NewDocument("C:\ProgramData\SolidWorks\SolidWorks
2012\templates\Part.prtdot", 0, 0, 0)
Dim
pointArray As
Object
Dim
points(11) As
Double
points(0) = -0.0625070182577474
points(1) = 0.00739156869269664
points(2) = 0
points(3) = -0.0420233044773113
points(4) = 0.0350529989729012
points(5) = 0
points(6) = 0.0278754181857153
points(7) = -0.0165377796333246
points(8) = 0
points(9) = 0.0403878396197683
points(10) = 0.0406222157061507
points(11) = 0
pointArray = points
skSegment = Part.SketchManager.CreateSpline((pointArray))
Part.InsertSplinePoint(0.0382447809668287,
0.00781095184375528, 0)
Part.SketchManager.InsertSketch(True)
End
Sub
Public
swApp As
SldWorks
End
Class