所有文字旋转设定角度怎么写~？

yangboraven

以下是摘自论坛朋友可以旋转180°的~如何进行学习(defun c:gfz (/  cmn osn  ss i n ssn ssndata ssnsty pt ptmin ptmax cenpt        *error* msg)  (defun *error* (msg)    (if      (wcmatch msg "; 错误:,函数被取消")       (progn   (setvar 'cmdecho cmn)   (setvar 'osmode osn)   (princ)       )       (princ msg)    )  )  (setq cmn (getvar 'cmdecho))  (setq osn (getvar 'osmode))  (setvar 'cmdecho 0)  (setvar 'osmode 0)  (princ"\n选择要原地反转的对象：")  (setq ss (ssget ))  (setq i 0)  (setq n (sslength ss))  (repeat n    (setq ssn (vlax-ename->vla-object (ssname ss i)))    (vla-GetBoundingBox ssn 'ptmax 'ptmin)    (setq pt (mapcar '(lambda (a b) (/ (+ a b) 2))         (vlax-safearray->list ptmax)         (vlax-safearray->list ptmin)       )    )    (vlax-invoke-method      ssn      'rotate      (vlax-3d-point pt)      pi    )    (setq i (1+ i))  )  (command "ucs" "")  (setvar 'cmdecho cmn)  (setvar 'osmode osn)  (princ "\n命令：GFZ，BY gruel: 稀粥。")  (princ))

香田里浪人

论坛里有了，查找一下。

香田里浪人

;;;旋转文字(defun c:xzwz(/ x k s n m en r)
  (vl-load-com)
  (setq x(getangle"\n输入需要旋转的角度<归0>:"))
  (if(null x)(setq x 0 k nil) (setq k t))
  (setq s(ssget'((0 . "text,mtext"))))
  (if s
    (progn
      (setq n(sslength s)m 0)
      (while(< m n)
        (setq en(ssname s m)
              m(1+ m))
        (if k(setq r (+ (cdr(assoc 50 (entget en))) x))(setq r x))
        (vla-put-Rotation (vlax-ename->vla-object en) r)
        )))
  (princ)
  )

不语勿语

谢谢分享        

KO你

香田里浪人 发表于 2014-7-29 06:50
;;;旋转文字(defun c:xzwz(/ x k s n m en r)
  (vl-load-com)
  (setq x(getangle"\n输入需要旋转的角度 ...

大师，属性块的文字需要旋转怎么改