zwf100 发表于 2014-1-27 22:18:17

厉害，找你很久了

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

如果要反转90°呢

恕放之生命 发表于 2014-7-29 15:29:10

学习一下。

jhyfans 发表于 2014-8-3 18:50:41

yangboraven 发表于 2014-7-28 23:47 static/image/common/back.gif
如果要反转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 发表于 2014-8-3 18:51:30

yangboraven 发表于 2014-7-28 23:47 static/image/common/back.gif
如果要反转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)

)

风流少年时 发表于 2014-8-8 22:47:17

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

lzg8877 发表于 2014-8-12 07:05:16

学习好资料下了 谢谢

szx025 发表于 2015-3-13 12:18:25

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

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

tangjunasd58 发表于 2015-8-20 16:28:09

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

转90度怎么弄的

别闹 发表于 2016-4-11 15:14:16

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

大哥怎么才能不用回车，一点就旋转了啊？而且可以连续点
页: 1 [2]
查看完整版本: 所有文字自身旋转180度,怎么写各位大佬