Get Sketch Points Example (VBA)

This example shows how to loop through the active sketch and extract the x and y values of every sketch point.

'-------------------------------------------------------
' Preconditions:
' 1. Open a sketch containing sketch points.
' 2. Open the Immediate window.
' 3. Run the macro.
'
' Postconditions:
' 1. The x and y values of each sketch
'    point in the sketch are printed to the
'    Immediate window.
' 2. Examine the Immediate window.
'--------------------------------------------------------
Option Explicit

Sub main()

Dim swApp As SldWorks.SldWorks
Dim Part As SldWorks.PartDoc
Dim theSketch As SldWorks.Sketch
Dim sketchPointArray As Variant
Dim i As Long
Dim pointCount As Long
Dim xValue As Double
Dim yValue As Double
Dim zValue As Double

Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Set theSketch = Part.GetActiveSketch2
 

sketchPointArray = theSketch.GetSketchPoints2
pointCount = UBound(sketchPointArray) + 1

' For each SketchPoint
For i = 0 To (pointCount - 1)
    ' Get the coordinates
    xValue = sketchPointArray(i).X
    yValue = sketchPointArray(i).Y
    zValue = sketchPointArray(i).Z
    Debug.Print "Sketch point x and y coordinates: " & xValue; " and " & yValue
    Debug.Print " "

    ' Do something useful with the data

Next i
 

End Sub