Windows only

Demonstrates how to add point at the starting and ending locations of curves.

Option Explicit

Const rhCurve = 4

' Get all the curve objects in the document
Dim arrCurves
arrCurves = Rhino.ObjectsByType(rhCurve)
If IsNull(arrCurves) Then Exit Sub

' For better performance, turn off screen redrawing
Call Rhino.EnableRedraw(False)

' Process each curve
Dim strCurve
For Each strCurve In arrCurves
' Add a point at the start of the curve