[BulKonst]

Добрый день! Столкнулся с такой проблеммой.
Поворачиваю ПСК относительно оси Z (те X и Y повернуты).
Строю полилинию, к примеру
(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(90 . 4) '(70 . 1)
(list 10 0.0 0.0 0.0) (list 10 1000.0 0.0 0.0) (list 10 1000.0 100.0 0.0) (list 10 0.0 100.0 0.0))
Примитив строится в глобальных осях координат, те поворот СК не учитывается
Как делать так чтобы полилиния строилась в плоскости XY с учетом поворота?
Заранее спасибо!

[Кулик Алексей aka kpblc]

210 группу забыл.

[Александр Ривилис]

Сообщение от Кулик Алексей aka kpblc 210 группу забыл.

Не достаточно. Если речь идёт про текущую ПСК, то необходимо для каждой точки выполнить (trans <точка в МСК> 0 1) и результаты её выполнения присваивать группам 10. А если ПСК совсем абстрактная, то нужно еще и группу 210 преобразовывать функцией (trans <группа 210> 0 1 T)
Когда-то очень давно мы что-то такое сделали с Евгением Елпановым:

Код:

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

 (defun C:MYPOLY ( / pt pts)
  ;; получаем точки в ПСК
  (while (setq pt (if pt 
           (getpoint pt "\nОчередная точка: ") (getpoint "\nПервая точка:"))
         )
   (if pts (grdraw pt (car pts) 1)) 
   (setq pts (cons pt pts))
  )
  (setq pts (reverse pts)) (redraw)
  ;; Создание самой полилинии
  (entmakex
   (apply 'append
    (list
      (list
        '(0   . "LWPOLYLINE")
        '(100 . "AcDbEntity")
        '(62  . 1)
        '(100 . "AcDbPolyline")
        (cons 90 (length pts))
        (cons 38 (caddr (trans '(0 0 0) 1 (trans '(0. 0. 1.) 1 0 t))))
        '(39 . 0)
        '(70 . 1)
      ) ;_  list
      (mapcar '(lambda (x) (list 10 (car x) (cadr x)))
         (mapcar '(lambda (x) (trans x 1 (trans '(0. 0. 1.) 1 0 t))) pts)
      ) ;_  mapcar
      (list (cons 210 (trans '(0. 0. 1.) 1 0 t)))
     ) ;_  list
   ) ;_  apply
  ) ;_  setq
  (princ)
) ;_endof defun 

[BulKonst]

Наверное как-то так:
(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(90 . 4) '(70 . 1)
(cons 10 (trans '(0.0 0.0 0.0) 0 1))
(cons 10 (trans '(1000.0 0.0 0.0) 0 1))
(cons 10 (trans '(1000.0 100.0 0.0) 0 1))
(cons 10 (trans '(0.0 100.0 0.0) 0 1))))

Но парадокс: вращаю ПСК против часовой - полилиния вращается по часовой и наоборот?
Также и с перемещением, к примеру: если ПСК (200.0 , 100.0), то первая точка полилинии (-200.0 , -100.0)?

[BulKonst]

Нужно время чтобы проанализировать ваш код. Я новичек. Но большое спасибо!

[Александр Ривилис]

Сообщение от BulKonst Но парадокс: вращаю ПСК против часовой - полилиния вращается по часовой и наоборот?

В такой логике, как я понимаю, нужно использовать не (trans <точка> 0 1), а (trans <точка> 1 0)
Но лучше использовать готовый код из #3, так как он универсальнее.

Сообщение от BulKonst Нужно время чтобы проанализировать ваш код.

А я и не тороплю.

[BulKonst]

Сообщение от Александр Ривилис А я и не тороплю.

Ну вот вроде разобрался, построение полилинии в плоскости XY, учтены углы поворота и координата Z:
(entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(90 . 4) '(70 . 1)
(cons 38 (caddr (trans '(0 0 0) 1 (trans '(0. 0. 1.) 1 0 t)))) ;Уровень - координата Z
(cons 10 (trans '(0.0 0.0 0.0) 1 (trans '(0.0 0.0 1.0) 1 0 t))) ; Перевод координат точки.
(cons 10 (trans '(1000.0 0.0 0.0) 1 (trans '(0.0 0.0 1.0) 1 0 t))) ; Перевод координат точки.
(cons 10 (trans '(1000.0 100.0 0.0) 1 (trans '(0.0 0.0 1.0) 1 0 t))) ; Перевод координат точки.
(cons 10 (trans '(0.0 100.0 0.0) 1 (trans '(0.0 0.0 1.0) 1 0 t)))
(cons 210 (trans '(0. 0. 1.) 1 0 t)) ;Перевод - вектора нормали
);_ list
);_ entmake

Отдельное спасибо Александру Ривилис! Да 24 и 25 строку 2-а дня разгадывал!

[Александр Ривилис]

Сообщение от BulKonst Отдельное спасибо Александру Ривилису!

Пожалуйста!