lag from cubes?

Make a box type:

Type box
  Field entityhandle
End Type

Then use a loop:

For 1 to [however many boxes you want]
  b.box = New box
  b\entityhandle = CreateCube()
  EntityType b\entityhandle, wall_col
  etc.......