[AIRAT_YUNUSOV]

Доброго времени суток!
Подскажите, как быстро вычислить общую длину стен в чертеже автокада? Для правильности вычисления объемов в смете.

В принципе можно по штриховке. Я выделял Выбрать подобные, далее свойства. Но общую сумму он не выдает.

Знаю что по полилинии можно вычислить общую длину или площадь, но чтобы вычислить общую длинну кирпичных стен АБК долго обводить все полилиний.

[Tamerlan_MZO]

Это не подходит?

[Profan]

В стандартном AutoCAD'е никаких стен нет.

[Boxa]

Сообщение от AIRAT_YUNUSOV но чтобы вычислить общую длинну кирпичных стен АБК долго обводить все полилиний.

_boundary

[Bull]

Сообщение от AIRAT_YUNUSOV Подскажите, как быстро вычислить общую длину стен в чертеже автокада?

Как уже сказали, "стен" в автокаде нет. Есть контура. Если полилинией, то обязательно "обводить" не надо. Если там замкнутые контура, то достаточно воспользоваться командой "изменить полилинию", при этом добавив всё рамкой (ведь не стыкующиеся всё равно не присоединятся). Команда "область" (_boundary) ещё лучше, ей можно создать контур там, где помещение состоит из нескольких комнат. Но вот как учитывать общие стены, тут уже вопрос.

PS И в любом случае, не найдёте БКК на все сложные случаи. Придется ручками поработать.

[Saprofit]

Выбираешь все линии стен, копируешь в свободную область модели, делаешь извлечение данных выбирая рамочкой скопированные стены, снимаешь все галочки фильтров кроме геометрия-длина, выгружаешь в excel делаешь автосумму длин и делишь на 2, можно еще откинуть все значения толщин стен, смотря куда погрешность критичней

[AIRAT_YUNUSOV]

Сообщение от Tamerlan_MZO Это не подходит?

Подскажите пожалуйста как вызвать подпрограмму из Автокада? Загрузил в AutoCAD при помощи команды _APPLOAD. Никакого аварийного завершения AutoCAD нет.
Даже еслисли открыт Design Center (команда _adcenter) и загружен GeomProps при выходе из AutoCAD не возникает ошибки
(необрабатываемое исключение в AcObjClassImp.arx).

Однако Вызова из AutoLISPа нет тоже:

(GeomPropsGetArea <имя примитива>) ;; Площадь примитива
(GeomPropsGetVolume <имя примитива>) ;; Объем примитива
(GeomPropsGetPerimiter <имя примитива>) ;; Периметр/длина примитива

Вызов из VBA:

Как этим пользоваться? Объясните пожалуйста:
' Для AutoCAD 2007 и выше
Private Declare Function GeomPropsGetArea Lib "GeomProps2007.arx" (ByVal id As Long) As Double
Private Declare Function GeomPropsGetVolume Lib "GeomProps2007.arx" (ByVal id As Long) As Double
Private Declare Function GeomPropsGetPerimeter Lib "GeomProps2007.arx" (ByVal id As Long) As Double
' Пример получения площади
Public Sub TestArea()
Dim o As AcadObject
Dim p As Variant
ThisDrawing.Utility.GetEntity o, p, "Выберите примитив: "
Dim id As Long
id = o.ObjectID
Dim ar As Double
ar = GeomPropsGetArea(id)
MsgBox "Area=" + CStr(ar), , "GetArea Example"
End Sub

[baksconstructor]

AIRAT_YUNUSOV
может всё таки удосужитесь пример файла выложить ?