Select Points on Curve

This script selects all points that are on a selected curve.
The following scripts you can copy and paste into a button.
 
 

-_RunScript (
Sub SelectPointsOnCurve
Dim strCurve
strCurve = Rhino.GetObject("Select Curve", 4)
If Not IsNull(strCurve) Then
	Dim arrObjects, strObject, arrPoint
	arrObjects = Rhino.ObjectsByType (1)
		If IsArray(arrObjects) Then
		Rhino.EnableRedraw false
			For Each strObject In arrObjects
			arrPoint = Rhino.PointCoordinates (strObject)
				If Rhino.IsPointOnCurve (strCurve, arrPoint) Then
					Rhino.SelectObject (strObject)
				End If
			Next
		Rhino.EnableRedraw true
		End If
End If
End Sub
SelectPointsOnCurve
)

© 3DE < ^ >