[MaximuS_G]

Всем привет!
Надеюсь получить совет от гуру...
Есть изделие, нарисованное в Автокаде (см. вложение). Для примера это шкаф: у него есть стоевые, дно, крыша, перегородки, полки и т.д.
Часть из этих деталей сделано из материала А, часть из материала Б.
Моя задача:
1. Вывести список деталей с размерами по ДхШхГ из материала А и Б.
2. Посчитать площадь всех деталей сделанных из материала А.
Если бы я смог решить первую задачу, вторая задача тоже бы решалась.

Вот здесьв принципе практически тоже самое требовалось, только для 2D объектов, а у меня 3d.
Разница в том, что автору нужен был код, а мне нужны подсказки, я хочу сам разобраться. В том топике Дима_ приводил код для задачи, но он не на VBA, я его не могу к сожалению понять.
Думал материалы отличать слоями, но сейчас буду пробовать разобраться с блоками. В топике вроде бы сошлись на том, что их использование для такой задачи как у меня лучше.

И еще вопросы:
Как мне получить ссылку на выделенный объект в рабочем пространстве, что бы посмотреть его свойства?
То есть вот такой кусок кода сначала создает объект, а потом он к нему обращается, а мне надо к выделенному добраться.

Код:

[Выделить все]

Dim circleObj As AcadCircle
Set circleObj = ThisDrawing.ModelSpace.AddCircle(center, radius)
circleObj.Layer = "ABC"

Если я правильно понимаю, то к любому объекту я могу добраться перебором:

Код:

[Выделить все]

Dim oCad As AcadObject
For Each oCad In ThisDrawing.ModelSpace
MsgBox oCad.Volume
Next

В чем разница между AcadObject и AcadEntity?

Заранее спасибо за любую помощь!
Всем удачи!)

[Кулик Алексей aka kpblc]

Спокойнее, спокойнее...