所有文字自身旋转180度,怎么写各位大佬

zwf100

厉害，找你很久了

yangboraven

如果要反转90°呢

恕放之生命

学习一下。

jhyfans

yangboraven 发表于 2014-7-28 23:47
如果要反转90°呢

(defun c:erbbb (/)



  (setq ss(ssget))

  (setq i 0)

  (setq n (sslength ss))

  (repeat n
    (setq ssn (vlax-ename->vla-object(ssname ss i)))
(setq ssnd (vlax-ename->vla-object(ssname ss 0)))
    (vla-GetBoundingBox ssnd 'ptmax 'ptmin)

    (setq pt (mapcar '(lambda (a b) (/ (+ a b) 2))

         (vlax-safearray->list ptmax)

         (vlax-safearray->list ptmin)

       )

    )

    (vla-rotate

      ssn

      (vlax-3d-point pt)

      1.5707963

    )

    (setq i (1+ i))

  )


  (princ)

)

jhyfans

yangboraven 发表于 2014-7-28 23:47
如果要反转90°呢

(defun c:erbbb (/)



  (setq ss(ssget))

  (setq i 0)

  (setq n (sslength ss))

  (repeat n
    (setq ssn (vlax-ename->vla-object(ssname ss i)))
(setq ssnd (vlax-ename->vla-object(ssname ss 0)))
    (vla-GetBoundingBox ssnd 'ptmax 'ptmin)

    (setq pt (mapcar '(lambda (a b) (/ (+ a b) 2))

         (vlax-safearray->list ptmax)

         (vlax-safearray->list ptmin)

       )

    )

    (vla-rotate

      ssn

      (vlax-3d-point pt)

      1.5707963

    )

    (setq i (1+ i))

  )


  (princ)

)

风流少年时

要是能有个角度判断就好了。那要对文字做个方向判断不是跟好么。

lzg8877

学习好资料下了 谢谢

szx025

wuqiu1986 发表于 2014-1-23 09:53
二楼的方法也可以，但是那样做有一个坏处，就是旋转180之后，文字的位置就变了。你这可以试试这个，不光文字 ...

好程序，要是能设置旋转角度就更完美了

tangjunasd58

wuqiu1986 发表于 2014-1-23 09:53
二楼的方法也可以，但是那样做有一个坏处，就是旋转180之后，文字的位置就变了。你这可以试试这个，不光文字 ...

转90度怎么弄的

别闹

wuqiu1986 发表于 2014-1-23 09:53
二楼的方法也可以，但是那样做有一个坏处，就是旋转180之后，文字的位置就变了。你这可以试试这个，不光文字 ...

大哥怎么才能不用回车，一点就旋转了啊？而且可以连续点