（XD::Text:Adjust）调整文字、属性、块内文字到正确的显示方向

newer

1. (defun XD::Text:Adjust (ents   /      9pt1   box    ecs           mat
   
2.                         mat0   mat1   mat2   mirrInx           mirrIny
   
3.                         p0     p0_1   p1     vx            vy           vz
   
4.                         atts txts eblk
   
5.                        )
   
6.   (defun _tMirr        (e)
   
7.     (setq mirrInx (xdrx_text_ismirroredInx e)
   
8.           mirrIny (xdrx_text_ismirroredIny e)
   
9.     )
   
10.     (if        mirrInx
    
11.       (xdrx_text_setMirrorInx e nil)
    
12.     )
    
13.     (if        mirrIny
    
14.       (xdrx_text_setMirrorIny e nil)
    
15.     )
    
16.     (if        (or mirrInx mirrIny)
    
17.       (progn (setq box        (XD::Entity:BoxAtEcs e e)
    
18.                    9pt1        (XD::Geom:BOX->9PT box)
    
19.                    p0_1        (last 9pt1)
    
20.              )
    
21.              (xdrx_entity_transform
    
22.                e
    
23.                (xdrx_matrix_setTranslation mat0 (mapcar '- p0 p0_1))
    
24.              )
    
25.       )
    
26.     )
    
27.   )
    
28.   (cond
    
29.     ((xdrx_object_iskindof ents "INSERT")
    
30.       (setq atts (xdrx_getpropertyvalue ents "attributeentities"))
    
31.       (setq txts (xdrx_block_getentities ents '((0 . "TEXT"))))
    
32.       (setq txts (append txts atts))
    
33.       (setq eblk ents)
    
34.       (setq ents txts)
    
35.      )
    
36.     ((xdrx_object_iskindof ents "ATT*,TEXT")
    
37.      (setq ents (list ents))
    
38.     )
    
39.     ((= (type ents) 'PICKSET)
    
40.      (setq ents (xdrx_pickset->ents ents))
    
41.     )
    
42.     (t (setq ents nil))
    
43.   )
    
44.   (setq        i   0)
    
45.   (mapcar
    
46.     '(lambda (e)
    
47.        (setq ecs  (xdrx_entity_getecs e)
    
48.              vx          (cadr ecs)
    
49.              vy          (caddr ecs)
    
50.              vz          (last ecs)
    
51.              box  (xdrx_entity_box e vx)
    
52.              9pt1 (XD::Geom:BOX->9PT box)
    
53.              p1          (car box)
    
54.              p0          (last 9pt1)
    
55.              mat0 (xdrx_matrix_identity 3)
    
56.              mat1 mat0
    
57.              mat2 mat0
    
58.              p1          (xdrx_getpropertyvalue e "9pt" 5)
    
59.        )
    
60.        (_tMirr e)
    
61.        (if (< (car vx) 0.0)
    
62.          (progn (setq mat1 (xdrx_matrix_setrotation mat0 pi vy p0)))
    
63.        )
    
64.        (if (< (cadr vy) 0.0)
    
65.          (progn (setq mat2 (xdrx_matrix_setrotation mat0 pi vx p0)))
    
66.        )
    
67.        (setq mat (xdrx_matrix_product mat2 mat1))
    
68.        (if (not (equal mat mat0))
    
69.          (progn        (xdrx_entity_transform e mat)
    
70.                 (xdrx_entity_move e (xdrx_getpropertyvalue e "9pt" 5) p1)
    
71.                 (setq i (1+ i))
    
72.          )
    
73.        )
    
74.      )
    
75.     ents
    
76.   )
    
77.   (xdrx_object_regen eblk)
    
78.   i
    
79. )
    

(defun XD::Text:Adjust (ents   /      9pt1   box    ecs           mat<br />                         mat0   mat1   mat2   mirrInx           mirrIny<br />                         p0     p0_1   p1     vx            vy           vz<br />                         atts txts eblk<br />                        )<br />   (defun _tMirr        (e)<br />     (setq mirrInx (xdrx_text_ismirroredInx e)<br />           mirrIny (xdrx_text_ismirroredIny e)<br />     )<br />     (if        mirrInx<br />       (xdrx_text_setMirrorInx e nil)<br />     )<br />     (if        mirrIny<br />       (xdrx_text_setMirrorIny e nil)<br />     )<br />     (if        (or mirrInx mirrIny)<br />       (progn (setq box        (XD::Entity:BoxAtEcs e e)<br />                    9pt1        (XD::Geom:BOX->9PT box)<br />                    p0_1        (last 9pt1)<br />              )<br />              (xdrx_entity_transform<br />                e<br />                (xdrx_matrix_setTranslation mat0 (mapcar '- p0 p0_1))<br />              )<br />       )<br />     )<br />   )<br />   (cond<br />     ((xdrx_object_iskindof ents "INSERT")<br />       (setq atts (xdrx_getpropertyvalue ents "attributeentities"))<br />       (setq txts (xdrx_block_getentities ents '((0 . "TEXT"))))<br />       (setq txts (append txts atts))<br />       (setq eblk ents)<br />       (setq ents txts)<br />      )<br />     ((xdrx_object_iskindof ents "ATT*,TEXT")<br />      (setq ents (list ents))<br />     )<br />     ((= (type ents) 'PICKSET)<br />      (setq ents (xdrx_pickset->ents ents))<br />     )<br />     (t (setq ents nil))<br />   )<br />   (setq        i   0)<br />   (mapcar<br />     '(lambda (e)<br />        (setq ecs  (xdrx_entity_getecs e)<br />              vx          (cadr ecs)<br />              vy          (caddr ecs)<br />              vz          (last ecs)<br />              box  (xdrx_entity_box e vx)<br />              9pt1 (XD::Geom:BOX->9PT box)<br />              p1          (car box)<br />              p0          (last 9pt1)<br />              mat0 (xdrx_matrix_identity 3)<br />              mat1 mat0<br />              mat2 mat0<br />              p1          (xdrx_getpropertyvalue e "9pt" 5)<br />        )<br />        (_tMirr e)<br />        (if (< (car vx) 0.0)<br />          (progn (setq mat1 (xdrx_matrix_setrotation mat0 pi vy p0)))<br />        )<br />        (if (< (cadr vy) 0.0)<br />          (progn (setq mat2 (xdrx_matrix_setrotation mat0 pi vx p0)))<br />        )<br />        (setq mat (xdrx_matrix_product mat2 mat1))<br />        (if (not (equal mat mat0))<br />          (progn        (xdrx_entity_transform e mat)<br />                 (xdrx_entity_move e (xdrx_getpropertyvalue e "9pt" 5) p1)<br />                 (setq i (1+ i))<br />          )<br />        )<br />      )<br />     ents<br />   )<br />   (xdrx_object_regen eblk)<br />   i<br /> )<br />

renyonghua2014

学习学习，谢谢！

yangzhigg

属性块内修改