[求助]：有标注文字翻转的lisp程序吗？共享一个！

kfxz

各位大侠：
      能帮我做一个标注文字翻转（标注里面的文字旋转180度）的lisp吗？谢谢

倒数第一名

资料来源于网络，回报于网络。

(defun c:ea:DIMTxtRev (/ ss ang ssl e lst)
  (while (progn
           (prompt "\n请选取要翻转文字方向的尺寸标注 <退出>: ")
           (setq ss (ssget '((0 . "DIMENSION"))))
         )
    (setq ssl (sslength ss))
    (command ".undo" "g")
    (while (> ssl 0)
      (setq e        (ssname ss (setq ssl (1- ssl)))
            lst        (entget e)
            ang        (cdr (assoc 51 lst))
      )
      (entmod (subst (cons 51
                           (if (and
                                 (>= pi ang)
                                 (> ang 0)
                               )
                             0
                             pi
                           )
                     )
                     (assoc 51 lst)
                     lst
              )
      )
    )
    (command "undo" "end")
  )
  (princ)
)

CADVL

其实使用系统自带命令dimedit就能实现楼主要求。

kfxz

谢谢楼上的提供代码，非常好用：）