Мне нужно удалить некоторые части в объекте.
Вот функция которая по моему мнению должна ето делать, но почемуто она удоляет не всё а только часть и што интересно, переодично.
короче нужна функция которая бы удоляла нужнае мне части в объекте?
Function DelCHILD(entity, name$)
For i=1 To CountChildren(entity)
e_par=GetChild(entity,i)
n_e=0 :n_e=Instr(EntityName(e_par),name)
If n_e<>0 FreeEntity e_par
Next
End Function
|