[katm___]

Нужен макрос для поворота текста из горизонтальной плоскости в вертикальную. Поворот должен осуществляться сразу для всего текста. Координаты текста не меняются. Причем должна быть возможность поворота текста не только вокруг оси Х но и вокруг оси Y, ось Z - вертикальная. Все что нашел на форуме не подходит, или криво сделано.
Исходный файл внизу. Если нет готового решения, то цену и сроки за работу мне на почту. Вопросы вниз.

[gomer]

Сообщение от Олег (jr.) Я врубился вы оба не понимаете что хочет автор вопроса

А автор понимает? Каков вопрос, таков ответ!
Вопрос: Вокруг какой оси X поворачивать? В какой системе координат? Если в мировой, то
Если в системе координат объекта, то

[Дима_]

Я то собственно про то что в любой системе координат "сподручней" крутить текст не через vla или тем более комманные методы - а "правильно" изменяя dxf 210 (по сути как бы Вы не крутили только 210 и поменяеться), поэтому я и считаю что надо именно им оперировать. А про улетание в чертеже автора я уже писал в посте 13 (trans ...).

[Олег (jr.)]

Сообщение от Дима_ Я то собственно про то что в любой системе координат "сподручней" крутить текст не через vla или тем более комманные методы - а "правильно" изменяя dxf 210 (по сути как бы Вы не крутили только 210 и поменяеться), поэтому я и считаю что надо именно им оперировать.

Абсолютно несогласен в связи со сложностью определения
самого вектора 3d или матрицы поворота
Просто навскидку: как определишь нормаль для поворота
относительно оси Х на +30 град и относительно оси Y на -45 град?
А если еще относительно Z?
Не спорю что можно но на фига???

Я не математик (8 классов) так лучше как проще я думаю
(по крайней мере для простых юзеров)

[Disney]

Тоже раз пытался написать что-то похожее, задача стояла выровнять текст по текущему виду.

Код:

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

(defun c:Text_on_the_USC (/ ss i temp)
  (if (setq
	i  -1
	ss (ssget ":L" '((0 . "TEXT")))
      )
    (repeat (sslength ss)
      (setq temp (entget (ssname ss (setq i (1+ i))))
	    temp (subst	(cons 10 (trans (cdr (assoc 10 temp)) 0 1))
			(assoc 10 temp)
			temp
		 )
	    temp (subst	(cons 210 (trans '(0 0 1) 1 0 T))
			(assoc 210 temp)
			temp
		 )
	    temp (subst '(50 . 0)
			(assoc 50 temp)
			temp)
	        )
      (entmod temp)
    )
  )
)

работает совсем не корректно

[IMG]http://s61.***********/i173/1008/c0/705286e80679.gif[/IMG]

, кажется надо что-то с 11 группой тоже сделать
По-моему получилась бы полезная команда, может кто из умных поможет...

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

Не только 11, но и 10, похоже...

[Дима_]

Насчет 11 не знаю (пусть крутиться не убежит), все что я подразумевал:

Код:

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

(mapcar '(lambda (lst)
           (entmod (subst (list 210 0 -1 0)
                          (assoc 210 lst)
                          (subst (cons 10 (trans (cdr (assoc 10 lst))
                                                 (cdr (assoc 210 lst))
                                                 '(0 -1 0)))
                                 (assoc 10 lst)
                                 lst))))
        (mapcar 'entget (sstolist (ssget (list (cons 0 "*text"))))))

[Li6-D]

В самом общем виде, когда dxf-210 не совпадает с 0,0,1, действительные координаты начальной точки текста не совпадает с dxf-10.
Например, если создать повернутый в пространстве текст, поместить в его начало точку и посмотреть dxf-10 коды этих объектов, обнаружим три большие разницы:
((-1 . <Имя объекта: 7ef9f608>) (0 . "TEXT") (330 . <Имя объекта: 7ef9bcf8>) (5 . "669") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbText") (10 3530.38 559.743 235.689) (40 . 125.976) (1 . "повернутый текст") (50 . 0.0) (41 . 1.0) (51 . 0.0) (7 . "Standard") (71 . 0) (72 . 0) (11 0.0 0.0 235.689) (210 -0.666667 0.666667 0.333333) (100 . "AcDbText") (73 . 0))

((-1 . <Имя объекта: 7ef9f810>) (0 . "POINT") (330 . <Имя объекта: 7ef9bcf8>) (5 . "6A2") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbPoint") (10 -2521.55 -2471.16 606.294) (210 0.0 0.0 1.0) (50 . 0.0))

Скорее всего dxf-10 текста являются проекциями нач. точки текста на плоскость, проходящую через 0,0,0 и
перпендикулярную вектору dxf-210 (первые две координаты) и на сам вектор dxf-210 (третья координата).
Т.е. для сохранения действительных координат начала текста (чтобы текст не "улетал") надо при
изменении dxf-210 пересчитывать dxf-10.

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

DXF Reference не пробовали прочитать?

10 First alignment point (in OCS) 11 Second alignment point (in OCS) (optional) 210 Extrusion direction (optional; default = 0, 0, 1)

Дополнительно : http://www.arcada.com.ua/forum/viewtopic.php?t=653

[zamtmn]

Всегда было интересно, почему програмисты на AutoLISP усиленно крутят вектор нормали, а не как все пользуют матрицы?

[Дима_]

Потому-что в dxf представлении есть координата по вектору нормали, былаб-там матрица - крутили-бы ее. (Что-то типа нам побоку что крутить, в чем написано в том и крутим). Так-же как химики вес колбасы в молях считают, а японцы с правым рулем ездят.

[Li6-D]

Уточнение к посту #27 в связи с замечанием #28:
При изменении dxf-210 если dxf-72 и dxf-73 = 0 пересчитывать надо только dxf-10, если dxf-72 = 3 или 5 пересчитываем dxf-10 и dxf-11, в остальных случаях - только dxf-11.
Теперь правильно?

[zamtmn]

Насколько я понимаю матрицы системы координат объекта нет только формально, ее можно получить (я не прав?), также есть vla-TransformBy - можно воздействовать на примитив любой матрицей преобразования. Зачем эти головняки с 210, 10, 11 и 50?

[Li6-D]

Попробуйте покрутить с этим:

Код:

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

(defun C:TXT-ROTATE3D ( / axis ang ss i obj P)
  (vl-load-com)
  (initget "X Y")
  (setq axis (if (= (getkword "\nУкажите ось поворота текста [X/Y] <Y>: ") "X")
              '(1 0 0)
              '(0 1 0)
  )          )
  (initget 1)
  (setq ang (getangle "\nУкажите угол поворота текста в градусах: "))
  (repeat (if (setq ss (ssget '((0 . "TEXT"))))
            (setq i (sslength ss))
            (progn (alert "Текст не указан") 0)
          )
    (setq i (1- i)
          obj (entget (ssname ss i))
          P (trans (cdr (assoc 10 obj)) (cdr (assoc 210 obj)) 0)
    )          
    (vla-rotate3D
      (vlax-ename->vla-object (cdar obj))
      (vlax-3D-point P)
      (vlax-3D-point (mapcar '+ P axis))
      ang
    )
  )
  (princ)
)

При повороте остаются неподвижными начальные точки текста.
Если задать угол 90 - текст будет повернут на pi/2 против часовой стрелки вокруг выбранной оси (X или Y), минус 90 - по часовой стрелке.
Можно утрировать программу исключив выбор текста (будет повернут весь текст в рисунке) и исключить ввод значения угла (будет запрошено направление поворота на pi/2 - по или против часовой стрелки)

[kp+]

Offtop: Автор темы, ты где? Что скажешь? Тема уже живет своей собственной жизнью. Значит, это нужная тема

[gomer]

По сути обозначилось два подхода к повороту текста в пространстве:

1. Путем rotate3d или vla-rotate3d;
2. Трансфомация через dxf-entmod или vla-transformby.

с первым лично мне не понятно как точно вычислить вторую точку оси поворота
со вторым мне вообще ничего не понятно

[kp+]

Сообщение от gomer Путем rotate3d или vla-rotate3d

Сообщение от gomer с первым лично мне не понятно как точно вычислить вторую точку оси поворота

вот так:

Код:

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

    (setq pt2_mts (list
		    (+ 0.0 (car pt2_mts))
		    (+ 1.0 (cadr pt2_mts))
		    (+ 0.0 (caddr pt2_mts))
    		  )
    )

это если поворот вокруг Y

[gomer]

Сообщение от kp+ вот так:

Результат не предсказуем, в случае если текст произвольно в пространстве висит...
А если рассматривать текст как прямоугольник и поворачивать его вокруг большей или меньшей сторон

[Li6-D]

Ну вот общая программа для 3D поворота текста, включая пожелание:

Сообщение от gomer А если рассматривать текст как прямоугольник и поворачивать его вокруг большей или меньшей сторон

По сравнению с программой поста #33 может крутить строки и вокруг точек вставки.
Обе программы работают для любых углов поворота, любого положения текста в пространстве.

Код:

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

(defun C:TXT-ROTATE3D ( / RP RA P ang ss i obj)
  ;;; Программа для поворота строк текста в пространстве.
  ;;; Строки поворачиваются вокруг точек вставки или начальных точек.
  ;;; Оси поворота:
  ;;; B (перпендикулярны текущей плоскости строк);
  ;;; H (расположены по высоте строк);
  ;;; L (расположены вдоль строк);
  ;;; X,Y,Z или 2точки - тут всё ясно.
  ;;; http://forum.dwg.ru/showthread.php?t=56192&page=2 (©Li6-D)
  (vl-load-com)
  (initget "I L")
  (setq RP (getkword "\nУкажите вид точки на осях поворота строк - вставки [i], левая [L] <I>: ")
        RP (if (= RP "L")
            '(cdr (assoc 10 obj))
            '(cdr
               (assoc
                 (if (or (zerop (+ (cdr (assoc 72 obj)) (cdr (assoc 73 obj))))
                         (member (cdr (assoc 72 obj)) '(3 5))) 10 11)
                 obj
  )        ) ) )
  (initget "B H L X Y Z 2точки")
  (setq RA (getkword "\nУкажите оси поворота строк [B/H/L/X/Y/Z/2точки] <2точки>: ")
        RA (cond
             ((= RA "B") '(trans (mapcar '+ P '(0 0 1)) (cdr (assoc 210 obj)) 0))
             ((= RA "H")
              '(trans
                 (polar P (+ (cdr (assoc 50 obj)) (/ pi 2)) 1)
                 (cdr (assoc 210 obj))
                 0
             ) )
             ((= RA "L") '(trans (polar P (cdr (assoc 50 obj)) 1) (cdr (assoc 210 obj)) 0))
             ((= RA "X") '(mapcar '+ (trans P (cdr (assoc 210 obj)) 0) '(1 0 0)))
             ((= RA "Y") '(mapcar '+ (trans P (cdr (assoc 210 obj)) 0) '(0 1 0)))
             ((= RA "Z") '(mapcar '+ (trans P (cdr (assoc 210 obj)) 0) '(0 0 1)))
             (t (initget 9)
                (setq P (getpoint "\nУкажите первую точку: "))
                (initget 41)
                (append
                 '(mapcar '+ (trans P (cdr (assoc 210 obj)) 0)) 
                  (list (list 'quote (mapcar '- (getpoint P "\nУкажите вторую точку: ") P)))
  )        ) )  )
  (initget 1)
  (setq ang (getangle "\nУкажите угол поворота строк текста в градусах: "))
  (repeat (if (setq ss (ssget '((0 . "TEXT"))))
            (setq i (sslength ss))
            (progn (alert "Текст не указан") 0)
          )
    (setq i (1- i) obj (entget (ssname ss i)) P (eval RP))
    (vla-rotate3D
      (vlax-ename->vla-object (cdar obj))
      (vlax-3D-point (trans P (cdr (assoc 210 obj)) 0))
      (vlax-3D-point (eval RA))
      ang
  ) )
  (princ)
)

[katm___]

Этот вариант работает отлично, также и более ранняя версия работала, причем она даже проще