Если модели одинаковые,то можно воспользоваться массивом.
Типа этого:
Dim entity(5)
entity(0)=LoadMesh("popa.b3d")
HideEntity entity(0)
For i=1 to 4
entity(i)=copyentity(entity(0))
;После копирования все св. объекта entity(0), присвоятся и остальным 4-ым
Next
А,чтобы например вывести только один или несколько объектов.Пишешь так:
ShowEntity entity(2)
ShowEntity(5)
;итд...