Rhino3DE
develop
design
educate
v3 plugins
v3 vbscript
v2 vbscript
tutorial
color match
convert curve equichordal
history hide
mesh mapper
open with V4
sel pts on crv
     
   

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 < ^ >