• На форуме с 22 декабря 2002г.
  • Сообщений: 4
  • Спасибо: 0

Тема: Создание UCS

Кто знает, как создать UCS по двум точкам, не используя SendCommand. Где Pt1-Origin, Pt2-точка на оси Z. Направление осей X и Y не критично.

  • Вера
  • Восстановленный участник
  • На форуме с 17 сентября 2002г.
  • Сообщений: 14
  • Спасибо: 0

Re: Создание UCS

Смотри ответ https://www.caduser.ru/forum/topic2687.html

  • На форуме с 22 декабря 2002г.
  • Сообщений: 4
  • Спасибо: 0

Re: Создание UCS

Имелогсь ввиду програмно из VBA, а не из VLISP.

  • На форуме с 3 августа 2001г.
  • Сообщений: 447
  • Спасибо: 0

Re: Создание UCS

Это называется Arbitrary Axis Algorithm
Алгоритм произвольных осей
N нормаль-нужный Алексею вектор Z
Wy(0,1,0) ось мировой Y.
Wz(0,0,1)ось мировой Z.

If (abs (Nx) < 1/64) and (abs (Ny) < 1/64) then
      Ax = Wy X N (где "X" векторное проихведение).
Otherwise,
      Ax = Wz X N.
Нормализуем Ax в единицу.
Ay = N X Ax. Нормализуем.
Перевод корявый, лучше читайте в оригинале :) ACAD_DXF.CHM

  • На форуме с 17 июня 2003г.
  • Сообщений: 1
  • Спасибо: 0

Re: Создание UCS

Не могли бы Вы пояснить где взять N нормаль и оси Ax, Ay, Wx, Wz а так же Nx b Ny. И как привязать к этому алгоритму
значение из кодов 210, 220, 230 из POLYLINE и LWPOLYLINE.