Наверное я погорячился с методом ellipsoid-to-polygon.
Лучше вместо этого создать точку привязки и поставить ее на мето куба:
Type GeomPivot
field Pivot%
End Type
GPiv.GeomPivot=new GeomPivot
GPiv\Pivot=createpivot()
EntityRadius(GPiv\Pivot,5)
PositionEntity GPiv\Pivot,x*width2+5,5,-z*depth2-5
EntityType cube\obj,typecube2
А в процедуре fnDestroyField() использовать следующую функцию
Function FNDestroyPivots()
For GPiv.GeomPivot=each GeomPivot
Freeentity(GPiv\Pivot)
delete GPiv
Next
End Function