[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]

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