Код:

(defun C:суммарегионов-ax (/ sset ent itm num tot obj)

(princ "\nВыделите REGION: ")

(setq sset (ssget '((0 . "REGION"))))

(if sset

(progn

(setq num (sslength sset) itm 0 tot 0.0)

(while (< itm num)

(setq ent (ssname sset itm))

;; Получаем объект через vla-get-objectname и считаем площадь

(setq obj (vlax-ename->vla-object ent))

(if (and obj (vlax-method-applicable-p obj 'GetArea))

(progn

(setq tot (+ tot (vlax-invoke obj 'GetArea)))

)

)

(setq itm (1+ itm))

)

(princ (strcat "\nTotal Area = " (rtos tot 2 3) " кв.ед."))

)

(princ "\nНе найдено REGION.")

)

(princ)

)

Но автокад (у меня 2022-й) с упорством религиозного фанатика на каждый вариант кода лиспа рождённого Алисой, в командной строке выдавал квадратуру по нулям, как к одинарно выделенной области, так к нескольким:

Команда: СУММАРЕГИОНОВ-AX

Выделите REGION:

Выберите объекты: Противоположный угол: найдено: 4

Выберите объекты: Противоположный угол: найдено: 3 (2 повторно), всего: 5

Выберите объекты:

Total Area = 0 кв.ед.

Причём результат "0 кв. ед." выдавался как к вертикально, горизонтально так под углом расположенных областей.

Может кто из Гуру поможет в вопросе, в чём тут ошибка, или автоматический подсчёт поверхностей не реален в каде? Увы, в кодинге я разбираюсь как свинота в атомной физике.

С Уважением!

Дополнение.

Думал, что поможет команда "масс-хар" (она же "_massprop") с последующим выделением поверхностей и получением суммарной площади, но нихрена, считает только объединённые области в одной плоскости.

Помог вот этот скрипт от А. Равилиса с форума DWG.RU.

https://disk.yandex.ru/d/0oW-4vT_g4Vj6g.

— Насколько сейчас реально без танцев с бубном развернуть виртуалку на свежих процессорах Apple (М-серии), чтобы «Технокад» не вылетал и, главное, видел USB-ключи защиты и ЭЦП?
— Как обстоят дела с установкой «народных» версий софта под Mac? В свете того, что официально у нас по-прежнему ничего не купить, торренты — наше всё. Нет ли проблем с установкой на последние версии macOS?
— Не получу ли я за свои же деньги головную боль вместо комфортной работы в отпуске?

Идея такая: съездить с ним в отпуск, поработать (проверить ту самую автономность, о которой все кричат), а потом отдать дочке для учебы.

Есть тут коллеги по цеху или инженеры смежных специальностей, кто променял винду на мак? Поделитесь опытом: стоит ли овчинка выделки или в нашем деле лучше не извращаться?

А вот штриховки и заливки повели себя нехорошо. Изучаю, как говорится, матчасть.
1. Штриховки могут быть многоблочными, и раскиданы по всему плану, поэтому просто не попадают в выделение.
2. Не все штриховки имеют готовый контур.

Пункт 2 особенно напряг. Оказалось, что вынуть координаты узлов таких штриховок без танцев с бубном проблемно. Бубном оказался скрипт на AutoLISP, который справился с этой задачей.

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

Когда кто-то спрашивает: «Для чего мы учим в школе геометрию-тригонометрию?». Отвечаю: «Вот для таких случаев.» Вспомнить пришлось все, от школьной геометрии – коллинеарность, параллельность, перпендикулярность, до линейной алгебры и аналитической геометрии первого курса института. Чтобы подготовить схему к поиску контура программа делает 7 шагов, каждый из которых перебирает все линии и не один раз.

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

Пробуем посложнее.

Отлично. Продолжение следует.

Полное описание функционала тут

Не AutoCAD и не Revit, конечно. Скорее, инструмент для бытовых задач: прикинуть перепланировку, понять, влезет ли шкаф, сохранить несколько вариантов ремонта. 

Что уже есть:

• рисование стен;

• двери и окна;

• мебель из каталога (скудновато, много картинок мне ИИ рисовала), но можно и свою добавлять.

• электрика;

• слои, скрытие и блокировка слоёв;

• подложка плана;

• сохранение проектов в профиле;

• экспорт в PDF;

• несколько планов у одного пользователя.

Сейчас сервис в бете. Местами ещё шероховатый, но основные сценарии уже работают. AI-расстановку пока отключил, потому что хочу сначала нормально довести обычный редактор и каталог, а не делать “магическую кнопку”, которая ставит шкаф перед  дверью. 

Сделал еще конструктор мебели, там можно в простых размерах нарисовать кухню, шкаф и диван и добавить это на план. 

И конструктор электрики

И можно это дело в PDF

Так же есть импорт, но он не всегда сейчас идеально распознает, но всё равно может пригодиться.

Больше всего сейчас интересует обратная связь по удобству:

• понятно ли, как рисовать стены;

• удобно ли работать со слоями;

• хватает ли каталога;

• нужен ли импорт плана как подложки;

• что бесит в интерфейсе.

Если кому-то актуально для ремонта/планировки, буду рад, если потыкаете и напишете, что сломалось или чего не хватает.  Ссылка http://apeyron-cad.com/