Странные координаты полилинии

[nkurchanova]

Всем добрый день.

В файле двг две полилинии. Красная и зеленая.

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

Кто-то может подсказать почему?

 

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

 

Прикладываю двг файл, скрипт и скриншот.

 

Всем ответившим заранее СПАСИБО.

не могу построить профиль.dwg Script.lsp

[kpblc]

Если используется lisp, советую проверить нормаль (210-я DXF группа). Ну или на каждую вершину выполнять trans

[EdwardSt]

1 час назад, kpblc сказал:

Если используется lisp, советую проверить нормаль (210-я DXF группа)

 

Спойлер

 

Немного скорректировал скрипт

Script.lsp

Edited May 19 by EdwardSt

[lidia.antipina.ru]

А как получили полилинии?

[kpblc]

Честнейшим образом спионеренный код с http://www.autocad.ru/cgi-bin/f1/board.cgi?t=26461HC

(defun lwpoly_vert (lwpoly / plinee elev vnv)
  (setq  plinee (entget lwpoly)
  elev   (cdr (assoc 38 plinee))
  vnv    (cdr (assoc 210 plinee))
  ) ;_ end of setq
  (mapcar
    (function (lambda (x) (trans (list (cadr x) (caddr x) elev) vnv 0)))
    (vl-remove-if-not (function (lambda (x) (= (car x) 10))) plinee)
    ) ;_ end of mapcar
  ) ;_ end of defun

Учитывает толщину и подъем (thickness и elevation) для полилинии.

[lidia.antipina.ru]

Итого: вероятно красная полилиния создавалась в ПСК, а зеленая в MCK

[EdwardSt]

1 час назад, lidia.antipina.ru сказал:

вероятно красная полилиния создавалась в ПСК, а зеленая в MCK

Похоже на то.

 

Даже ПСК можно вычислить

Спойлер

 

Предполагаю, что это были какие-то эксперименты с установкой различных ПСК.