Удалить из сцены все объекты не являющиеся геометрией

[Castello]

Помогите со скриптом который сделает следующее (именно в такой последовательности):
1) удалит из сцены все объекты не являющиеся геометрией
2) scale объектов сцены со значенем 10000
3) Reset XForm объектов
4) сконвертирует объекты в EditablePoly

 

[Savin Denis]

Castello, совесть то иметь надо, все это можно найти на scriptspot.com
а что бы скомбинировать познаний в скрипте не требуется.

Вызвать небольшие затруднения может только первый пункт:

delete (for obj in $objects where  (superclassof obj) != GeometryClass and not isGroupHead obj or  (superclassof obj) == GeometryClass and obj.isTarget collect obj)