[Torino]

Вопрос в теме.
Хочу написать программу, которая объединяет отрезки, дуги, 2д-полилинии и 3д-полилинии в одну 3д-полилинию.
Какой алгоритм можно использовать?

Или, если уже есть такая программа - поделитесь, пожалуйста.
Зачем писать то, что уже написано

[Pilot]

У меня есть макрос по объединению дуг, отрезков и полилиний в одну полилинию:

Код:

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

^C^C_pedit;\_y;_j;_box;\\;;

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

Особенность: Если в цепочке примитивов есть дуги, то макрос иногда (но не всегда) работает некорректно. Почему? Может, Vova ответит...

С 3Д-полилиниями не пробовал за ненадобностью.

[Torino]

Опция JOIN команды PEDIT работает весьма коряво и не работает с 3д полилиниями. В LDD есть команда по объединению 3д полилиний. но она тоже работает коряво (или у меня ручки корявые ). Поэтому решил написать свою программу для этих целей.

В принципе возможно считывание координат узлов (и если надо радиусов или что там у полилиний) примитивов подлежащих присоединению с последующим их удалением и модификацией по этим данным редакитруемой 3М полилинии через ENTMODE.
Хотя это вовсе не просто.
Кстати может у 3М полилинии есть метод - добавление участков?

Кажется насчет радиусов я погорячился их вроде как не надо, но это автор темы меня сбил "дугами". А для добавления сегментов (читай вершин), посмотрел, есть метод object.AppendVertex Point. Так что можно пробовать.

[Arkady]

На чем писать (LISP,VBA) :?

[Torino]

На LISPe.
Это называется "тонко намекнул"

[KAI]

А разве можно в 3D pline обрабатывать дуги? Или это появилось в 2005?

А вообще-то такое объединение (по крайней мере я попробовал с 3DPoly, pline and line) можно сделать в ToolPac (даже в 5-м).

[Torino]

Нет, дуги нельзя обрабатывать напрямую, но их можно преобразовать в полилинию (тем же тулпаком).
В тот раз я выкрутился с помощью Макса.
Надо подробно изучить Тулпак.
Спасибо за наводку!

[Mikhail]

А ToolPac в Download-е есть? Я что то быстренько пробежался не нашел. Может у кого есть скините или ссылочку дадите.

[KAI]

>> Admin
Помнится я брал ToolPac 5 с данного сайта, но наверное, при смене имиджа сайта, с водой выплеснули и ребенка.
А размер-то у него не маленький (более 5 МВ).

>>Pilot
А если заменим
^C^C_pedit;\_y;_j;_box;\\;;

с
^C^C_pedit;\_y;_j;_pick point;\\;;
- и можно последовательно

Попробуй мой PEDIT3D.LSP от моей страны
www.black-cad.de
(на английском языке)
Пока
scj

[Torino]

Спасибо!
Несколько обнаруженных глючков:
при выходе по ESC слетают привязки.
Если в наборе объединяемых объектов есть дуги, то после объединения они остаются.

О окончении программы по ESC я не подумал... Я не включил обнаружение ощибок (ERROR handling).
И нормально я рекомендую сначала изменить настоящий LAYER, так как все отдельные сегменты сохраняются на старом LAYERе.
О алгоритме:
Я использую комманду DIVIDE на дуги и сплайны (относительно от длины или углы дуги). Таким образом получу листы каждого сегмента, составшие из координатов точек. Потом я собираю эти листы по порядку первых и последных точек (иногда надо изменить порядку в листе.)
Извините мои попытки писать по-русский, но когда Вы разрешаете мне заниматься в форуме - может быть я ещё немного научусь...
Пока scj