Hi all!

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

Charly

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