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

yangchao2005090 · 发表于 2019-6-14 19:24:31

本帖最后由 yangchao2005090 于 2019-6-14 22:07 编辑

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

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

alexmai · 发表于 2019-6-16 00:30:02

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

账号		自动登录	找回密码
密码			注册

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