[编程申请](完成)：哪位高手能不能用lisp解决CAD尺寸文字翻转的问题

曹杰

在CAD的ucs坐标下标注的尺寸文字，当标注的尺寸文字在恢复到世界坐标系后，发现尺寸文字的方向反了，在CAD中又不知道怎样去翻转尺寸文字，请lisp高手们看看能不能用lisp程序解决，谢谢

xyp1964

什么是“翻转”，发个图看看。

zjfcumt

不知道用mirrtext命令是否能满足你的要求！

eachy

[php]
;|
  功能：尺寸标注文字翻转
|;
(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)
)[/php]

柔柔

楼上的程序没试过，不过好像用改变对象角度的方法，能行吗？
这是坐标问题，应该改210组码。我在《AutoCAD应用技术》专栏贴过一个小程序可以解决这个问题。

狂刀

it is not 210 dxf reason
change dimtext angle will be ok

柔柔

？

柔柔

楼主的问题如果是下图这种，4楼的程序没用。
如果楼主不是这样的问题，就当我灌水吧。

xyp1964

最初由 柔柔 发布
[B]楼主的问题如果是下图这种，4楼的程序没用。
如果楼主不是这样的问题，就当我灌水吧。 [/B]

大家好像在猜楼主的意思。
1楼的站出来说清楚，快说！

cjrun

请问怎样在程序中改变尺寸的全局变量？

xyp1964

不知什么是“尺寸的全局变量”，要说尺寸的系统变量可太多了。

曹杰

谢谢高手们解答，我说的ucs坐标下的标注，如图黄颜色线中的标注文字所示，这是和轴线尺寸的文字正好相反.

aeo

最初由 曹杰 发布
[B]谢谢高手们解答，我说的ucs坐标下的标注，如图黄颜色线中的标注文字所示，这是和轴线尺寸的文字正好相反. [/B]

eachy的没错
dxf51 + pi就是了.

eachy

是 CAD 的标注标准问题

柔柔

圈起来的应该是对的，轴线标注倒是...