用什么命令可以一次性把所有字体在原有的角度上都加上180度

hao3ren

8楼的理解错误啊

hao3ren

(defun C:TT (/ SS I ENAME VLAOBJ P1 P2 MIDPT)
    (setq I 0)
    (if        (setq SS (ssget '((0 . "LINE,TEXT,ARC,LWPOLYLINE,SPLINE"))))
        (repeat        (sslength SS)
            (setq ENAME         (ssname SS I)
                  VLAOBJ (vlax-ename->vla-object ENAME)
            )
            ;;
            (vla-getboundingbox VLAOBJ 'P1 'P2)
            (setq P1 (safearray-value P1)
                  P2 (safearray-value P2)
            )
            (setq
                MIDPT (polar P1
                             (angle P1 P2)
                             (* 0.5 (distance P1 P2))
                      )
            )
            ;;
            (vla-rotate VLAOBJ (vlax-3d-point MIDPT) pi)
            (setq I (1+ I))
        )
    )
    (princ)
)
用这个程序可以搞定

hf423

hao3ren 发表于 2012-1-11 16:23
(defun C:TT (/ SS I ENAME VLAOBJ P1 P2 MIDPT)
    (setq I 0)
    (if        (setq SS (ssget '((0 . "LINE, ...

很强悍！多谢！

panzhongw

老帖子 被翻了出来 其实用过滤修改的方法最基本， 用程序的方法直接，都好，关键你用的时候身边有什么用什么