Как "бегать" по дереву?

[MisterX]

Вот если есть некий документ активный - например .CATProduct с деревом своим, каким образом можно было-бы перемещаться с одного уровня дерева на другой и например записать в массив все объекты дерева? В общем вопрос даже не о том как записать, а как осуществить переход с уровня на уровень и прошерстить все элементы GeometricalSet'а или Body?

[booSter]

Есть два решения:

1. Традиционное - используется CAA интерфейс CATIDescendants
2. "Лазанье" по дереву - используется связка CAA интерфейсов CATINavigateObject + CATINavigElement + CATNavigInstance

Результаты могут получиться разные так как в первом случае используется информация прямо из документа, а во втором из текущего представления документа.

В VB\VBA второй способ недоступен, а первый превращается в извлечение элементов из соответствующей коллекции (используя метод Item)

P.S.: Можно ещё глянуть здесь

[Mihan]

Заинтересовался данной проблеммой. Может кто-нибудь написал уже макрос. Если есть такие, не поделитесь ли исходниками?