hao3ren 发表于 2012-1-11 16:21:13

8楼的理解错误啊

hao3ren 发表于 2012-1-11 16:23:21

(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 发表于 2012-5-28 22:32:44

本帖最后由 hf423 于 2012-5-28 22:39 编辑

hao3ren 发表于 2012-1-11 16:23 http://bbs.mjtd.com/static/image/common/back.gif
(defun C:TT (/ SS I ENAME VLAOBJ P1 P2 MIDPT)
    (setq I 0)
    (if      (setq SS (ssget '((0 . "LINE, ...

很强悍！多谢！

panzhongw 发表于 2012-5-29 08:53:55

老帖子 被翻了出来 其实用过滤修改的方法最基本， 用程序的方法直接，都好，关键你用的时候身边有什么用什么
页: 1 [2]
查看完整版本: 用什么命令可以一次性把所有字体在原有的角度上都加上180度