[LISP函数]：修复在mirrtext＝1是将text mirror。。。

eachy

改图时发生了错误，临时写的。

2. 
   
3. ;|
   
4. 命令：c:tmirr
   
5. 
   
6. 功能：假如在mirrtext＝1时用了mirror，而正好其中又有text...
   
7.       不用费时undo后重新mirror
   
8. 
   
9. 说明：1. 配合XDRX_API使用
   
10.          XDRX_API最新版本请到“晓东CAD空间”
    
11.          [url]http://www.fspdi.com/forum/。[/url]
    
12.       2. DXF组码: 71   文本生成标志（可选，缺省值= 0）  
    
13.                        2 = 文本反向（在 X 方向上产生镜像）
    
14.                        4 = 文本倒置（在 Y 方向上产生镜像）
    
15.                   50   文字旋转（可选，缺省值= 0），单位弧度
    
16. 
    
17. |;
    
18. (defun c:tmirr (/ ss e)
    
19.   (xdrx_begin)
    
20.   (xdrx_ucson)
    
21.   (princ "\n选择文字......")
    
22.   (setq ss (ssget '((0 . "TEXT"))))
    
23.   (xdrx_setsstodb ss 0)
    
24.   (while (setq e (xdrx_getentdata 0))
    
25.     (if        (or (/= (xdrx_getentdxf 71) 0)
    
26.              (and (> (xdrx_getentdxf 50) (/ pi 2))
    
27.                   (<= (xdrx_getentdxf 50) (* pi 1.5))
    
28.              )
    
29.         )
    
30.       (progn
    
31.         (xdrx_modent 71 0 50 (- (xdrx_getentdxf 50) pi))
    
32.         (setvar "mirrtext" 0)
    
33.       )
    
34.     )
    
35.   )
    
36.   (xdrx_ucsoff)
    
37.   (xdrx_end)
    
38.   (princ)
    
39. )
    

<br /> ;|<br /> 命令：c:tmirr<br /> <br /> 功能：假如在mirrtext＝1时用了mirror，而正好其中又有text...<br />       不用费时undo后重新mirror<br /> <br /> 说明：1. 配合XDRX_API使用 <br />          XDRX_API最新版本请到“晓东CAD空间” <br />          [url]http://www.fspdi.com/forum/。[/url] <br />       2. DXF组码: 71   文本生成标志（可选，缺省值= 0）  <br />                        2 = 文本反向（在 X 方向上产生镜像）<br />                        4 = 文本倒置（在 Y 方向上产生镜像）<br />                   50   文字旋转（可选，缺省值= 0），单位弧度<br /> <br /> |;<br /> (defun c:tmirr (/ ss e)<br />   (xdrx_begin)<br />   (xdrx_ucson)<br />   (princ "\n选择文字......")<br />   (setq ss (ssget '((0 . "TEXT"))))<br />   (xdrx_setsstodb ss 0)<br />   (while (setq e (xdrx_getentdata 0))<br />     (if        (or (/= (xdrx_getentdxf 71) 0)<br />              (and (> (xdrx_getentdxf 50) (/ pi 2))<br />                   (<= (xdrx_getentdxf 50) (* pi 1.5))<br />              )<br />         )<br />       (progn<br />         (xdrx_modent 71 0 50 (- (xdrx_getentdxf 50) pi))<br />         (setvar "mirrtext" 0)<br />       )<br />     )<br />   )<br />   (xdrx_ucsoff)<br />   (xdrx_end)<br />   (princ)<br /> )<br />