基于中点的文字反转v4源代码解析与测试 重写逻辑（支持块、嵌套块、外部参照、UCS）

林霄云

基于中点的文字反转扩展暨函数nentsel应用实例
重写逻辑，精简代码；扩展对嵌套块，Base支持。
原版本基于中点的文字反转v3源代码解析与测试（支持块、外部参照、UCS）http://bbs.mjtd.com/forum.php?mo ... amp;fromuid=7303580
思路：
函数nentsel，对于一般对象（not complex，that is, not a 3D polyline or block）选择，同entsel；否则能返回被选择的实体名，且带有一（MCS to WCS）转换矩阵与外部实体名（对于嵌套的情况）。具体应用详见代码。
基于上述函数，对于本文字反转的选择判断将不复存在。即对选择的文本执行RotateText即可，如果为块对象，则更新块对象。主函数ART(Advanced Totate Text)修改如下

2. (defun C:ART () ;Advanced Rotate Text
   
3. ;函数ART Advanced Rotate Text 文字绕自身中点反转，version 4.0 调整判断逻辑 。
   
4. ;Desiged by 林霄云 2014年1月11日
   
5. (princ "\n选择需要反转的文字：");提示不需要进入循环
   
6.   (while(setq e  (nentsel)) ;Prompts the user to select an object (entity) by specifying a point, and provides access to the definition data contained within a complex object
   
7.        (setq en (car e));The second element is a list containing the coordinates of the point used to pick the object.
   
8.     (setq typ (cdr (assoc 0 (entget en))))
   
9.        (cond
   
10.        ((= (length e) 2) ;普通的entsel，判断是否为TEXT
    
11.          (if (= typ "TEXT") ;如果判断是TEXT，则直接Rotate it。
    
12.          (rotate-text en) );if TEXT
    
13.        );cond 1
    
14.       ((= (length e) 4) ;When the selected object is a component of a block reference other than an attribute, nentsel returns a list containing four elements.
    
15.       (if (= typ "TEXT") ;如果判断是TEXT，则直接Rotate it。且更新块。
    
16.       (progn     (rotate-text en)
    
17.       ;更新块
    
18.       (setq i -1)
    
19.       (setq ss (ssget "X" (list (cons 2  (cdr (assoc 2 (entget (car(reverse(cadddr e)))))) ) ) )); The fourth element is a list containing the entity name of the block that contains the selected object.
    
20. ;      If the selected object is in a nested block (a block within a block), the list also contains the entity names of all blocks in which the selected object is nested, starting with the innermost block and continuing outward until the name of the block that was inserted in the drawing is reported.
    
21. ;      所以反转，取最外面的的块名。
    
22.       (while (setq s1 (ssname ss (setq i (1+ i))))
    
23.       (entupd s1))
    
24.       );progn
    
25.         );if TEXT
    
26.       );cond2
    
27.       );cond
    
28.   (princ)
    
29. );while
    
30.   );defun

(defun C:ART () ;Advanced Rotate Text<br /> ;函数ART Advanced Rotate Text 文字绕自身中点反转，version 4.0 调整判断逻辑 。<br /> ;Desiged by 林霄云 2014年1月11日<br /> (princ "\n选择需要反转的文字：");提示不需要进入循环<br />   (while(setq e  (nentsel)) ;Prompts the user to select an object (entity) by specifying a point, and provides access to the definition data contained within a complex object<br />        (setq en (car e));The second element is a list containing the coordinates of the point used to pick the object. <br />     (setq typ (cdr (assoc 0 (entget en))))<br />        (cond <br />        ((= (length e) 2) ;普通的entsel，判断是否为TEXT<br />          (if (= typ "TEXT") ;如果判断是TEXT，则直接Rotate it。<br />          (rotate-text en) );if TEXT <br />        );cond 1<br />       ((= (length e) 4) ;When the selected object is a component of a block reference other than an attribute, nentsel returns a list containing four elements. <br />       (if (= typ "TEXT") ;如果判断是TEXT，则直接Rotate it。且更新块。<br />       (progn     (rotate-text en)<br />       ;更新块<br />       (setq i -1)<br />       (setq ss (ssget "X" (list (cons 2  (cdr (assoc 2 (entget (car(reverse(cadddr e)))))) ) ) )); The fourth element is a list containing the entity name of the block that contains the selected object.<br /> ;      If the selected object is in a nested block (a block within a block), the list also contains the entity names of all blocks in which the selected object is nested, starting with the innermost block and continuing outward until the name of the block that was inserted in the drawing is reported. <br /> ;      所以反转，取最外面的的块名。<br />       (while (setq s1 (ssname ss (setq i (1+ i)))) <br />       (entupd s1))<br />       );progn<br />         );if TEXT<br />       );cond2<br />       );cond<br />   (princ)<br /> );while<br />   );defun

主函数中调用的RotateText函数详见前述版本，可见原版本的RotateText具有强通用性。
结果：
如测试截图所示，本文完美支持文字（基本功能），块，外部参照，外部参照里的块，UCS等情况的反转。
结论：
nentsel充分的将原各版本的判断缩减了。充分利用开发语言提供的函数能有更大的通用性。
另本稍加修改扩展，可以将本代码用修改文字内容等操作。

林霄云

对于块属性，由于其整体性，所以没有反转需求（ATTDEF in block），但是单个属性（ATTDEF），可以支持反转。简单的，将如下代码里的判断做如下修改，原语句

1. ((= (length e) 2) ;普通的entsel，判断是否为TEXT
   
2.          (if (= typ "TEXT") ;如果判断是TEXT，则直接Rotate it。

复制代码

修改为：

1. ((= (length e) 2) ;普通的entsel，判断是否为TEXT
   
2.          (if (vl-position typ '("ATTDEF" "TEXT")) ;如果判断是TEXT，则直接Rotate it。

复制代码

本反转文字，到此，可以搞一个段落了。终结版，可用。

海平面建筑设计

学习了

iamhuangjinming

可以来个直接修改参照里面文字的工具吗

LIULISHENG

终于找到这个