文字旋转到当前PLAN VIEW

marting

1. (defun c:txt2plan ( / e i s )
   
2.     (if (setq s (ssget "_:L" '((0 . "TEXT"))))
   
3.         (repeat (setq i (sslength s))
   
4.             (setq e (entget (ssname s (setq i (1- i))))
   
5.                   e (subst '(210 0.0 0.0 1.0) (assoc 210 e) e)
   
6.                   e (subst  (cons 10 (trans (cdr (assoc 10 e)) (cdr (assoc -1 e)) 0)) (assoc 10 e) e)
   
7.                   e (subst  (cons 11 (trans (cdr (assoc 11 e)) (cdr (assoc -1 e)) 0)) (assoc 11 e) e)
   
8.             )
   
9.             (entmod e)
   
10.         )
    
11.     )
    
12.     (princ)
    
13. )

(defun c:txt2plan ( / e i s )<br />     (if (setq s (ssget "_:L" '((0 . "TEXT"))))<br />         (repeat (setq i (sslength s))<br />             (setq e (entget (ssname s (setq i (1- i))))<br />                   e (subst '(210 0.0 0.0 1.0) (assoc 210 e) e)<br />                   e (subst  (cons 10 (trans (cdr (assoc 10 e)) (cdr (assoc -1 e)) 0)) (assoc 10 e) e)<br />                   e (subst  (cons 11 (trans (cdr (assoc 11 e)) (cdr (assoc -1 e)) 0)) (assoc 11 e) e)<br />             )<br />             (entmod e)<br />         )<br />     )<br />     (princ)<br /> )

WhoCanSay

这个还不错，支持！

xvjiex

感谢分享文字旋转到当前PLAN VIEW