文字绕自身中点反转 支持UCS

林霄云

文字绕自身中点反转 支持UCS —— textbox函数的应用实例
思路：
文字绕自身中点反转，关键是取中点。
思路一：可以利用通用函数get-textbox（关于取文本四个角点的通用函数（get-textbox）的解析与测试源码http://bbs.mjtd.com/forum.php?mo ... 910&fromuid=7303580
）取文本框四个角点，然后利用inters（注意转换到UCS下）取其中点。
思路二：利用向量计算，直接取中点。
本文为重点解释textbox函数的作用，按第二思路给出源码，如下RTT（RotaTe text）

2. (defun C:RTT ( / ag ang-self ang en ent pt0-ll pt0-m pt0-tr pt-ins pt-list x y ) ;文字反转RotaTe Text
   
3. ;;;(setq oldosmode (getvar "osmode"))
   
4. ;;;(setvar "osmode" 0)
   
5. 
   
6. (princ "\n选择需要反转的文字：");提示不需要进入循环
   
7. (while (setq en (car (entsel)))
   
8. 
   
9. (setq ent (entget en))
   
10. 
    
11. (setq pt-ins (cdr (assoc 10 ent)))  ;第一对齐点（在 OCS 中）插入点(非UCS)
    
12. 
    
13. (setq ang (cdr (assoc 50 ent)))    ;a 文字旋转角度 弧度(WCS)
    
14.         
    
15. (setq pt-list (textbox ent))    ;取文本虚拟框
    
16. (setq pt0-ll (car pt-list))      ;取左下点
    
17. (setq pt0-tr (cadr pt-list))    ;取右上点
    
18. 
    
19. 
    
20. (setq te-tr (mapcar '(lambda (x y) (+ x y)) pt0-ll pt0-tr)) ;取对应原点的右上点。
    
21. 
    
22. (setq ang-self (atan (cadr te-tr) (car te-tr)));取转角，基点为原点。 self-ang花了作者一晚上的时间，因为polar中的角度是从坐标轴开始的。需要加自身转角。
    
23.          
    
24. (setq pt-tr (mapcar '(lambda (x y) (+ x y)) te-tr pt-ins));取对应插入点的右上点
    
25. 
    
26. ;相对pt-ins，将中点旋转角度ang
    
27. 
    
28. (setq dis (* 0.5 (distance pt-ins pt-tr)))           ;取长度
    
29. (setq pt0-m (polar pt-ins (+ ang-self ang) dis))
    
30. ;;;(command "point" pt0-m)
    
31. 
    
32. (setq ag "180")
    
33. (vla-rotate
    
34.   (vlax-ename->vla-object en)
    
35.   (vlax-3d-point pt0-m)
    
36.   (angtof ag)
    
37. )
    
38. 
    
39.   );while 加入循环
    
40. 
    
41. ;;;(setvar "osmode" oldosmode)    ;取消捕捉，当使用command命令时。
    
42. (princ)
    
43. );defun
    
44. 
    
45. (princ "\nRTT 文字反转命令加载成功\nDesigned by 林霄云 2014年1月4日")
    
46. (princ)
    

(defun C:RTT ( / ag ang-self ang en ent pt0-ll pt0-m pt0-tr pt-ins pt-list x y ) ;文字反转RotaTe Text<br /> ;;;(setq oldosmode (getvar "osmode"))<br /> ;;;(setvar "osmode" 0)<br /> <br /> (princ "\n选择需要反转的文字：");提示不需要进入循环<br /> (while (setq en (car (entsel)))<br /> <br /> (setq ent (entget en))<br /> <br /> (setq pt-ins (cdr (assoc 10 ent)))  ;第一对齐点（在 OCS 中）插入点(非UCS)<br /> <br /> (setq ang (cdr (assoc 50 ent)))    ;a 文字旋转角度 弧度(WCS)<br />         <br /> (setq pt-list (textbox ent))    ;取文本虚拟框<br /> (setq pt0-ll (car pt-list))      ;取左下点<br /> (setq pt0-tr (cadr pt-list))    ;取右上点<br /> <br /> <br /> (setq te-tr (mapcar '(lambda (x y) (+ x y)) pt0-ll pt0-tr)) ;取对应原点的右上点。<br /> <br /> (setq ang-self (atan (cadr te-tr) (car te-tr)));取转角，基点为原点。 self-ang花了作者一晚上的时间，因为polar中的角度是从坐标轴开始的。需要加自身转角。<br />           <br /> (setq pt-tr (mapcar '(lambda (x y) (+ x y)) te-tr pt-ins));取对应插入点的右上点<br /> <br /> ;相对pt-ins，将中点旋转角度ang<br /> <br /> (setq dis (* 0.5 (distance pt-ins pt-tr)))           ;取长度<br /> (setq pt0-m (polar pt-ins (+ ang-self ang) dis))<br /> ;;;(command "point" pt0-m)<br /> <br /> (setq ag "180")<br /> (vla-rotate<br />   (vlax-ename->vla-object en)<br />   (vlax-3d-point pt0-m)<br />   (angtof ag)<br /> )<br /> <br />   );while 加入循环<br /> <br /> ;;;(setvar "osmode" oldosmode)    ;取消捕捉，当使用command命令时。<br /> (princ)<br /> );defun<br /> <br /> (princ "\nRTT 文字反转命令加载成功\nDesigned by 林霄云 2014年1月4日")<br /> (princ)<br />

结论：此代码经过测试，在UCS下也可以，在文中解释其原因。Rotate text 常用于解决镜像问题。当加入块内文字识别操作时，能有更广泛的应用。

yoyoho

指令: _-view 输入选项 [?/删除(D)/正投影(O)/还原(R)/储存(S)/设定(E)/视窗(W)]: _swiso 正在重生模型。
指令: _ucs
目前的 UCS 名称:  *世界*
指定 UCS 的原点或 [面(F)/具名(NA)/物件(OB)/前一个(P)/视图(V)/世界(W)/X/Y/Z/Z 轴(ZA)] <世界>: _v
在以上的條件下測試程序沒成功!

香田里浪人

有意思，有一定使用价值。

tianyi1230

有时候经常用，但是明经上有的源码貌似不支持ucs，支持楼主

自贡黄明儒

用trans吧，你的代码可以简化很多

迷不知途

自贡黄明儒 发表于 2014-1-6 10:46
用trans吧，你的代码可以简化很多

哈哈！！学习了一个新函数！！多谢多谢了！！

z397876224

有意思 看看

yjjyjj

能框选的话，那就更好了。

石井鱼

只能点选，能框选就完美了