Задача простая - подсчет площадей. Есть ли возможность получить сразу значение, указав точку внутри области (как в штриховке) с учетом островков, не занимаясь утомительным Add/Subtract единичных элементов?

[vasilyis]

Сообщение от Счетовод Shoorup, ну что не получилось?

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

[Счетовод]

Сообщение от vasilyis Получилось, только ваши разнотипные объекты, какие-то глюченные. Выкладываю файл, где нормально отрабатывают заливки с разнотипными линиями.

в чём выражается глючность объектов?
это просто кусочек профиля поверхности земли, правда профиля были построены в Civil'e

[vasilyis]

Сообщение от Счетовод ... это просто кусочек профиля поверхности земли, правда профиля были построены в Civil'e

Может поэтому он и глюченный, ACAD его не воспринимает, как свой объект.

[Павел Котелевец]

Единственное неудобство BOUNDARY состоит в том, что она, в отличие от HATCH, не поддерживает HPGAPTOL.
Если бы кто-нибудь переписал BOUNDARY под эту возможность, проблема с незамкнутыми контурами и их площадью была бы решена.
А вообще, восстанавливать контур штриховки не проблема (и встроенными, и лиспом это уже давно имеется) =\
Таким образом, простановка площадей незамкнутых контуров через перепись BOUNDARY - просто спортивный интерес. Для знатоков ARX.
Через лисп:

1) HATCH слушается HPGAPTOL и, в результате, может заштриховывать незамкнутые контуры с разрывом до 5000.
2) У штриховки легко извлекается контур.
3) Если контура сконвертить в REGION, то становятся доступны их центры масс и площади.

Код простановки центра масс региона:

Код:

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

(defun begin_activex ( / )
(vl-load-com)
(setq acad_application (vlax-get-acad-object))
(setq active_document (vla-get-ActiveDocument acad_application))
(setq model_space (vla-get-ModelSpace active_document))
(setq paper_space (vla-get-PaperSpace active_document))
)
(Defun c:cent_mass(/ OBJ c_mass_list c_mass)
(begin_activex)
(setq OBJ (vlax-ename->vla-object (car (entsel))))
(setq c_mass_list (vlax-safearray->list
(vlax-variant-value (vlax-get-property OBJ "Centroid"))))
(if (nth 2 c_mass_list) (setq c_mass (vlax-3D-point c_mass_list))
(setq c_mass (vlax-3D-point c_mass_list (List 0))))
(Vla-addPoint model_space c_mass)
)

4) В центр масс можно проставлять тексты с площадью каждого региона, так будет очевиднее к какому контуру какая площадь относится.
5) Если всё запихнуть в цикл - получится отличный автомат.


В принципе, вторая часть уже готова (C:PLAREAS)
Осталось придумать генератор Конвексных Контуров (у которых не будет встречаться двух последующих углов суммой свыше 450 градусов)

[Payne]

Нашел наиболее подходящую тему через поиск с использованием таких слов как площадь и подсчет) Ребята! Подскажите "молодежи" в автокаде, можно ли как-нибудь настроить автокад так, что бы площадь показывалась в "человеческих" квадратных метрах, а не в квадратных миллиметрах, в палитре быстрых или просто свойств, Благодарю заранее
И еще, скажите пожалуйста, есть ли более удобные инструменты вроде СПДС для автокада для проведения расчетов площадей?

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

Сообщение от Payne можно ли как-нибудь настроить автокад так, что бы площадь показывалась в "человеческих" квадратных метрах, а не в квадратных миллиметрах, в палитре быстрых или просто свойств,

Как вариант: GeomProps

[Payne]

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

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

Сообщение от Payne Где почитать можно?

По той ссылке, которую я дал прочитать не только первое сообщение.

[Payne]

Спасибо, сам уже разобрался, и кстати, читал я там не только первое сообщение, правда не нашел этой зацепки

[Payne]

Совсем забыл, большое спасибо автору макроса GeomProps!.

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

Сообщение от Payne Совсем забыл, большое спасибо автору макроса GeomProps!.

Пожалуйста!