文字旋转对齐问题？

rongrong

一行不知倾斜角度的文字如何快速地与一条不知倾斜角度的直线对齐为同一角度？在次先谢谢了！

yan

多行文本有四个夹点，用al命令即可完成，单行文本就不知道了，可以先在express菜单中转为多行文本再对齐

lazybug

试试这个

text、mtext都可以

(defun c:zz ()
    (if (setq en_l (car (xentsel "请选择直线:" '((0 . "line")))))
 (if (setq en_t (car (xentsel "请选择文本:" '((0 . "*text")))))
     (progn (setq en_data (entget en_t))
     (setq en_0 (entget en_l))
     (if (equal (cdr (assoc 0 en_data)) "text")
         (setq n 51)
         (setq n 50)
     )
     (setq ang (angle (cdr (assoc 10 en_0))
        (cdr (assoc 11 en_0))
        )
     )
     (if (> ang pi)
         (setq ang (- ang pi))
     )
     (setq en_data (subst (cons n ang)
     (assoc n en_data)
     en_data
     )
     )
     (entmod en_data)
     )
 )
    )
    (prin1)
)

(defun xentsel (txt plist / ss sn en)
    (setq ss (ssget "x" plist))
    (setq sn 0)
    (while (zerop sn)
 (setq en (entsel (strcat "\n" txt)))
 (if (not en)
     (vl-exit-with-error "")
 )
 (if (ssmemb (car en) ss)
     (setq sn 1)
 )
    )
    en
)

lyd2003001

用ctrl+1查看两者的角度，将文字角度改成线的角度就好了。