图中的文字方向是反的，怎么能给他们正过来？

ll_j

XDSoft 发表于 2013-4-25 22:37

                               
登录/注册后可看大图

感谢洋洋洒洒的大段美文，可见用功之深，在三维下，实体数据保存方式确实很有学问，如你说的210祖玛。同时也 ...

下面贴出“以假乱真”的翻转，大体意思是利用文本设置的“反向”来设置，与坐标系无关，只与文本的对齐方式和是否反向（71组码）有关，没有精力学习Vlisp，所以只能用Alisp，所以程序繁琐些。
结构不算复杂，也就不加注解了。
在这个题目下给这样的答案，可算离题太远，不过或许有条条大路通罗马的意思，希望大家不要见怪。

[pcode=lisp,true]
(defun c:tt1 (/ ss len i en e00 e10 e11 e50 e71 e711 e72)
  (princ "\n选择要翻转的文本.")
  (setq ss  (ssget '((0 . "text")))
len (sslength ss)
i   -1
  )
  (repeat len
    (setq en  (entget (ssname ss (setq i (1+ i))))
   e50 (cdr (assoc 50 en))
   e71 (assoc 71 en)
    )
    (if e71
      (cond
((= (cdr e71) 0)
  (setq e711 '(71 . 2))
)
((= (cdr e71) 2)
  (setq e711 '(71 . 0))
)
((= (cdr e71) 4)
  (setq e711 '(71 . 6))
)
((= (cdr e71) 6)
  (setq e711 '(71 . 4))
)
(t nil)
      )
      (setq e711 '(71 . 2))
    )
    (cond
      ((or (= (setq e72 (cdr (assoc 72 en))) 1) (= e72 4))
       (if e71
  (setq en (subst e711 e71 en))
  (setq en (append en (list e711)))
       )
      )
      ((or (= e72 2) (= e72 3) (= e72 5))
       (setq e10 (cdr (assoc 10 en))
      e11 (cdr (assoc 11 en))
      en  (subst (cons 10 e11) (assoc 10 en) en)
      en  (subst (cons 11 e10) (assoc 11 en) en)
      en  (subst e711 e71 en)
       )
      )
      ((= e72 0)
(if (/= (logand 2 (cdr e711)) 2)
   (setq e00 (list (* (caar (textbox en)) (cos e50))
     (* (caar (textbox en)) (sin e50))
     0.0
      )
   )
   (setq e00 (list (* (caadr (textbox en)) (cos e50))
     (* (caadr (textbox en)) (sin e50))
     0.0
      )
   )
)
(if (= (cdr (assoc 73 en)) 0)
   (setq e10 (cdr (assoc 10 en))
  e10 (mapcar '+ e10 e00)
  en  (subst (cons 10 e10) (assoc 10 en) en)
   )
   (setq e11 (cdr (assoc 11 en))
  e11 (mapcar '+ e11 e00)
  en  (subst (cons 11 e11) (assoc 11 en) en)
   )
)
(setq en (subst e711 e71 en))
      )
      (t nil)
    )
    (entmod en)
  )
  (princ)
)
[/pcode]

Free-Lancer

受大侠启发，返朴归真，编哈程啊

Free-Lancer

处处问题鸟 发表于 2013-4-25 23:05

                               
登录/注册后可看大图

(defun c:tt (/ GETBOX A B ORIGN SS N OBJ CP)
  (defun getbox  (obj / minpoint maxpoint)
     (vla ...

既然用 Matrix 了就可以完全用 Matrix 转换,不用 Move

Free-Lancer

处处问题鸟 发表于 2013-4-25 23:05

                               
登录/注册后可看大图

(defun c:tt (/ GETBOX A B ORIGN SS N OBJ CP)
  (defun getbox  (obj / minpoint maxpoint)
     (vla ...

既然用 Matrix 了就可以完全用 Matrix 转换,不用 Move

处处问题鸟

Free-Lancer 发表于 2013-4-28 07:53

                               
登录/注册后可看大图

既然用 Matrix 了就可以完全用 Matrix 转换,不用 Move

还是用高飞鸟的矩阵运算吧，代码就很简单了！
见   【越飞越高讲堂2】用LISP论矩阵
[pcode=lisp,true](defun c:tt (/ GETBOX A B ORIGN SS N OBJ CP)
  (defun getbox  (obj / minpoint maxpoint)
     (vla-GetBoundingBox obj 'minpoint 'maxpoint)            
     (setq minpoint (vlax-safearray->list minpoint))           
     (setq maxpoint (vlax-safearray->list maxpoint))            
     (list minpoint maxpoint)
     )
  (if (setq ss (ssget ":L"))
    (repeat (setq n (sslength ss))
      (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n))))
            box (getbox obj)
            cp (mapcar '* (apply 'mapcar (cons '+ box)) '(0.5 0.5 0.5)))
      (setq mat (MAT:Rotation3D cp '(0 0 1) pi)) ;_ 以中心为基点，绕Z轴旋转180度
      (vla-TransformBy obj (vlax-tmatrix mat))
      )
    )
  (princ)
  )[/pcode]

XDSoft

Free-Lancer 发表于 2013-4-26 22:24

                               
登录/注册后可看大图

受大侠启发，返朴归真，编哈程啊

:o:shutup:

sicky111

应该多搞一些这样的活动，高手切磋，菜鸟观摩。