[yurms]

С некоторых пор в Автокаде появились "ручки" у триде солидов
entry.ObjectName = "AcDb3dSolid" получил тип "Ящик" у которого в свойствах пользователь может управлять шириной, высотой,глубиной...
как получить доступ к этим свойствам?

на данный момент я извлекаю информацию о размерах примитива через функцию GetBoundingBox
entry.GetBoundingBox minExt, maxExt
dx = CLng(zint * maxExt(0) - zint * minExt(0)) / zint
dy = CLng(zint * maxExt(1) - zint * minExt(1)) / zint
dz = CLng(zint * maxExt(2) - zint * minExt(2)) / zint
но этот метод не определяет корректно габариты повернутых деталей- как добраться до Истинных габаритов?
и можно ли управлять свойствами типа Ящик - шириной, высотой,глубиной, и положением , через vba?

[trir]

наверно можно, но я бы не стал

[sbi]

Есть старый аналитический метод нахождения длины ширины и высоты ящика. изменяя из можно получить новый ящик.
В качестве примера

[yurms]

Сообщение от sbi С уважением sbi

разобрал ваш пример..
У вас там обратная задача.. не вычисление размеров построенного в ручную ящика.. а построение фигуры по заданным размерам.. и отрисовка размеров этого примитива..
у меня задача получения спецификации нарисованных объектов.. 3Dsolid

[yurms]

Ответ ! легко отличить проверяя свойство .SolidType -которое есть только у стандартных примитивов: ящик, цилиндр, тор, сфера...
модифицированные объекты в проверке вызовут ошибку

On Error GoTo NoBOX:
If MyObj.SolidType = "Ящик" Then
' ура мы распознали ящик!!
...
End If
NoBOX:
' это Не ящик!!

Только что дальше с этим ящиком делать? как узнать " Геометрию" (без поворотов ПСК и определений BountingBox?) и можно ли управлять им? например ширина=ширина+10???

----- добавлено через ~8 мин. -----
Самое красивое определение размеров для 3DSolida было в #16 http://forum.dwg.ru/showthread.php?p=893875#post893875
но это общий громоздкий случай

неужель нет простого пути?

----- добавлено через ~29 мин. -----
на лиспе в теме http://forum.dwg.ru/showthread.php?t=63692 есть код в сообщении #10 в 5 строчек который выдает размеры "Ящика" из dxf данных
как это реализовать на VBA-?