yangboraven 发表于 2014-7-28 23:55:08

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

本帖最后由 yangboraven 于 2014-7-28 23:57 编辑

以下是摘自论坛朋友可以旋转180°的~如何进行学习(defun c:gfz (/cmn osnss 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))

香田里浪人 发表于 2014-7-29 06:31:12

论坛里有了，查找一下。

香田里浪人 发表于 2014-7-29 06:50:33

;;;旋转文字(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)
)

不语勿语 发表于 2018-6-2 13:02:38

谢谢分享      

KO你 发表于 2023-9-20 02:27:41

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

大师，属性块的文字需要旋转怎么改
页: [1]
查看完整版本: 所有文字旋转设定角度怎么写~？