[Rianna]

У меня возникла необходимость сложить площади обектов, заданных контуром в виде полилинии, возможно ли сделать это автоматически, или придется выписывать площадь каждой на бумажку и считать вручную?

[skif58]

Команда _area с опциями Объект и Добавить...

[Хмурый]

Программа Александра Ривилиса GeomProps

[Olga_@@@]

skif58, это очень долго все, если объектов больше 50 000

[Rianna]

Спасибо))) Объектов меньше 50000))) просто участок дороги с покрытиями))

[wetr]

Сообщение от Olga_@@@ skif58, это очень долго все, если объектов больше 50 000

Тогда SelSim + GeomProps

[Olga_@@@]

Сообщение от wetr Тогда SelSim + GeomProps

Что за зверь GeomProps? Где взять?

[nik_mb]

В строительном черчении, когда единицы Автокада соответствуют милиметрам, площадь желательно получать в кв. метрах.
В своей программе реализовал деление сумм площадей на 1000000 и возможность "печати" на чертеж полученного значения.

[Хмурый]

Olga_@@@, ссылка в сообщении #3

[Sleekka]

2nik_mb - vlx не предлагать.
2Olga_@@@ - в гхугхле

[nik_mb]

Сообщение от Sleekka 2nik_mb - vlx не предлагать.

Не знал, что есть такое правило - в arx моно, а vlx низяя.

[Sleekka]

Это не правило, это шутка, я ж не админ правила тут устанавливать

[Profan]

Сообщение от nik_mb Не знал, что есть такое правило - в arx моно, а vlx низяя.

vlx нельзя использовать в ZWCAD.

[RFL]

Пользуюсь этим (где брал не помню):
Программа [L, S, V, m] - предназначена для измерения и расчета длин, площадей, объемов и масс элементов различными способами, кроме того, имеется функция суммирования чисел на чертеже (LSV.dvb).

[CaMoCAD]

Почему-то никто не вспомнил про старый дедовский способ: все перевести в регионы и булево-суммировать

[nik_mb]

Сообщение от CaMoCAD Почему-то никто не вспомнил про старый дедовский способ: все перевести в регионы и булево-суммировать

Когда понаписано столько программ, считать дедовским способом?. Да и объекты, у которых может подсчитана площадь - Arc, Circle, Ellipse, Hatch, LightweightPolyline, Polyline, Region, Spline, не все они могут переведены в регионы.
Теперь АКАД 2010-й может подсчитывать сумму площадей командой _MEASUREGEOM. Можно для нее написать макрос типа "^C^C_MEASUREGEOM _area _add _object". Правда выбирать надо по одному примитиву и не все - площадь примитивов "Arc" не считает (хотя это не актуально).

[Profan]

Площадь арки никому и в голову не приходит считать. Арка - это архитектурное сооружение.

[CaMoCAD]

Сообщение от nik_mb Когда понаписано столько программ, считать дедовским способом?.

Всего 2 действия для деда - выбрать объекты и применить _region, никакая программа без Вашего участия не сделает правильный выбор.

Сообщение от nik_mb Да и объекты, у которых может подсчитана площадь - Arc, Circle, Ellipse, Hatch, LightweightPolyline, Polyline, Region, Spline, не все они могут переведены в регионы.

Прочтите условие: "обектов, заданных контуром в виде полилинии", ну а переводить region в region и измерять площадь штриховки, - нет уж, увольте.
Кстати, что за зверь такой - LightweightPolyline? Полилиния легкая безалкогольная?

Сообщение от nik_mb Теперь АКАД 2010-й может подсчитывать сумму площадей командой _MEASUREGEOM. Можно для нее написать макрос типа "^C^C_MEASUREGEOM _area _add _object". Правда выбирать надо по одному примитиву и не все - площадь примитивов "Arc" не считает (хотя это не актуально).

И чем 2010 удивил тех же дедов? По-моему то же самое, боковая проекция...

[Profan]

CaMoCAD написал:

Всего 2 действия для деда - выбрать объекты и применить _region

Выбирать поштучно придется? Ладно, выбрал, применил _region. Теперь будешь складывать области? Хорошо, сложил. Выделил, помотрел в свойствах суммарную площадь. Дальше что делать? Ага, расчленил сложную область. Еще раз расчленил отдельные области, они ведь не нужны в чертеже. Блин, вместо исходных контуров из полилиний получились отрезки. Прибить бы такого деда за его способ.

[nik_mb]

Сообщение от CaMoCAD ...Кстати, что за зверь такой - LightweightPolyline? Полилиния легкая безалкогольная?

Честно, поленился писать и скопировал строчку из справки АктивХ, которая полнее выглядит так:
"object.Area
object Arc, Circle, Ellipse, Hatch, LightweightPolyline, Polyline, Region, Spline
The objects this property applies to.
Area Double; read-write for Circle objects, read-only for all others
The area of the object specified in square drawing units."
"Безалкагольная" полилиния - полилиния на плоскости, это заморочки Автокада. Или как в справке "Polyline этот объект - более ранняя версия объекта LightweightPolyline. Используйте новый объект LightweightPolyline для создания polylines с оптимизированным форматом, который оставляет свободное место и дисковое пространство"

[CaMoCAD]

Сообщение от Profan CaMoCAD написал: Выбирать поштучно придется? Ладно, выбрал, применил _region. Теперь будешь складывать области? Хорошо, сложил. Выделил, помотрел в свойствах суммарную площадь. Дальше что делать? Ага, расчленил сложную область. Еще раз расчленил отдельные области, они ведь не нужны в чертеже. Блин, вместо исходных контуров из полилиний получились отрезки. Прибить бы такого деда за его способ.

Не бейте.
Вариант 1: Ctrl+A, Quick Select --> (Polylines, Select all); COPY...
Вариант 2: ...Ctrl+Z, Ctrl+Z, Ctrl+Z

[Sleekka]

Молодец

[Profan]

Сообщение от CaMoCAD Не бейте. Вариант 1: Ctrl+A, Quick Select --> (Polylines, Select all); COPY... Вариант 2: ...Ctrl+Z, Ctrl+Z, Ctrl+Z

Не знаю, какой ты дед, но я дед точно и помню старые дедовские времена, когда и палитры свойств не было, поэтому и пришлось сочинять программы на AutoLisp, причем для площадей сразу с переводом в кв. м.
Посмотри на свои варианты. Или тот или другой? Не годится. Сначала первый, потом второй. Но в первом варианте в набор могут попасть лишние полилинии, потому что в AutoCAD'е нет объекта "Контур", а из незамкнутой полилинии нельзя создать область.
А ты пишешь - в 2 действия. Найди-ка в Быстром выборе фильтр на замкнутость полилинии.

[nik_mb]

Сообщение от CaMoCAD Не бейте. Вариант 1: Ctrl+A, Quick Select --> (Polylines, Select all); COPY... Вариант 2: ...Ctrl+Z, Ctrl+Z, Ctrl+Z

Каждый выбирает для себя то, что считает удобным и привычным (привычка враг нового и общепринятого). Тем более, что с автокадом работают люди разных спецальностей.
Скажу за себя, когда нужно посчитать площадь какой-то плиты перекрытия, с отверстиями. То выделяю тот слой в которым начерчена плита, пускаю штриховку по всей площади плиты (а отверстия остаются незаполнеными), беру площадь. Потом штриховку можно Delete, а слои все включить. Не сильно коротко, конечно. Но, в отличии от архитекторов, я не занимаюсь, постоянно, подсчетом площадей.

[CaMoCAD]

2 Profan,
Конечно, я утрирую, не 2 действия, да еще и голову включать надо при выборе полилиний (или чуть раньше, при выборе слоя для интересующих объектов). Хотел сказать, что на каждый-всякий случай не напасешься лиспов. Если Вы не делаете целый день однотипную работу, то, может быть, имеет смысл научиться пользоваться штатными средствами.
Замечательно, если Вы можете за 5-10 мин. набросать нужный лисп, но обвес автокада многочисленными-чужими-непонятно-как-работающими программами мне лично напоминает наболдашник с розочкой на ручку КПП, наклейку "не хлопать" на бардачке, плюшевые игральные кости на зеркале и подушечку BMW на заднем сидении "девятки".
Мне почему-то кажется, что пользователи LT меня особенно поддержат.
2 nik_mb,
Конечно, каждый скотчит, как хочет. Это всего лишь мое скромное мнение. Ваш способ хорош уже тем, что удобен Вам.

[nik_mb]

Сообщение от CaMoCAD 2 Profan, ...но обвес автокада многочисленными-чужими-непонятно-как-работающими программами мне лично напоминает наболдашник с розочкой на ручку КПП, наклейку "не хлопать" на бардачке, плюшевые игральные кости на зеркале и подушечку BMW на заднем сидении "девятки". Мне почему-то кажется, что пользователи LT меня особенно поддержат.

Вы передергиваете. Автомобильные прибамбасы показывают степень "крутости" водителя. А работающие программки (чужие, свои, а непонятные - зачем они кому-то) никому ничего не показывают, их просто не видно (ну разве, что как дополнительная иконка). Жалко пользователей ЛТ, но это не повод раздражаться им наличием дополнительных возможностей у пользователей полных версий.
Хуже, когда отсутствие умения выполнить что-то имеющимися средствами, заменяют раздражением о том, что зачем им "непонятно-как-работающие программы" и обходятся "доступными" средствами. Никогда не видели, что штриховку рисуют "вручную", а толщину линий показывают копией линий расположенных рядом (я привожу реальные случаи)? И рисуют на одном чертеже в разных масштабах, а видовые окна остаются "непонятно-как-работающими".

[Profan]

Маленькая программка:

Код:

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

 
(defun C:SUM_AR ( /  ssp sspn n k ssk pp pl_ar)
(vl-load-com)
(setq ssp (ssget  "_X"  '((0 . "*POLYLINE"))))
(if ssp
     (progn
     (setq sspn (sslength ssp) n 0 k 0 ssk 0)
     (repeat sspn
                   (setq pp (ssname ssp n))
                   (if (= (vlax-get-property (vlax-ename->vla-object pp) 'Closed) :vlax-true)
                            (progn 
  ;                          (command "_-LAYER" "_M" "tmp" "_C" 31 "tmp" "")
  ;                          (command "_-BHATCH" "_s" pp "" "_P" "Solid" "") 
                            (setq pl_ar (vlax-get-property (vlax-ename->vla-object pp) 'Area))
                            (setq ssk (+ ssk pl_ar))
                            (setq k (1+ k))
                             )
                     )
                     (setq n (1+ n))
       )
       )
)
(princ " Замкнутых контуров: ") (princ k)
(princ " Площадь в единицах чертежа = ") (princ ssk)
(setq ssk (/ ssk 1000000))
(setq ssk (strcat "\nСуммарная площадь = " (rtos ssk 2 2) " кв.м \n"))
(princ ssk) (alert ssk)
(princ)
)

[Pipe]

Господа, а не знаете, из-за чего geomprops не вычисляет площадь 3d face. Я построил поверхность и мне нужно узнать её площадь. geomprops общитывает поверхность почему-то выборочно: у каких-то 3d face'ов показывает площадь, а у каких нет.

[VVA]

Pipe, Задай вопрос автору. Основная тема geomprops

[Pipe]

Я уже сам нашёл ответ. Делаем следующее: modify->3d operations->convert to surface. И после этого наши поверхности explode. То, что получилось легко меряется.

[Dimitriy]

А есть ли GeomProps для автокад 2022 ?

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

Dimitriy,
Да. Тот же, что и для AutoCAD 2021

[Dimitriy]

Сообщение от Александр Ривилис Dimitriy, Да. Тот же, что и для AutoCAD 2021

Спасибо!

[privodnik]

что-то я не понимаю, подскажите.
ну загрузиля geomprops в акад и что?
панелей не появилось
команд в комстроке не вижу.

З,Ы, давно не сталкивался с влх. лиспов хватало

----- добавлено через ~10 ч. -----

Сообщение от privodnik что-то я не понимаю, подскажите. ну загрузиля geomprops в акад и что? панелей не появилось команд в комстроке не вижу. З,Ы, давно не сталкивался с влх. лиспов хватало

разобрался.
оно всё в свойствах отображается! о_О круто