нужен нормальный конвертер spline to polyline

card17 · 16.02.2005, 15:18

нужно преобразовать spline в полилинию НО НЕ ОТРЕЗКАМИ а дугами и отрезками, все что упоминалось в форумах разбивает на отрезки определенного размера - это не годится т.к. далее идет обработка для резки и размер файла ограничен плюс некоторые особенности поведения лазеров тормозящих на узле линия линия. Вобщем нужны дуги и отрезки

ПОМОГИТЕ!!! пожалуйста

Torino · 16.02.2005, 16:01

Возможно тебе поможет опция Spline команды Pedit.
Т.е. из исходного сплайна создается полилиния.
Затем к этой полилинии применяется Pedit с опцией Spline.

MIP · 16.02.2005, 16:42

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

Кулик Алексей aka kpblc · 16.02.2005, 16:53

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

MIP · 16.02.2005, 17:07

Кстати да, если не нужна уж такая точность и количествой сплайнов невелико, то самый простой способ! (Иногда стоит упрощать решение проблемы, дабы не зайти в тупик)

Apelsinov · 16.02.2005, 17:19

вот нашел http://www.autocad.ru/cgi-bin/f1/board.cgi?t=3723py
есть там лиспик (приведу тут) апроксимирующий сплайн дугами, если его чуть доработать - может не плохо получиться (к сожалению у меня времени нет сейчас может Fantomas за 5 минут прикинет - он может

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

Код:

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

(defun SplineToPline (Spline DLeng / PLeng CurL EndPoint PointList P Tangent p1)
  (setq Spline   (vlax-ename->vla-object Spline)
        EndPoint (vlax-curve-getendpoint Spline)
        SpLeng   (vlax-curve-getdistatpoint Spline EndPoint)
        CurL     0
  )
  (while (< CurL SpLeng)
    (setq P         (vlax-curve-getpointatdist Spline CurL)
          Tangent   (vlax-curve-getfirstderiv Spline (vlax-curve-getparamatdist Spline CurL))
          PointList (cons (list p Tangent) PointList)
          CurL      (+ CurL DLeng)
    )
  )
  (setq PointList (reverse PointList)
        p1        (car PointList)
        PointList
                  (mapcar
                    '(lambda (x)
                       (list (car x) "_d" (mapcar '+ (car x) (cadr x)))
                     )
                    (cdr PointList)
                  )
        PointList (apply 'append PointList)
  )
  (command "_pline" (car p1) "_a" "_d" (mapcar '+ (car p1) (cadr p1)))
  (apply 'command PointList)
  (command EndPoint "")
)

(SPLINETOPLINE (car (entsel)) 1)

card17 · 17.02.2005, 11:21

что-то в коде не так

он строит окружности вместо дуг, спасибо за помощь, но проблема еще не решена. Может еще есть идеи?

Apelsinov · 17.02.2005, 13:52

Цитата:

Сообщение от card17

что-то в коде не так

он строит окружности вместо дуг, спасибо за помощь, но проблема еще не решена. Может еще есть идеи?

В программе нет автоматического отключения привязок. Отключите автопривязки сами и запустите програмку, все работает.

Redya · 03.03.2011, 17:15

Цитата:

Сообщение от Torino

Возможно тебе поможет опция Spline команды Pedit.
Т.е. из исходного сплайна создается полилиния.
Затем к этой полилинии применяется Pedit с опцией Spline.

А можно подробнее? А то при переводе из PDF в DWG всё сплайнами рисуется, что ужасно. Приведённый лисп так и не понял как вызывать. (SplineToPline) - не вызывает.

VVA · 03.03.2011, 17:21

В 2011 Автокаде в команде _splinedit появилась опция "преобразовать в полилинию"

Код:

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

(defun C:SC ( / i)
  ;;;Spline convert
(if (< (atoi (substr (ver) 13)) 2011)
(alert "Для Автокада не ниже 2011 версии")
(progn
(setq ss nil ss (ssget "_X" '((0 . "SPLINE"))))
(setq i '-1)
(setvar "CMDECHO" 0)
(repeat (sslength ss)
  (command "_splinedit"(ssname ss (setq i (1+ i))) "_p" "")
    (grtext -2 (strcat "Inspecting : "(itoa i)))
  )
(command "_regenall")
  )
  )
  )
(princ "\nType SC in command line")(princ)

Redya · 03.03.2011, 17:32

VVA, у меня 2008 автокад к сожалению. Да, и как запускать лисп #6? В моём понимании надо вводить (SplineToPline), но он ругается. И вообще я периодически встречаюсь с лиспами, которые не могу запустить, мол не знаю такой команды. Читал "Как использовать код на Лиспе читаем здесь" не раз, но таки не получалось иногда.

VVA · 03.03.2011, 18:29

Цитата:

Сообщение от Redya

Да, и как запускать лисп #6?

Код:

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

(SPLINETOPLINE (car (entsel)) 1)

В принципе делает то же, что и
ConvTo2d -Преобразование криволинейных объектов в 2D полилинии
В 2011 Автокаде делается лучше. Поставь триал и используй лисп с #10

zaplev · 05.03.2011, 21:23

Используйте функцию fillter_points для уменьшения количество
линейных сегментов в полилинии.
Смотрите вложение.

CB · 09.03.2011, 16:07

Посмотри http://www.debalance.com/index.html
Одной из опций этой программы является то, что тебе нужно - конвертация различных типов примитивов в полилинии.

zaplev · 16.03.2011, 13:30

Команда CurveToPline v 2.0.
Аппроксимация кривой (сплайна эллипса ..) полилинией с заданной точностью.
Команду CurveToPline так же можно использовать для удаления лишних вершин в полилинии.
Смотрите вложение.

Do$ · 16.03.2011, 15:51

Как-то не особо оптимально - см.вложение.

zaplev · 17.03.2011, 15:33

Цитата:

Сообщение от Do$

Как-то не особо оптимально - см.вложение.

Меняйте параметры DLen = 0.5 и Eps = 0.05.
Отключите привязку!
См.вложение

Do$ · 17.03.2011, 17:13

Как угадать какие параметры для конкретного сплайна применять?
Вот к примеру, мне надо, чтобы полилиния от сплайна не отличалась визуально на распечатанном чертеже, то есть, максимальное отклонение полилинии от сплайна не более, предположим, 0,05 мм (единицы чертежа миллиметры). Какие надо устанавливать значения DLEN и EPS?
А привязку хорошо бы в самом коде отключать, даже если командными методами работаете!

zaplev · 21.03.2011, 19:45

Цитата:

Сообщение от Do$

Как угадать какие параметры для конкретного сплайна применять?
Вот к примеру, мне надо, чтобы полилиния от сплайна не отличалась визуально на распечатанном чертеже, то есть, максимальное отклонение полилинии от сплайна не более, предположим, 0,05 мм (единицы чертежа миллиметры). Какие надо устанавливать значения DLEN и EPS?
А привязку хорошо бы в самом коде отключать, даже если командными методами работаете!

Значение DLEN надо выбирать так, чтобы на самом крутом участке сплайна
погрешность линейной аппроксимации с шагом DLEN, пренебрежительно мала.
Если значение DLEN очень мало (например, DLEN = 0.01), то на конечный результат
это повлияет мало, только увеличится время вычислений.
А вот значение EPS существенно влияет на результат.
Чем больше EPS тем грубей аппроксимация, зато меньше точек, и наоборот.
Попробуйте менять DLEN и EPS примерно так:
1. не изменяя EPS = 0.05, изменяем DLEN = 1, 0.5, 0.05
2. не изменяя DLEN = 0.5, изменяем EPS = 0.5, 0.1, 0.05, 0.01
Сравните результат визуально и количество точек (length cn) = …

EPS – это погрешность аппроксимации, то есть любое кратчайшее расстояние
от сплайна до полилинии должно быть меньше EPS.
Это легко проверите.
Нарисуйте отрезок от сплайна до полилинии и посмотрите его длину.
Отрезок должен быть перпендикулярный к сплайна и полилинии..
Длина этого отрезка должна быть меньше EPS.

Do$ · 21.03.2011, 21:00

Хорошо, с DLEN понятно - это длина отрезка, на которые изначально делится сплайн. А вот что такое EPS?

SteelBrother · 18.06.2018, 14:28

Люди знающие, подскажите, что нужно поправить в лиспе из поста 15, что бы он работал под 2018 автокад?

Кулик Алексей aka kpblc · 18.06.2018, 14:33

Правый клик на сплайне и в контекстном меню выбрать Сплайн - Преобразовать в полилинию. Чем не устраивает?

SteelBrother · 18.06.2018, 14:57

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

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

Задача стоит следующая: Получаем файл CorelDraw с геометрией в виде сплайнов, импортируем из Корела в .DXF или .DWG, далее в автокаде разбираем спалйны на полилинии из отрезков и дуг. Затем файл идет в Inventor, там уже готовится УП для ЧПУ.
С импортированной геометрией в виде сплайнов ни Inventor(HSM) ни Solidworks(Solidcam) адекватно работать не хотят. Поиски парсера или лиспа или еще чего-нибудь внятного по корректному преобразованию сплайнов полилинии в виде отрезков и дуг ни к чему не привели(((

kp+ · 18.06.2018, 15:22

Цитата:

Сообщение от SteelBrother

Получаем файл CorelDraw с геометрией в виде сплайнов

Сплайны были в исходном файле CorelDraw или получились при конвертации в DWG/DXF?
Просто я когда-то давно сталкивался с преобразованием CorelDraw в DWG/DXF, так даже то, что в Corel было нарисовано прямыми отрезками, экспортировались в сплайны с двумя точками

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

SteelBrother · 18.06.2018, 15:32

Именно в Кореле все и нарисовано сплайнами. В большинстве случаев в кореле всегда рисуют сплайнами и потом возникает много проблем при подготовки файла для работы на станке.
Это все сводится к пляскам с бубнами с переводом в Adobeillustrator, потом в DWG/DXF, потом в ArtCam, тот в свою очередь имеет какой-то свой модуль по апроксимации, но тоже кривой.
Если файл с дестяком небольших спланов из Корела, можно конвертнуть в DWG/DXF, затем выполнить ПОЛРЕД или FLATTEN, то при сложной геометрии это проблематично.
Есть методы апроксиммации сплайнов(Кривых Безье), но реализованных под ACAD - не нашел.
Вот как пример: http://www.mathnet.ru/links/40ea825c.../zvmmf4915.pdf

ЗЫ: в приложении пример файла конвертированного из Корела

kp+ · 18.06.2018, 15:38

посмотрите тут: https://apps.autodesk.com/ACD/en/Det...en&os=Win32_64
Единственное, работает только с новыми версиями (с 2015), проверить не могу (у меня 2010).

SteelBrother · 18.06.2018, 16:48

Спасибо за ссылку, почему-то ее сам не нашел на автодесковском форуме.
Лисп от французов вроде как работает, но как-то странно. Задать малую величину отрезка не дает, а если задавать величину отрезка в моем примере 1мм, то выдает ошибку "; ошибка: неверный тип аргумента: numberp: nil", если же задавать бОльшие длины то "; ошибка: деление на нуль"
То, под что получилось подогнать в приложении, но этот результат хуже штатного ПОЛРЕД или FLATTEN

koMon · 23.11.2018, 16:53

тоже решил прибаловнуть)

trushev · 24.11.2018, 13:33

Цитата:

Сообщение от SteelBrother

Люди знающие, подскажите, что нужно поправить в лиспе из поста 15, что бы он работал под 2018 автокад?

Не вникая в программу, но может быть дело в:
Тема: Адаптация древних lisp-приложений под AutoCad 2016
От Александр Ривилис, установить LEGACYCODESEARCH = 1.
http://forum.dwg.ru/showpost.php?p=1498096&postcount=33

16.02.2005, 15:18		#1
нужен нормальный конвертер spline to polyline card17 Регистрация: 16.02.2005 Сообщений: 2 нужно преобразовать spline в полилинию НО НЕ ОТРЕЗКАМИ а дугами и отрезками, все что упоминалось в форумах разбивает на отрезки определенного размера - это не годится т.к. далее идет обработка для резки и размер файла ограничен плюс некоторые особенности поведения лазеров тормозящих на узле линия линия. Вобщем нужны дуги и отрезки ПОМОГИТЕ!!! пожалуйста
Просмотров: 17364