标注镜像后，调整文字到正确的显示

LoveArx

1. (defun c:tt ()
   
2.   (if (and (setq e (car (xdrx-entsel "\n拾取尺寸<退出>:" '((0 . "dim*")))))
   
3.            (setq normal (xdrx-getpropertyvalue e "normal"))
   
4.            (not        (xdrx-vector-iscodirectional normal (getvar "viewdir")))
   
5.       )
   
6.     (progn
   
7.       (setq ang        (xdrx-getpropertyvalue e "rotation")
   
8.             p1        (xdrx-getpropertyvalue e "dimlinepoint")
   
9.             ang        (- pi ang)
   
10.       )
    
11.       (xdrx-setpropertyvalue
    
12.         e               "normal"              '(0 0 1)             "rotation"
    
13.         ang               "dimlinepoint" p1
    
14.         "horizontalrotation"              0.0
    
15.        )
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )
    
20. 
    

(defun c:tt ()<br />   (if (and (setq e (car (xdrx-entsel "\n拾取尺寸<退出>:" '((0 . "dim*")))))<br />            (setq normal (xdrx-getpropertyvalue e "normal"))<br />            (not        (xdrx-vector-iscodirectional normal (getvar "viewdir")))<br />       )<br />     (progn<br />       (setq ang        (xdrx-getpropertyvalue e "rotation")<br />             p1        (xdrx-getpropertyvalue e "dimlinepoint")<br />             ang        (- pi ang)<br />       )<br />       (xdrx-setpropertyvalue<br />         e               "normal"              '(0 0 1)             "rotation"<br />         ang               "dimlinepoint" p1<br />         "horizontalrotation"              0.0<br />        )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

xk15c

这个问题有时候的确很烦