I’m working on the following script. The objective is that it asks you the number of decks of floors in a building. Then it will ask you the height of each deck, and the objective is that it generates a horizontal plane at the height of each floor.
The problema is that is returns me an error when I try to use the “Rhino.addsrfpt” (I’ve also tried with “Rhino.Planefromframe” and others similar). This error tells me that the number of arguments is wrong or the asignation of property is not valid.
Do you know where could be the error? Thank you very much
Dim ncub, i ncub = Rhino.Realbox("Specify the number of decks", , "Number of decks") i = 1 If IsNumeric(ncub) And ncub > 0 Then While i < (ncub + 1) hcub = Rhino.Realbox("Height of the deck " & i & " in meters", , "Deck" & i) z = hcub If IsNumeric(hcub) And hcub > 0 Then p1 = Array(-50, -100, z) p2 = Array(-50, 100, z) p3 = Array(400, 100, z) p4 = Array(400, -100, z) Call Rhino.addsrfpt(p1, p2, p3, p4) Else End If i = i + 1 Wend Else End If