[ЛысыЙ_Чук-Иванчук]

Ну вот те код который находит определеные объекты и записывает их значения в блокнот=))

Graphics3D 800,600,32,2
SetBuffer BackBuffer()
Global ColVo=0
Print "ЗАГРУЗКА"
baza= LoadAnimMesh("..\data\baza\baza1.b3d")
ScaleEntity baza,.23,.23,.23
SaveLevel(baza, "Zab", "..\data\baza\zab.ini")
Print "КОЛИЧЕСТВО ЗАБОРА_"+ COLVO
SaveLevel(baza, "stul", "..\data\baza\stul.ini")
Print "КОЛИЧЕСТВО СТУЛЬЕВ_"+ COLVO
SaveLevel(baza, "stol", "..\data\baza\stol.ini")
Print "КОЛИЧЕСТВО СТОЛОВ_"+ COLVO
SaveLevel(baza, "Bocha_1", "..\data\baza\meloch\bochKa\BochKa.ini")
Print "КОЛИЧЕСТВО БОЧЕГ_"+ COLVO

Print "КОНЕЦ"

Delay 2000


Function SaveLevel(entity, mesh$, File$)
File=WriteFile(File): If file=0 End
colVo=0
For i=1 To CountChildren(entity)
e_par=GetChild(entity,i)
n_e=0 :n_e=Instr(EntityName(e_par),mesh)
If n_e<>0
colvo=colvo+1
WriteLine(File,EntityX(e_par,1))
WriteLine(File,EntityY(e_par,1))
WriteLine(File,EntityZ(e_par,1))
WriteLine(File,EntityPitch(e_par,1))
WriteLine(File,EntityYaw(e_par,1))
WriteLine(File,EntityRoll(e_par,1))
EndIf
Next
CloseFile(File)