HolyDel я написал вот такое ну она почемуто не работает типа переполнение памяти говорит.
Function AnimEntityWidth#(aent)
Local ent,rez#
rez#=MeshWidth(aent)
For c=1 To CountChildren(aent)
ent=GetChild(aent,c)
If CountChildren(ent)>0
AnimEntityWidth#(ent)
Else
rez#=MeshWidth(ent)
EndIf
Next
Return rez#
End Function
Function AnimEntityHeight#(aent)
Local ent,rez#
rez#=MeshHeight(aent)
For c=1 To CountChildren(aent)
ent=GetChild(aent,c)
If CountChildren(ent)>0
AnimEntityHeight#(ent)
Else
rez#=MeshHeight(ent)
EndIf
Next
Return rez#
End Function
Function AnimEntityDepth#(aent)
Local ent,rez#
rez#=MeshDepth(aent)
For c=1 To CountChildren(aent)
ent=GetChild(aent,c)
If CountChildren(ent)>0
AnimEntityDepth#(ent)
Else
rez#=MeshDepth(ent)
EndIf
Next
Return rez#
End Function