Matrix creation in Rhinoscript

@Alibek_Faiznur wrote:

Hello everybody,
I am a new user of Rhinoscript. Currently, I am trying to write a script which will be used in my Diploma Project. But, I face too many problems doing it. That is why I am kindly asking for your help and advice.
So far I have developed a script which adds control points at the intersection of lines and identifies which points are connected to each other. But, the problem is:
I cannot make the programm display the resulting Matrix. When I write Rhino.Print Matrix(1,2) or any other cell of the resulting Matrix, the programm shows its value. But, I can't make it to show the whole Matrix. (Rhino.Print Matrix(i,j) gives an error...)
Please help...

Option Explicit
'Script written by <insert name>
'Script copyrighted by <insert company name>
'Script version 4 октября 2016 г. 23:40:16
Call putpoints
Sub PutPoints()
	Dim i,spoint,epoint,N,PNTS,pts
	ReDim PNTS(0)
	N = 0
	Const CurveConst = 4

	Dim line : line = Rhino.ObjectsByType(CurveConst)
	If IsNull(line) Then Rhino.Print("Nothing selected")
	If IsArray(line) Then
		For i=0 To Ubound(line)
			ReDim Preserve PNTS(N)
			PNTS(N) = Rhino.CurveStartPoint(line(i))
			N = N + 1
			ReDim Preserve PNTS(N)
			PNTS(N) = Rhino.CurveEndPoint(line(i))
			N = N + 1
		Next
	End If
	PNTS = Rhino.CullDuplicatePoints(PNTS)
	pts = Rhino.AddPoints(PNTS)
	For i=0 To ubound(PNTS)
		Rhino.addText i, PNTS(i), 1
	Next

	ReDim Lines(Ubound(line))
	Dim j,coord,dist,p
	For i=0 To ubound(line)
		Lines(i) = Array(Rhino.CurveStartPoint(line(i)), Rhino.CurveEndPoint(line(i)))
	Next
	Dim test_p
	Dim e:e = 1e-10
	Dim z
	z = Ubound(PNTS)
	ReDim Matrix(z,z)

	For i=0 To Ubound(PNTS)
		For j=0 To Ubound(line)
			dist = Rhino.Min(array(Rhino.Distance(PNTS(i), Rhino.CurveStartPoint(line(j))), Rhino.Distance(PNTS(i), Rhino.CurveEndPoint(line(j)))))
			If dist < e Then
				Rhino.AddText i, Rhino.CurveMidPoint(line(j)), 1.5
				Matrix(i, j) = 1
			End If
			If dist > e Then
				Matrix(i, j) = 0
			End If

		Next
	Next
	Rhino.Print Matrix(i, j)

End Sub

Posts: 2

Participants: 2

Read full topic