Visual data - connections
This function is connecting every singel point with another creating lines.
Option Explicit
‘Script written by <Monika Szawiola>
‘Script copyrighted by <insert company name>
‘Script version 5 maja 2008 23:04:17
Call Main
Sub Main
Dim arrPoints
Dim i, j
arrPoints = Rhino.GetPoints(vbTrue, vbTrue, “Select points”)
If ubound(arrPoints)>0 Then
For i = 0 To ubound(arrPoints)
If ubound(arrPoints)>i Then
For j = i+1 To Ubound(arrPoints)
Rhino.AddLine arrPoints(i),arrPoints(j)
Next
End If
Next
End If
End Sub
You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.
Leave a Reply