Lestadio

Гляжу, а ткань- то не ХБ, а синтетика (да, даже тогда я понимал разницу между х/б и синтетикой, так как любил слушать не только разговоры взрослых, и был весьма прозорлив) значит чернила по идее не должны были впитаться на мертво.

Говорю- тащи пару стаканов чистой воды и миску, будем чистить! Товарищ мол- хули делать, метнулся на кухню и притараканил запрошенное.

А теперь говорю, делай как я! Набираю немного воды в рот и запихав туда же кусок испачканой ткани начал полоскать во рту. 😁🤦‍♂️, друг при этом смотрит на меня с изумлением как на идиота. Вытаскиваю ткань из рта, смотрю, а пятно- то почти исчело, сплёвываю испачканую воду в миску, набираю в рот чистой воды и повторяю процесс. После повтора пятно исчезает, демонстрирую Лёхе. Хрен ли вылупился? Приступай!

И вот торчим мы у окна, "жуём" как заправская моль тюль, ржём над друг- другом до коликов в животе, но упорно продолжаем "стирку", и... за этим нас застаёт старшая сестра Лёхи, что нажданно заявилась домой, а мы за шутками и смехом даже не заметили её появление на пороге комнаты. Стоит пялится на нас, глаза по 5 советских копеек и не знает, смеяться над нами или обругать. Хрен его знает, сколько она там тихонько простояла, но явно не допетрила зачем два малолетних дебила жуют тюль, потому была насколько в охеревше- недоумённом состоянии. Естественно нам пришлось признаться, что да как.

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

И так как сестра Лёхи была любимицей мамы, люлей она не получила и даже была похвалена, мол- сама испачкала, сама и постирала, в общем как говорила мама героини из одного советского мультфильма- "умничка дочка!". А вот Лёхе бы выписали моральных люлей, даже если бы он сознался во всём и сам бы попытался постирать этот тюль, он почему- то был на вторых ролях у матери после дочки.

Код:

(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.

Дополнение:
Если сегодня разберу вилку, то сниму её кишки. (если конечно блядская семейная рутина даст)