【已解决】只需要用命令默认让属性文字反转180，该怎么改一下呀

yangchao2005090

2. (defun c:BAChg (/ key an hi cset)
   
3.   (initget 128 "R A")
   
4.   (setq key (getdist "\n字高[A - 旋转角/R - 反向修复]: "))
   
5.   (cond
   
6.     ((= (type key) 'STR)
   
7.       (if (= (strcase key) "R")
   
8.         (setq key "Recover")
   
9.         (setq an (getangle "\n旋转角: "))
   
10.       ) ;_ 结束if
    
11.     )
    
12.     ((= (type key) 'REAL)
    
13.       (setq hi key)
    
14.     )
    
15.     (t)
    
16.   )
    
17.   (if (not (vl-catch-all-error-p
    
18.              (setq cset
    
19.                (vl-catch-all-apply
    
20.                  'vla-item
    
21.                  (list
    
22.                    (vlax-get-property
    
23.                      (vlax-get-property
    
24.                        (vlax-get-acad-object)
    
25.                        'activedocument
    
26.                      )
    
27.                      'selectionsets
    
28.                    )
    
29.                    "CURRENT"
    
30.                  )
    
31.                )
    
32.              )
    
33.            )
    
34.       )
    
35.     (vla-delete cset)
    
36.   )
    
37.   (if (or an hi key)
    
38.     (if    (ssget '((0 . "insert")))
    
39.       (vlax-map-collection
    
40.         (vlax-get-property
    
41.           (vlax-get-property (vlax-get-acad-object) 'activedocument)
    
42.           'activeselectionset
    
43.         )
    
44.         '(lambda (x / attlst)
    
45.            (if (= (vla-get-hasattributes x) :vlax-true)
    
46.              (progn
    
47.                (setq
    
48.                  attlst    (safearray-value
    
49.                              (vlax-variant-value (vla-getattributes x))
    
50.                            )
    
51.                )
    
52.                (mapcar '(lambda    (a)
    
53.                           (if hi
    
54.                             (vla-put-height a hi)
    
55.                           )
    
56.                           (if an
    
57.                             (vla-put-rotation a an)
    
58.                           )
    
59.                           (if (= key "Recover")
    
60.                             (vla-put-Backward a :vlax-false)
    
61.                           )
    
62.                         )
    
63.                  attlst
    
64.                )
    
65.              )
    
66.            )
    
67.          )
    
68.       )
    
69.     )
    
70.   )
    
71.   (princ)
    
72. )

(defun c:BAChg (/ key an hi cset)<br />   (initget 128 "R A")<br />   (setq key (getdist "\n字高[A - 旋转角/R - 反向修复]: "))<br />   (cond<br />     ((= (type key) 'STR)<br />       (if (= (strcase key) "R")<br />         (setq key "Recover")<br />         (setq an (getangle "\n旋转角: "))<br />       ) ;_ 结束if<br />     )<br />     ((= (type key) 'REAL)<br />       (setq hi key)<br />     )<br />     (t)<br />   )<br />   (if (not (vl-catch-all-error-p<br />              (setq cset<br />                (vl-catch-all-apply<br />                  'vla-item<br />                  (list<br />                    (vlax-get-property<br />                      (vlax-get-property<br />                        (vlax-get-acad-object)<br />                        'activedocument<br />                      )<br />                      'selectionsets<br />                    )<br />                    "CURRENT"<br />                  )<br />                )<br />              )<br />            )<br />       )<br />     (vla-delete cset)<br />   )<br />   (if (or an hi key)<br />     (if    (ssget '((0 . "insert")))<br />       (vlax-map-collection<br />         (vlax-get-property<br />           (vlax-get-property (vlax-get-acad-object) 'activedocument)<br />           'activeselectionset<br />         )<br />         '(lambda (x / attlst)<br />            (if (= (vla-get-hasattributes x) :vlax-true)<br />              (progn<br />                (setq<br />                  attlst    (safearray-value<br />                              (vlax-variant-value (vla-getattributes x))<br />                            )<br />                )<br />                (mapcar '(lambda    (a)<br />                           (if hi<br />                             (vla-put-height a hi)<br />                           )<br />                           (if an<br />                             (vla-put-rotation a an)<br />                           )<br />                           (if (= key "Recover")<br />                             (vla-put-Backward a :vlax-false)<br />                           )<br />                         )<br />                  attlst<br />                )<br />              )<br />            )<br />          )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

alexmai

torient 这个命令可以帮到你，需安装cad工具