[shumilovvv]

В свободное от работы время разрабатываю 3D САПР на базе AutoCAD.
Возникла проблема нахождения объема и площади поверхности деталей, для расчета количества антикоррозионного покрытия и пр.
ActiveX модель AutoCAD` не поддерживает таких данных на прямую, но существуют команды (_area, _massprop).
Вопрос, возможно ли получить из базы нужные данные, вычислить или необходимо скрестить VBA с AutoLisp?

[AlexV]

Если примитив - 3d solid, то у него есть свойства volume. Из справки:

Код:

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

Sub Example_Volume()
    Dim boxObj As Acad3DSolid
    Dim length As Double, width As Double, height As Double
    Dim center(0 To 2) As Double
    center(0) = 5#: center(1) = 5#: center(2) = 0
    length = 5#: width = 7: height = 10#
    Set boxObj = ThisDrawing.ModelSpace.AddBox(center, length, width, height)
    Dim NewDirection(0 To 2) As Double
    NewDirection(0) = -1: NewDirection(1) = -1: NewDirection(2) = 1
    ThisDrawing.ActiveViewport.direction = NewDirection
    ThisDrawing.ActiveViewport = ThisDrawing.ActiveViewport
    ZoomAll
    Dim Volume As Double
    Volume = boxObj.Volume
    MsgBox "Объем " & Volume, , "Volume Пример"       
End Sub

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

Объем для 3Д-солида получить не проблема: obj.Volume. Как получить площадь твердого тела чисто программно, без применения командных методов - не знаю.

[AlexV]

А что, разве чтение свойства примитива в коде программы - это не "чисто программно"?

[shumilovvv]

за obj.Volume спасибо, оказалось не сложным посчитать объем из моментов инерции теперь буду искать нахождение площади поверхности

[AlexV]

Сообщение от shumilovvv за obj.Volume спасибо, оказалось не сложным посчитать объем из моментов инерции теперь буду искать нахождение площади поверхности

Ну, моменты инерции-то здесь причем... А площадь поверхности... Может, как то скопировать все грани и снять площадь с них? Хотя как это сделать программно... Может, скопировать солид, заэксплодить и пройтись по объектам-поверхностям?

Однако, метод explode к солидам отчего-то не применим, в отличие от команды автокада.

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

AlexV, по-моему, у объекта поверхность (Surface) отсутствует понятие площади.

[AlexV]

Сообщение от Кулик Алексей aka kpblc AlexV, по-моему, у объекта поверхность (Surface) отсутствует понятие площади.

И правда, отсутствует... Плоские участки солида при explode превратятся в регионы, их площадь посчитать легко. А вот с криволинейными как быть..

[Александр Ривилис]

А в ObjectARX у 3DSolid площадь есть (намек на GeomProps - я там делал возможность вызова из VBA)

[shumilovvv]

Нашло расчетное решение! я конечно не математик но постараюсь по понятней.
Отношение площади к объему произвольного тела равно отношению площади к объему параллелепипеда в которое это тело вписано.

[Дима_]

Сообщение от shumilovvv Нашло расчетное решение! я конечно не математик но постараюсь по понятней. Отношение площади к объему произвольного тела равно отношению площади к объему параллелепипеда в которое это тело вписано.

Извините - но по моему это бред. Я в один и тот-же паралелепипед могу вписать бесконечное множество тел - и что у всех них будет одинаковое отношение объем/плащадь поверхности?

[Александр Ривилис]

Сообщение от Дима_ Извините - но по моему это бред. Я в один и тот-же паралелепипед могу вписать бесконечное множество тел - и что у всех них будет одинаковое отношение объем/плащадь поверхности?

+1E+6

[shumilovvv]

Для тех кто не верит, могут не верить. Для тех кто сомневается, данный способ я наковырял из курса по интегральному исчислению проверил для пяти произвольных фигур получил тоже значение, что и выдает команда _area.

[Sleekka]

не любое тело можно вписать в параллелепипед - ето раз.
два: нужно сечь тело с опр. шагом и вычислять площадь сечений, а потом сложить площади и умножить на шаг.

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

Sleekka, скажи, а зачем это?

[shumilovvv]

Сообщение от Sleekka не любое тело можно вписать в параллелепипед - ето раз. два: нужно сечь тело с опр. шагом и вычислять площадь сечений, а потом сложить площади и умножить на шаг.

object.GetBoundingBox какраз возвращает противоположные вершины этого самого параллелепипеда, по полученным точкам находим площадь и объем, объем тела поверхность которого мы ищем возвращает obj.Volume, днлим одно на другое и получаем площадь

[Александр Ривилис]

Сообщение от shumilovvv Для тех кто не верит, могут не верить. Для тех кто сомневается, данный способ я наковырял из курса по интегральному исчислению проверил для пяти произвольных фигур получил тоже значение, что и выдает команда _area.

Контрпример: Есть шар. Из него вырезан по оси цилиндр. Площадь целого шара и шара без цилиндра разная (в площадь включается еще и площадь боковой поверхности цилиндра). Зато и целый шар и "выгрызенный" вписываются в один и тот же параллелепипед (точнее куб). Что скажешь?
P.S.: Кстати, object.GetBoundingBox даст правильный параллелепипед только если "тело" ориентировано по осям. А если оно повернуто, скажем, на 45 градусов относительно оси Z? И это тело - длинный цилиндр?:-)

[Сергей Дубина]

Могу предложить приближенное решение.
У объекта solid из приведенного выше примера значение объема obj.volume равно 350. В коммандную строку через SendCommand отправляешь строчку для создания оболочки из твоего солида с толщиной напрмер 0,01 (чем меньше тем точнее) от корня кубического объема тела (или задать конкретную толщину покрытия, изоляции и т.д.)
Потом выдернуть этот объектик и посмотреть его объемчик. Ну а дальше S=V/t.

[Александр Ривилис]

Решение от Autodesk на .NET:

Код:

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

Autodesk.AutoCAD.DatabaseServices.Solid3d.Area

[Дима_]

Сообщение от shumilovvv Для тех кто не верит, могут не верить. Для тех кто сомневается, данный способ я наковырял из курса по интегральному исчислению проверил для пяти произвольных фигур получил тоже значение, что и выдает команда _area.

А Вы посложнее фигурки не пробовали задавать, например такие:

Ваш метод действует только на "экструдированные" тела, сравните отношения объема к площади у шара, цилиндра и конуса (все диаметры и высоты по 100) - наверно "курс по интегральному исчеслению" Вы бегло прочли.

[Sleekka]

2 Крыс
Это когда тела нету, а есть линии точки или 3dface.

[shumilovvv]

Сообщение от Дима_ А Вы посложнее фигурки не пробовали задавать, например такие: Ваш метод действует только на "экструдированные" тела, сравните отношения объема к площади у шара, цилиндра и конуса (все диаметры и высоты по 100) - наверно "курс по интегральному исчеслению" Вы бегло прочли.

Мнда… так оно и есть, данный способ работает только для тел полученных интегрированием по длиннее или по углу (_revolve и _extrude), для тел образованных булевой операцией вычитания это немного не канает, получаемая площадь несколько больше реальной, но использовать все же можно с некоторым приближением
будем вести поиск дальше...

[KpuJI]

сведения - площадь - права клавиша мишки - обект - и нажать на 3д тело

[Александр Ривилис]

Сообщение от KpuJI сведения - площадь - права клавиша мишки - обект - и нажать на 3д тело

Перечитай название темы. Если непонятно, то я объясню что в ней идёт речь о получении площади и объема твердого тела при помощи VBA видимо с целью дальнейшего использования в программе.