各位有没有办法让DIM的文字对齐呀

357785513

各位有没有办法让DIM的文字对齐呀.如果像左边的DIM一样好难看
如果把DIM的文字像右边一样对齐那就好看了.各位有没有什么办法嘛
我只有一个一个去拉对齐

zhuoxiaoxin

看了楼主的贴子,很不错.有创意.可惜咱不会,做图时却实要严肃,再等等,会有高人出来点拔的

edata

2. ;尺寸文字水平\垂直对齐β1.0.
3. ;注:仅适合与水平和垂直方向线性标注文字对齐.
4. ;code by edata 2010年6月30日17:07:51
6. (defun c:td2 (/ sset sslen pt2 elist ang11 newpt11)
7. (princ "\n尺寸标注文字对齐 命令TD2")
8. (setq sset (ssget '((0 . "DIMENSION")))
9. sslen (sslength sset))
10. (setq pt2 (getpoint "\n指定对齐点 <不更改>:"))
11. (while (> sslen 0)
12. (setq elist (entget (ssname sset (setq sslen (1- sslen))))
13.      
14. pt11 (cdr (assoc 11 elist))
15.      ang11(cdr (assoc 50 elist))
16.     )
17. (if pt2
18. (progn
19.      (cond
20.      ((= ang11 0)(setq newpt11 (list (nth 0 pt2) (nth 1 pt11))))
21.      ((= ang11 (* pi 0.5))(setq newpt11 (list (nth 0 pt11) (nth 1 pt2))))
22.      (exit)
23.      )
24.      (setq elist (subst (cons 70 160) (assoc 70 elist) elist))
25. (setq elist (subst (cons 11 newpt11) (assoc 11 elist) elist))
26. (entmod elist)
27. )
28. )
29. )
30. (princ)
31. )

;尺寸文字水平\垂直对齐β1.0. ;注:仅适合与水平和垂直方向线性标注文字对齐. ;code by edata 2010年6月30日17:07:51 (defun c:td2 (/ sset sslen pt2 elist ang11 newpt11) (princ "\n尺寸标注文字对齐 命令TD2") (setq sset (ssget '((0 . "DIMENSION"))) sslen (sslength sset)) (setq pt2 (getpoint "\n指定对齐点 <不更改>:")) (while (> sslen 0) (setq elist (entget (ssname sset (setq sslen (1- sslen))))       pt11 (cdr (assoc 11 elist))      ang11(cdr (assoc 50 elist))     ) (if pt2 (progn      (cond      ((= ang11 0)(setq newpt11 (list (nth 0 pt2) (nth 1 pt11))))      ((= ang11 (* pi 0.5))(setq newpt11 (list (nth 0 pt11) (nth 1 pt2))))      (exit)      )      (setq elist (subst (cons 70 160) (assoc 70 elist) elist)) (setq elist (subst (cons 11 newpt11) (assoc 11 elist) elist)) (entmod elist) ) ) ) (princ) )