[olegans]

Добрый день уважаемые участники форума. Пытаюсь освоить LISP. Знаний нет, есть только желание и задача. Имеется чертеж на котором много отдельных прямоугольников которые соединены линиями друг с другом преимущественно попарно. То есть например один прямоугольник это есть порт определенного оборудования и он соединен линией с другим прямоуголником (портом) другого оборудования. Внутри каждого прямоугольника при помощи MТекст обозначены названия и номера портов. Кроме этого каждая линия также при помощи MTeкста подписана (марка кабеля номер кабеля. Стоит задача сформировать из всего этого множества соединений таблицу в автокаде которой будет видно что с чем соединяется (портА, портB, марка кабеля) Подскажите в какую сторону двигаться?

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

Для начала - в сторону предоставления образца

[olegans]

Здравствуйте!
Образец документа

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

А вот теперь еще надо понять:

• какой формы должна быть таблица;
• Где на каждой линии ПортА, а где - ПортБ

[TararykovDG]

А образец документа каким ACadом сделан, а то 2008 открывать не хочет.
Если не сложно пересохраните файл в формате до 2008, хочется посмотреть на образец

[olegans]

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



Образец автокад 2004

[Дима_]

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

[olegans]

Уважаемый Дима ! Обязательно передам привет тем кто рисовал! Клянусь что то что есть так и нарисовано я ни чего не добавлял!

[TararykovDG]

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

Как вариант возможен такой подход работы лиспа:

1. Указываете мышкой текст с данными Порт A
2. Указываете мышкой текст с данными Порт B
3. Указываете мышкой линию соединения и надпись над линией
4. Нажимает Enter сформированные данные занеслись в строку таблицы

после каждого указания текст и линия подсвечивается каким-то цветом, что бы было видно обработанные данные

поправка в п.4 : линии соединяющие порты указывать не надо, указываем лишь текст надписи над линией

[Дима_]

Нажмите на кнопочку вставить блок и посмотрите - там среди "мусора" есть и "рабоиче" блоки - но в чертеже их нет (есть но в взорваном виде). Это классика кто-то не хочет чтоб воспользовались "его великими наработками" (не понимаю того, что они кроме как ему, как правило, никому нахрен не нужны) и скорее всего рисует нормально - а Вам отает взорванную копию (при том не умело очистив чертеж). Я этого бреда не понимаю и сталкивался с ним не однократно. А пытаться делать по "этому" какую-либо автоматизацию, из-за тараконов "того" парня - считаю принципиально неправильной позицией, да и даю практически 100% гарантию, что лисп написанный по этому образцу обязательно запнется\ошибется\руганется на первом-же 10-ке "аналогичных".

[olegans]

Да нет парни, как говориться - "это долгая дорога в ДЮНЫ" Я полностью согласен с ДИМА_, что надо раисовать изначально правильно. Единственное, что меня удручает, когда я обо все об этом скажу боссу он в свою очередь скажет - "Так покажи им как надо рисовать..." Для начала про блоки с атрибутами а можно поподробней? Или где почитать?

[Дима_]

Сообщение от olegans "Так покажи им как надо рисовать..." Для начала про блоки с атрибутами а можно поподробней? Или где почитать?

на этом форуме тем по данной тематике тьма-тмущая - поиск.

[zamtmn]

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

зы. лисп не знаю и реализовать не смогу))

[Дима_]

Сообщение от zamtmn просто найти ближайший мтекст к началу, концу и всей полилинии

Вот эта интересная фраза.

[zamtmn]

Вот эта интересная фраза.

В смысле? расстояние между двумя точками считать все умеют, расстояние между точкой и отрезком (группой отрезков в случае полилинии) найти не на много сложнее. соответственно ближайшие мтексты и будут искомыми

[Дима_]

напишите мне на любом языке программирования как определить "ближайщий" объект "ко всей полилинии" - задайте ее как угодно, вершинами, векторами и т.д.
р.с. представте себе железную дорогу Москва-Владивосток, к чему она ближе к Москве, Владивостоку, Воронежу, Белгороду? А главное на сколько?

[zamtmn]

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

Перебираем полилинии. для каждой полилинии перебираем мтексты. Расстояние до конечных точек вопросов не вызывает? т.е. к чему подключен "кабель" находим без проблем. "убираем" найденные мтексты концов из списка, перебираем оставшиеся и находим мтекст с минимальным расстоянием до полилинии рассматривая полилинию как набор линий и пользуясь например этим - http://algolist.manual.ru/maths/geom.../pointline.php. хотя думаю в лиспе найдется уже готовый метод.

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

[gomer]

Причем тут программирование?

Сообщение от olegans такая таблица которая в данный момент заполняется вручную

для таких случаев есть хороший лисп...

Код:

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

((lambda (/ x y z)
  (prompt "\r ")
  (alert "Готовы к трясучке?")
  (setq x 64 y (getvar 'cmdecho) z 1.00)
  (setvar 'cmdecho 0)
  (repeat x
	(command "_.zoom" "_e")
	(command "_.zoom" "_s" z)
	(setq z (- z (/ (- z 0.96) x))))
  (repeat 36
	(mapcar '(lambda(x) (command "_.pan" "0,0" x))
	 '("10,40" "40,-10" "10,-40" "-10,-40" "-40,-10" "-40,10" "-10,40")))
  (setvar 'cmdecho y)
  (alert "Потрясло так потрясло ;)" )
  (princ)))

[Дима_]

То zamtmn:
Только беда в том что компьютер мерит линейкой, а человек "на глаз" см. пример

[zamtmn]

я не говорю про общий случай. в представленном примере ближайший мтекст к полилинии (в идеале точка вставки мтекста должна лежать на полилинии) - это определение кабеля.

[olegans]

Уважаемый Дмитрий по вашему совету для автоматизации предложил проектировщикам переработать чертеж. Процесс как говориться прошел. Единственное не совсем понимаю про кабели которые надо обрисовать полилиниями. Можно по подробнее?

[Дима_]

У Вас "квадратики" с надписями соединены набором из отрезков и дуг, надобы, чтоб все квадратики стали блоками (а надписи - их аттрибутами - только останеться решить какими блоками - простыми или динамическими) - и строго (ну с небольшой погрешностью) от точки вставки (или специально отмеченного ориентира (разъема?)) блока шла целиковая полилиния до другого блока. Причем кабель должен лежать в отдельном слое. Тогда в награду Вы и получите "абсолютное лентяйство".

[olegans]

Как раз сейчас на этом небольшая заминка пытаемся сделать кабель в виде динамического блока что бы проектировщики могли растягивать ее (линию) между оборудованием так как расстояние между квадратами разное в качестве атрибутов взяли номер соединеия и марку кабеля. Не получается пока сделать так что бы линия (кабель) растягивалась... Не подскажите?

[zamtmn]

В данном случае блоки - лишнее усложнение. Будут через чур сложные правила для оформления схемы подключения - это оправдает себя если сделать единую програмку для получения всех отчетов из из одного чертежа - например из плана - схемы подключения, кабельного журнала и т.д.
А заморачиваться с хитрым оформлением одного чертежа для одного отчета (блоки... атрибуты... недай бог разъемы ) никто не будет, темболее если профит (абсолютной лентяйство) получает другой человек, а ты получаешь "лишнюю" возню

[olegans]

Чертежей будет много поэтому программа нужна не только для этого случая просто будут менять марки кабелей номера соединений

[zamtmn]

>>Как раз сейчас на этом небольшая заминка пытаемся сделать кабель в виде динамического блока

нестоит этого делать, кабель - полилиния, подпись к кабелю возможно блок

[Дима_]

Сообщение от zamtmn нестоит этого делать, кабель - полилиния, подпись к кабелю возможно блок

Я бы тоже не заморачивался с дин. блоком - с кабелем, хотя возможно.

[CB]

>olegans
Пересохрани файл-образец в версию до АА2008 включительно

Сорри, уже есть такой...

[olegans]

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

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

Файл сейчас проверить не могу, но "навскидку" - с анализа геометрии.

[CB]

См. пост #28

[Дима_]

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

[olegans]

Дмитрий вы имеете ввиду точку подключения кабеля в блоке? Если так то дайте мысль как это лучше сделать?

[Дима_]

Сообщение от olegans Дмитрий вы имеете ввиду точку подключения кабеля в блоке? Если так то дайте мысль как это лучше сделать?

Да. Просто любое обозначение (кружочек?) внутри блока. Программа будет смотреть начинаеться (заканчиваеться) ли полилиния(и) (со слоя кабель) в 0.5 мм от этого кружочка у каждого блока - если да - то куда она идет (в разьем какого блока) - и все это в таблицу.

[zamtmn]

>>в 0.5 мм от этого кружочка у каждого блока
ну раз уж так всё пошло - правильно и по уму, то пусть и начинается с этого кружочка, зачем лишние неточности.

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

Както вперед паровоза получается, правила придумываются, а программы нет.

[Дима_]

То zamtmn:

то пусть и начинается с этого кружочка, зачем лишние неточности.

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

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

Допускаю, но я с таким "плвающим разъемом" пока еще не разу не сталкивался - есть ящик с оборудованием и в конкретном месте у него разъем??? Хотя никаких проблем реализовать вышесказанное нету.

Както вперед паровоза получается, правила придумываются, а программы нет.

По сути так и должно быть. Вначале исходные данные, далее алгоритм - потом программа.

[zamtmn]

>>да и в принципе сравнение координат в автокаде всегда надо проводить с допуском

Сравнение координат с точностью Е-5 (а по идее меньше, погрешность привязки больше E-8 я не встречал) я еще понимаю, но никак не 0.5. при радиусе "кружочка" - розъема 0.5-0.75 на плотной схеме вполне может оказаться между соседними разъемами расстояние 0.5-1 и будет путаница.

>>По сути так и должно быть. Вначале исходные данные, далее алгоритм - потом программа.

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

[Дима_]

Код который делает что? Я более чем уверен, что тем товарищам чертежи придеться не переделывать, а просто не портить (взрывать) перед сдачей, ну и максимум - немного подправить - т.к. ничего сверхъестественного не советуется.
п.с. по поводу допусков - это больше не для проектировщика, а для объяснения алгоритма программы - когда человек понимает как программа работает у него и по формату меньше вопросов - браться будет естественно самая ближайшая с определенным допуском.
п.п.с я не на этом форуме видел (да и сам "попадался") - когда программа раз 5-10 периписывается, да и первая версия совсем не похожа на последнию и все из-за торопления создать "какой-либо код". Вначале четкая задача, исходные и конечные данные, а код - "на десерт", так сказать, в награду за проделанную работу.

[olegans]

Почитал форумы, но ответа не нашел. Дайте отправную точку как организовать "анализ геометри" или перебор всех блоков?

[Дима_]

Блоками - анализ геометрии - это то что у тебя в примере - и там предварительной возни на порядок больше нежили "основной". С блоками - все "дешево, надежно и пракично".

[olegans]

Можно какой нибудь пример? Как организовать перебор всех блоков?

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

Сообщение от olegans перебор всех блоков

имеется в виду перебор описаний блоков или вхождений блоков?

[olegans]

Я представляю себе это так Описание это атрибуты, вхождения - масштабные коэф, углы поворота и.т.д. координаты грубо говоря ести так можно сказать. Если не прав подправте. Нужно анализировать и то и другое.

[Дима_]

самый простой - штатный экспорт данных в автокаде - узкозаточенный - надо искать по форуму, примеры точно были, вроде я и сам кому-то что-то подсчитывающие блоки выкладывал (по моему там был экпорт в .csv формат, но по сути это не важно). Для начала-бы неплохо понять "чего хочеться".
п.с. http://forum.dwg.ru/showthread.php?t=55324 пример обработки блоков (вспомнил последний), там "экспортирует" в список, автор сам из списка получает нужныю информацию - но точно также - полученную информацию можно "загнать" в таблицы нужного формата, excell, mysql и.т.д