如何修正标注文字

smartstar

如果图片所示，非正常标注的文字镜像了，如何用lisp批量修正，谢谢。样本见附件。

.

自贡黄明儒

猜想组码210

edata

1. (defun c:tt(/ ss en e)
   
2.   (princ "\n选择需要修正文字的标注:")
   
3.   (if(setq ss(ssget '((0 . "DIMENSION"))))
   
4.     (while (setq en(ssname ss 0))
   
5.   (setq e(entget en))
   
6.   (setq e(subst (cons 210 '(0.0 0.0 1.0)) (assoc 210 e) e))
   
7.   (setq e(subst (cons 51 0.0) (assoc 51 e) e))
   
8.   (entmod e)
   
9.       (setq ss(ssdel en ss))
   
10.       )
    
11.     )
    
12.   (princ)
    
13.   )

(defun c:tt(/ ss en e)<br />   (princ "\n选择需要修正文字的标注:")<br />   (if(setq ss(ssget '((0 . "DIMENSION"))))<br />     (while (setq en(ssname ss 0))<br />   (setq e(entget en))<br />   (setq e(subst (cons 210 '(0.0 0.0 1.0)) (assoc 210 e) e))<br />   (setq e(subst (cons 51 0.0) (assoc 51 e) e))<br />   (entmod e)<br />       (setq ss(ssdel en ss))<br />       )<br />     )<br />   (princ)<br />   )

自贡黄明儒

挤出，就是拉伸。对于文字怎么拉伸，没有想过。对于面域拉伸成立体图，我倒是拉过一次

smartstar

自贡黄明儒 发表于 2014-2-12 09:32
挤出，就是拉伸。对于文字怎么拉伸，没有想过。对于面域拉伸成立体图，我倒是拉过一次

还是谢谢了！

edata

210 拉伸方向、挤出方向，或者说法线方向。
在三维中观察会比较直观的理解该组码，默认顶视图，210 值 0 0 1 代表x方向 y方向 z方向
z=1 表示法线朝上，用多段线加厚度或者用extrude闭合线的时候，方向往Z方向走，顶视图的理解就是向屏幕外增加厚度，
】

自贡黄明儒

edata 发表于 2014-2-12 12:55
210 拉伸方向、挤出方向，或者说法线方向。
在三维中观察会比较直观的理解该组码，默认顶视图，210 值 0 0 ...

还是你水平高，有点象晓东的st788796

smartstar

edata 发表于 2014-2-12 12:55
210 拉伸方向、挤出方向，或者说法线方向。
在三维中观察会比较直观的理解该组码，默认顶视图，210 值 0 0 ...

看的我云里雾里的，看来我得加强学习。不过还是谢谢前辈的指点，等有时间了我再好好研究研究！