[Amaru]

Никак не могу эллипсы преобразовать в полилинию. Может кто-ть знает как?....Получается только при помощи Toolpac'a конвертировать эллипс в Plines....но это не пойдет, т.к. кривую он делит на множество прямых линий...

[VVA]

Не хватает функции TraceACE

----- добавлено через ~8 мин. -----
Еще вариант отсюда (требуется регистрация)

Код:

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

;;Ellipses to polylines By cjw 11/9/09
(defun C:EL2PL2 (/ E E1 E2 O)
  (vl-load-com)
  (setq E (car (entsel "\nSelect the ellipse: ")))
  (setq O (vlax-ename->vla-object E))
  (vla-offset O 0.1)
  (setq E1 (entlast))
  (vla-offset (vlax-ename->vla-object E1) -0.1)
  (setq E2 (entlast))
  (entdel E)
  (entdel E1)
  (princ)
)

Эллипсы преобразуются в сплайны. Правая кнопка мыши на сплайне -> Преобразовать в полилинию

[АлексЮстасу]

Сообщение от VVA Не хватает функции TraceACE

Ее хватает - из Вашего же PlTools. Приведенный мной фрагмент используется в программе.
Мой вопрос был о точности. Программа от Gile из Вашего #8 делала не точный контур. Приведенный мной фрагмент дает точный контур. Дуговые сегменты позволяют ее достичь.
Но работает медленно. Или не работает.

[VVA]

Сообщение от АлексЮстасу Но работает медленно. Или не работает.

Обновил команду E2P в #8

[AlexCondor]

Сообщение от VVA Обновил команду E2P

Попробовал в 2014-м. На полных эллипсах работает, а на не полных пишет - "; error: no function definition: NORMALANGLE"

[VVA]

Обновил #8

[АлексЮстасу]

Сообщение от VVA Обновил #8

У меня как раз на полных эллипсах E2P задумывается напрочь.

[VVA]

Сообщение от АлексЮстасу У меня как раз на полных эллипсах E2P задумывается напрочь

Там командный метод
На полных эллипсах вроде код Gile не отличается от команды эллипс с PELLIPSE=1
Обновил #8
E2P - для полных эллипсов используется ф-ция gile
E2PCMD - полные эллипсы строятся командным методом (PELLIPSE=1)

[АлексЮстасу]

Сообщение от VVA E2P - для полных эллипсов используется ф-ция gile E2PCMD - полные эллипсы строятся командным методом (PELLIPSE=1)

Пардон, не догоняю...
Обе команды одинаково преобразуют эллиптические дуги. И обе же одинаково зависают на полных эллипсах.
В принципе, зачем две команды? Тем более, что они делают/не делают одинаково...

[VVA]

Отличие в методах. В команде E2PCMD используется команда "Эллипс" с установкой pellipse=1, в команде E2P функция gile (считается геометрически). Выложи или пришли пример, в котором виснет.

----- добавлено через ~39 мин. -----
АлексЮстасу, Я еще раз обновил #8 Отказался от ф-ции gile для полных эллипсов. Пересмотрел граничные условия для написанной ф-ции для неполных элипсов. Тестируй

[АлексЮстасу]

Сообщение от VVA еще раз обновил #8

Почему-то виснут обе команды.

Сообщение от VVA Выложи или пришли пример, в котором виснет.

Обычный эллипс, начерченный когда-то от балды.
2018, Map/Civil, сохранен в 2004.

[VVA]

Сообщение от АлексЮстасу Обычный эллипс, начерченный когда-то от балды.

Я не могу повторить твой эллипс, но вижу что он есть.
Функция TraceAce считала, что начальный и конечный угол полного эллипса 0 - 360, но может быть и 90-90 как у тебя и 180-180 и 270-270. Из-за этого был бесконечный цикл. Поправил логику
обновил #8

[АлексЮстасу]

Сообщение от VVA Я не могу повторить твой эллипс, но вижу что он есть.

Я умудрился сваять какой-то неправильный эллипс?

Сообщение от VVA Функция TraceAce считала, что начальный и конечный угол полного эллипса 0 - 360, но может быть и 90-90 как у тебя и 180-180 и 270-270. Из-за этого был бесконечный цикл. Поправил логику обновил #8

Спасибо!
E2P теперь преобразует достаточно быстро и эллипсы, и эллиптические дуги.

О точности (вторая проблема - #20).
Пардон, если отморожу - я ничего не понимаю в коде, и математику не знал, но забыл.
Вижу в коде то

Код:

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

(equal (cdr(assoc 42 (entget el))) (* 2 pi) 1e-6)

, то

Код:

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

(equal endparam (* pi 2) 1e-12)

.
Может быть точность будет лучше, если "1e-6" заменить на "1e-8" или т.д.?

[VVA]

можешь поправить и до 1e-6. Эти строки проверяют конечный угол и сравнивают его с 2*pi, т.е 360 градусов с точностью до 1e-x. Я обычно использую 1e-6, т.е до 0,000001. Автор этой функции использовал 1e-12, т.е. 0,000000000001. Но это сравнение с углом 360 градусов, поэтому можешь заменить и на 1e-8 или оставить как есть.

[АлексЮстасу]

Сообщение от VVA до 0,000001

Сейчас я намерил расхождения в 4-5 знаке.

Сообщение от VVA твой эллипс

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

[VVA]

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

Сообщение от АлексЮстасу Сейчас я намерил расхождения в 4-5 знаке.

Значит надо оставить 1e-3.

Сообщение от АлексЮстасу О точности (вторая проблема - #20).

В функции TraceACE за количество полученных сегментов отвечает

anginc (* pi (/ 5.0 180.0))

, конкретнее цифра 5 (градусов). Т.е расчет точек идет через угловой инкремент, который равен 5 градусов, которые переводятся в радианы
Далее количество точек получается как разница между начальным и конечным углом эллипса (для полного эллипса 360 градусов или 2*pi радиан. Здесь и была ошибка для твоего эллипса)

;Divide delta (included angle) into an equal number of parts. (setq div (1+ (fix (/ delta anginc))) inc (/ delta div) )

Попробуй поиграйся в строке

anginc (* pi (/ 5.0 180.0))

с цифрой 5 (замени на 3 или 2 или 1). Но это увеличит количество вершин

----- добавлено через ~5 мин. -----
Мне просто интересно, насколько критично для геодезии шаг в 5 градусов. Чтобы были большие расхождения, эллипсы должны быть больших размеров, а что может описываться эллипсом такого размера? Московская область, включая г.Москва?

[АлексЮстасу]

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

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

Сообщение от VVA Мне просто интересно, насколько критично для геодезии шаг в 5 градусов.

Я сейчас не про геодезию.
Смотрел программку, определяющую положение точек относительно контуров [штриховок]. Контуры делались полилиниями из эллипсов, окружностей, сплайнов и пр.
Тогда стали попадаться случаи, когда точки внутри или на границе определялись как внешние и наоборот. Оказалось, что дело в точности повторения этими полилиниями кривых.

Сообщение от VVA Значит надо оставить 1e-3.

Я путаюсь - уменьшить с 6 до 3, разве не ухудшить точность?

[VVA]

Сообщение от АлексЮстасу Я путаюсь - уменьшить с 6 до 3, разве не ухудшить точность?

Это сравнения угла эллипса с углом в 360 градусов, представленных в радианах, чтобы определить, это полный эллипс или эллиптическая дуга.
Сравнение до 1e-3=0,001 рад= 0.0572958 градуса или 0°3'26"
Т.е. если ты начертишь эллиптическую дугу в внутренним углом в 359°56'34", то сравнение до 1e-3 может посчитать это полным эллипсом и ты получишь замыкающий сегмент в виде полилинии

[koMon]

VVA,
почему бы просто не проверить начальную и конечную точки?

Код:

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

 
(equal (vlax-get ellipse 'startpoint) (vlax-get ellipse  'endpoint))

[VVA]

koMon, Да, так лучше. Обновил #8