[Малявка]

Здравствуйте, уважаемые мастера ЛИСПа!

У нас в конторе зашел разговор о процентном заполнении краской чертежа. Как считать? Имеется ввиду совсем не это: (http://forum.dwg.ru/showthread.php?t=3544).
Нужно посчитать площадь, залитую краской, к площади всего листа (или, если в модели - к площади, ограниченной рамкой).

Обращаюсь к вам с просьбой: сочините макрос, пожалуйста, чтобы он запросил у пользователя указать ограничительную рамку (любой формы, не обязательно прямоугольник, возможно круг, эллипс, замкнутая полилиния и даже "облачко"), а затем внутри этой рамки перебрал бы все линии, штриховки, вставленные изображения, тексты, размерные линии, то есть всё, изображенное внутри выделенной рамки, у каждого высчитал бы его площадь и выдал бы результат в форме, о которой - в конце поста.

Я думаю, что возможно высчитать ЛИСПом, например, площадь отрезка, зная его длину и вес линии. Так же можно высчитать и площадь любой линии, даже площадь каждой линии в штриховке, зная стиль и масштаб штриховки.

Теперь о выдаче результата: хотелось бы, чтобы макрос выдавал результат в такой примерно форме:

Процент заполнения общий: 12,6
Процент заполнения цветом black: 10,4
Процент заполнения цветом magenta: 5,3
Процент заполнения цветом yellow: 1,4
Процент заполнения цветом blue: 6,8

Если, например, чертеж монохромный, то результат будет такой:

Процент заполнения общий: 12,6
Процент заполнения цветом black: 12,6
Процент заполнения цветом magenta: 0,0
Процент заполнения цветом yellow: 0,0
Процент заполнения цветом blue: 0,0

(Вижу трудность в подсчете площади составных цветов, где основные цвета представлены частично, например разные градации серого цвета, да любые градации любых цветов! Хотя здесь можно ориентироваться на числовые значения RGB.)

Спросите: зачем все это надо?
Для расчета стоимости конкретного чертежа при печати. Возникает много споров между заказчиком и исполнителем при определении стоимости за распечатку чертежей.

Спасибо.

p.s. работаю в основном в AutoCAD 2008, иногда в 2011

[Евгений Д.]

есть на принтерах некоторых такая опция
(мне в универе стоимость распечатки расчитывают так)
А без лиспа есть какая нибудь прога??? А то в лиспах ваще не шарю!

[Alan]

Надо дождаться появления в теме Евгения Елпанова.
Думаю, что эта задача - частный случай его реализованного проекта.
http://elpanov.com/index.php?id=38#top
Ну или сами обратитесь к нему...

[Do$]

Задача непростая в общем случае. Как я понял, чертежи приносят на печать разные люди, значит, в этих чертежах возможно все - нужно будет предусмотреть массу возможных вариантов, программу нужно будет неоднократно дорабатывать.
Сложностей мне видится масса! Например: объекты внутри блоков, внешних ссылок, тексты и мультитексты в зависимости от шрифта и его настроек, мультивыноски, таблицы, нестандартные штриховки... В общем каждый тип примитива автокада нужно рассматривать отдельно и тщательно.
В общем - то еще удовольствие
Наглядное представление о процессе написания и отладки программы подобного типа можно получить, посмотрев тему "Поиск и замена русских букв на чертеже".

[Vov.Ka]

пиши в растр и считай пиксели

[Елпанов Евгений]

задача, как я вижу, чисто полиграфическая...
Решается, она так же просто, без дополнительной автоматизации.
1. берем любой растр
2. открываем его в фотошопе или другом редакторе поддерживающем нужные функции
3. уменьшаем изображение до одного пиксела
4. смотрим цветовую составляющую этого пиксела в нужном цветовом профиле, обычно полиграфисты смотрят в смик


там будет как раз то, что вы просите...

[Малявка]

1. берем любой растр

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

[Елпанов Евгений]

попробую объяснить еще раз - для начала нужно растеризовать чертеж, т.е нужно вычислить площадь каждой линии, каждого текста, штриховок итд, относительно фона. Можно проделать такую задачу и без использования растровых файлов, но именно растровые файлы дадут максимально точное значение и можно использовать уже готовые программы для получения информации. Если бы вопрос стоял о простых примитивах, то можно было бы и заняться, а если решать в общем случае, т.е делать расчеты отношений фон - краска для любых типов шрифтов, для вставленных в чертеж картинок, для тонированных объектов или градиентных штриховок, то я не рекомендую это делать самим, тем более, что эта часть задачи решается стандартными методами...


> Нет, речь идет не о растрах, а о векторе, о чертежах dwg.
так тебе и говорят, что можно создавать растровые файлы из чертежей, т.е печатать в растровый файл...

[Малявка]

Поняла, большое спасибо!
Порылась в интернете - там море разных программ под мою проблему. Буду разбираться на форумах Photoshop, CorelDraw и других.

p.s. И все равно досадно, что нет такого лиспика, чтобы без лишних телодвижений узнать хотя бы просто процент заполнения без указания цвета.

[Дима_]

Сообщение от Малявка p.s. И все равно досадно, что нет такого лиспика, чтобы без лишних телодвижений узнать хотя бы просто процент заполнения без указания цвета.

"Лиспик" - по данному методу будет считать точки "адски" долго, но вполне можно сделать не Net, либо если не хотите привязыватся к версии связку из lisp и внешнего com/exe модуля (лисп печатает - в растр - внешнея "прожка" считает пиксели с учетом их "закрашенности").

[Елпанов Евгений]

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

[Малявка]

"Объекты в блоках, тексты, штриховки... тот еще геморрой" .
ОК, а нельзя тупо взорвать (расчленить) все блоки и штриховки на чертеже, оставив примитивы в неприкосновенности, а потом ЛИСПом тупо перебрать все элементы? Я имею ввиду, пересчитать их площадь, исходя из длины и веса каждого элемента.
И - можно без учета цвета, можно все считать черным.

[Sleekka]

ну как бы тебе объяснить на пальцах, что у отрезка нет площади, а когда он печатается на принтере краска на отрезок тратится, значит площадь все таки есть, такая вот хитрая штука этот автокад, площади нет а она на самом деле есть

[gomer]

Offtop: Как посчитать количество кликов на создание чертежа?

[Малявка]

Sleekka, Да, у отрезка площади нет, но ведь можно ЛИСПом задать ширину отрезка, исходя из его веса? Например, задать, что отрезок весом от 0 до 0,15мм имеет ширину 1 пиксель, от 0,16, до 0,25мм - 2 пикселя и т.д. Ту же ботву применить к полилинии, исходя из ее глобальной ширины.

gomer, интересная мысль! Существуют программы, подсчитывающие пробег курсора. Надо полазить по инету насчет кликов. Может пригодиться при оценке мастерства чертежников, рисующих одинаковые чертежи, как дополнительный критерий ко времени, затраченному на чертеж. А может и ЛИСПом можно состряпать.

[Малявка]

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

Потом взрываем все штриховки и тексты.

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

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

[Елпанов Евгений]

Сообщение от Малявка Потом взрываем все штриховки и тексты.

А что по вашему получится, после расчленения градиентных штриховок и текстов гостовскими шрифтами?

[gomer]

С первым апреля!

[Малявка]

Елпанов Евгений, штриховки "градиент" и "solid" не трогаем, считаем всю площадь таких штриховок, ведь они закрашивают лист на все сто. Я не имею ввиду количество чернил на светлую и темную градиентную заливку, я имею ввиду, что градиентная заливка не имеет чистого пространства, белого листа. Поэтому и считаем полностью.
А тексты - ну, можно, наверно не расчленять, а вычислять сразу всю площадь прямоугольника с текстом (словом, фразой), и считать, например, эту площадь закрашенной на пять процентов, как обычный офисный документ.
По-моему, это выход.
Ну, как оцениваете "женскую логику" блондинки от автокада?

[Кулик Алексей aka kpblc]

Сообщение от Малявка градиентная заливка не имеет чистого пространства, белого листа

Да ну??? А я вот возьму да сделаю градиентную заливку, один из цветов которой будет чисто белый - и чего тогда получается?

Сообщение от Малявка <...>вычислять сразу всю площадь прямоугольника с текстом (словом, фразой), и считать, например, эту площадь закрашенной на пять процентов, как обычный офисный документ.

А как бы еще по ходу дела учесть фоновую заливку текста?

[Малявка]

Кулик Алексей aka kpblc, А в такой градиентной заливке теоретически только одна тоню-ю-сенькая линия белая, а соседние - уже не белые, а бледно-цветные, да-с! Вывод: во внимание не принимаем, считаем полностью. Что там у нас дальше? Фоновая заливка текста? Ой, а это что такое (извините)? А, поняла, это когда текст в стиле "arial" или подобных стилях. Мда, тупик. Но с другой стороны, таких текстов не так уж и много на чертеже. Хотя, чертеж чертежу рознь. Буду думать. А если придумаю, возьметесь за макрос?

p.s. Придумала! Офисный текст с плотностью 5 процентов - это шрифт "Times new roman"! Так что этот шрифт и "arial" можно считать пятипроцентными, а гостовские - трехпроцентными, вот!

[Кулик Алексей aka kpblc]

Наш ответ Чемберлену - во вложении

[Малявка]

Кулик Алексей aka kpblc, ой, а как это делается? Первый раз вижу такое... Я про голубенькое. Ну так помогите, подумайте, как это обыграть! Я знаю, вы мастера вопросики подкидывать.

А градиентную заливку считать полностью! Ну, которое розовенькое.

[Кулик Алексей aka kpblc]

Да очень просто - делается BackgroundMask на многострочник - и всех делов
Да, кстати, расширение предыдущего варианта Как считать будем?
P.S. Я ж не просто так шуткую, я сурьезно говорю (c). Когда народ "доходит" до принудительного форматирования многострочников, можно и не такое встретить!

[Малявка]

Кулик Алексей aka kpblc, Бог ты мой! Неужели попадаются дауны, делающие подобные извращения на серьезных чертежах! Честно - не встречала. А можно подобные извращения игнорировать в макросе? Или, наоборот, считать весь голубой прямоугольник закрашенным. (А чтоб заказчику впредь неповадно было такое вытворять!)

[Кулик Алексей aka kpblc]

Попадаются, попадаются... А если туда же еще добавить аннотативность, становится совсем некисло

[Малявка]

Кулик Алексей aka kpblc, Я вижу, что, несмотря на массу других макросов, написанных по моей просьбе, Мастера ЛИСПа на этот раз упираются руками и ногами, как та устрица во вранцузском ресторане. Значит, действительно серьезная задача. Ладно. Спокойной ночи. Всем - снов разноцветных.

[Vov.Ka]

http://avpsoft.com/products/apfill/

[Vova]

Сообщение от Елпанов Евгений А что по вашему получится, после расчленения .... и текстов c гостовскими шрифтами?

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

[forMA]

Сообщение от Vova Вы знаете меня как ярого борца с буквами по гост

Кстати, а в чем причина твоей ярости?

[Малявка]

Vov.Ka, Программа интересная, жаль, не считает dwg. А при переводе dwg в pdf говорит, типа, библиотека "GPL..." не найдена. А выделение экрана считает по-разному, в зависимости от увеличения изображения на мониторе.

[Vov.Ka]

Сообщение от Малявка Vov.Kaбиблиотека "GPL..." не найдена.

http://sourceforge.net/projects/ghos...0/gs900w32.exe

[Малявка]

Vov.Ka, спасибо! Работает!