[求助]：如何实现文字原地旋转180度。

JQKA

如何实现文字原地旋转180度？不能移位。

cy956

不能移位？
提供一个lisp供参考,明经哪里m的

2. 
   
3. (defun c:wzdq1(/ A A0 E EN EN0 IN N P0 P1 P10 P2 P3 P4 S TB)
   
4.   (mapcar 'setvar '("cmdecho""pickbox""aperture""osmode""blipmode") '(0 4 4 32 0))
   
5.   (prompt "\n选择要对齐的文字:")
   
6.   (setq s(ssget '((0 . "TEXT")) ) n(sslength s) in 0
   
7.         en0(entget (ssname s 0))a0(dxf 50 en0)
   
8.         k-wzq1(if k-wzq1 k-wzq1 "R")
   
9.         k-wzq1(cy_getstr "\n对齐方式L=左对齐,M=中对齐,R=右对齐:" "L M R" k-wzq1)
   
10.         p0(getpoint "\n输入对齐点:"))
    
11.   (repeat n
    
12.     (setq e(ssname s in) in (1+ in)
    
13.           en(entget e) a(dxf 50 en))
    
14.     (if (equal a a0 0.0000001)(progn
    
15.       (setq p10(dxf 10 en)tb(textbox en)
    
16.             p1(mapcar '+ (car tb) p10)
    
17.             p2(mapcar '+ (cadr tb) p10))
    
18.       (cond
    
19.         ((= k-wzq1 "R") (setq p3 p2))
    
20.         ((= k-wzq1 "L") (setq p3 p1))
    
21.         ((= k-wzq1 "M") (setq p3 (0midp p1 p2)))
    
22.       )
    
23.       (setq p4(#czd2 p0 (+ a:pi2 a0) p3))
    
24.       (mapcar 'setvar '("pickbox""aperture""osmode") '(0 1 0))
    
25.       (command "_move" e "" "non" p3 "non" p4)
    
26.       (mapcar 'setvar '("pickbox""aperture""osmode") '(4 4 32))
    
27.     ) )
    
28.   )
    
29.   (mapcar 'setvar '("cmdecho""pickbox""aperture""osmode""blipmode") '(1 4 4 32 1)) (PRINC)
    
30. )
    

<br /> (defun c:wzdq1(/ A A0 E EN EN0 IN N P0 P1 P10 P2 P3 P4 S TB)<br />   (mapcar 'setvar '("cmdecho""pickbox""aperture""osmode""blipmode") '(0 4 4 32 0))<br />   (prompt "\n选择要对齐的文字:")<br />   (setq s(ssget '((0 . "TEXT")) ) n(sslength s) in 0<br />         en0(entget (ssname s 0))a0(dxf 50 en0)<br />         k-wzq1(if k-wzq1 k-wzq1 "R")<br />         k-wzq1(cy_getstr "\n对齐方式L=左对齐,M=中对齐,R=右对齐:" "L M R" k-wzq1)<br />         p0(getpoint "\n输入对齐点:"))<br />   (repeat n<br />     (setq e(ssname s in) in (1+ in)<br />           en(entget e) a(dxf 50 en))<br />     (if (equal a a0 0.0000001)(progn<br />       (setq p10(dxf 10 en)tb(textbox en)<br />             p1(mapcar '+ (car tb) p10)<br />             p2(mapcar '+ (cadr tb) p10))<br />       (cond<br />         ((= k-wzq1 "R") (setq p3 p2))<br />         ((= k-wzq1 "L") (setq p3 p1))<br />         ((= k-wzq1 "M") (setq p3 (0midp p1 p2)))<br />       )<br />       (setq p4(#czd2 p0 (+ a:pi2 a0) p3))<br />       (mapcar 'setvar '("pickbox""aperture""osmode") '(0 1 0))<br />       (command "_move" e "" "non" p3 "non" p4)<br />       (mapcar 'setvar '("pickbox""aperture""osmode") '(4 4 32))<br />     ) )<br />   )<br />   (mapcar 'setvar '("cmdecho""pickbox""aperture""osmode""blipmode") '(1 4 4 32 1)) (PRINC)<br /> )<br />

lsjjm

下面的小程序批量处理文字原地倒置（180度）。
所有对其方式：缺省或Align/Fit/Center/Middle/Rght/TL/TC/TR/ML/MC/MR/TL/TC/TR]
试试看！
(defun c:test ()
  (vl-load-com)
  (princ "\nSelect Text:")
  (setq ss (ssget) n 0)
  (while (< n (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss n)))
    (setq h (vlax-get-property obj 'height))
    (vla-put-upsidedown obj 1)
    (setq hh (list 1 1 1 1 0 1 -1 -1 0 0 0 0 1.667 1.667 1.667))
    (setq i (vla-get-alignment obj))
    (vla-move obj (vlax-3d-point '(0 0 0))
                     (vlax-3d-point (list 0 (* (nth i hh) h) 0)))
    (setq n (1+ n))
  );w
);

aeo

根据LUCAS的改的.

2. 
   
3. (defun c:rott ( / SS CENTPT AX:GETBOUNDINGBOX  MIDPOINT os)
   
4.   (defun AX:GETBOUNDINGBOX (ENT / LL UR)
   
5.     (vl-load-com)
   
6.     (vla-getboundingbox (vlax-ename->vla-object ENT) 'LL 'UR)
   
7.     (MIDPOINT (vlax-safearray->list LL)
   
8.               (vlax-safearray->list UR)
   
9.     )
   
10.   )
    
11.   (defun MIDPOINT (PT1 PT2)
    
12.     (mapcar '(lambda (X Y) (* 0.5 (+ X Y)) )  PT1   PT2  )  )
    
13. (setq n 0)
    
14. (command"undo""group")
    
15. (if(setq SS (ssget '((0 . "text,mtext,ATTDEF"))) )
    
16.   (repeat (sslength SS)
    
17.     (setq CENTPT (AX:GETBOUNDINGBOX (setq ENT1 (ssname SS N))))
    
18.     (setq os(getvar"osmode"))(setvar"osmode" 0)
    
19.     (command ".rotate" ENT1 "" CENTPT "180")
    
20.     (setvar"osmode" os)
    
21.     (setq N (1+ N))
    
22.   )
    
23. )(command"undo""end")
    
24.   (princ)
    
25. )
    

<br /> (defun c:rott ( / SS CENTPT AX:GETBOUNDINGBOX  MIDPOINT os)<br />   (defun AX:GETBOUNDINGBOX (ENT / LL UR)<br />     (vl-load-com)<br />     (vla-getboundingbox (vlax-ename->vla-object ENT) 'LL 'UR)<br />     (MIDPOINT (vlax-safearray->list LL)<br />               (vlax-safearray->list UR)<br />     )<br />   )<br />   (defun MIDPOINT (PT1 PT2)<br />     (mapcar '(lambda (X Y) (* 0.5 (+ X Y)) )  PT1   PT2  )  )<br /> (setq n 0)<br /> (command"undo""group")<br /> (if(setq SS (ssget '((0 . "text,mtext,ATTDEF"))) )<br />   (repeat (sslength SS)<br />     (setq CENTPT (AX:GETBOUNDINGBOX (setq ENT1 (ssname SS N))))<br />     (setq os(getvar"osmode"))(setvar"osmode" 0)<br />     (command ".rotate" ENT1 "" CENTPT "180")<br />     (setvar"osmode" os)<br />     (setq N (1+ N))<br />   )<br /> )(command"undo""end")<br />   (princ)<br /> )<br />