[转贴]：文字行列对齐

eachy

不足：

1 仅限左对齐文字
2 只能均布（按给定的X/Y）文字

2. 
   
3. ;;; made by eachy, coolzhb modified [[url]www.xdcad.net[/url]]!
   
4. ;;(load "sortent.VLX")
   
5. (defun c:altext        (/ ss vy vx ssl i e el dl1 el1 el2 p10)
   
6.   (if (setq ss (ssget '((0 . "text")))
   
7.             vy (getdist "\nY 向文字间距：")
   
8.             vx (getdist "\nX 向文字间距: ")
   
9.       )
   
10.     (progn
    
11.       (command ".undo" "be")
    
12.       (setq ssl        (sslength ss)
    
13.             i        -1
    
14.       )
    
15.       (repeat ssl
    
16.         (setq e          (ssname ss (setq i (1+ i)))
    
17.               el  (entget e)
    
18.               p          (cdr (assoc 10 el))
    
19.               dl1 (cons (list p e) dl1)
    
20.         )
    
21.       )
    
22.       (setq el1        ([URL=http://www.xdcad.net/forum/showthread.php?postid=1609825#post1609825][color=blue][u]ea:sort_entity[/u][/color][/URL] dl1 0 1 (abs (/ vy 2.)))
    
23.             el2        ([URL=http://www.xdcad.net/forum/showthread.php?postid=1609825#post1609825][color=blue][u]ea:sort_entity[/u][/color][/URL]  dl1 1 1 (abs (/ vx 2.)))
    
24.       )
    
25.       (setq p (caaar el1))
    
26.       (foreach x el1
    
27.         (foreach d x
    
28.           (setq        el  (entget (cadr d))
    
29.                 p10 (cdr (assoc 10 el))
    
30.           )
    
31.           (entmod (subst
    
32.                     (cons 10 (list (car p10) (cadr p)))
    
33.                     (assoc 10 el)
    
34.                     el
    
35.                   )
    
36.           )
    
37.         )
    
38.         (setq p        (mapcar
    
39.                   '-
    
40.                   p
    
41.                   (list 0. vy 0.)
    
42.                 )
    
43.         )
    
44.       )
    
45.       (setq p (caaar el2))
    
46.       (foreach x el2
    
47.         (foreach d x
    
48.           (setq        el  (entget (cadr d))
    
49.                 p10 (cdr (assoc 10 el))
    
50.           )
    
51.           (entmod (subst
    
52.                     (cons 10
    
53.                           (list (car p) (cadr p10))
    
54. 
    
55.                     )
    
56.                     (assoc 10 el)
    
57.                     el
    
58.                   )
    
59.           )
    
60.         )
    
61.         (setq p        (mapcar
    
62.                   '+
    
63.                   (list vx 0. 0.)
    
64.                   p
    
65.                 )
    
66.         )
    
67.       )
    
68.       (command ".undo" "end")
    
69.     )
    
70.   )
    
71.   (princ)
    
72. )
    
73. (princ "\n*** Start command with Altext ***")
    
74. (princ)
    

<br /> ;;; made by eachy, coolzhb modified [[url]www.xdcad.net[/url]]!<br /> ;;(load "sortent.VLX")<br /> (defun c:altext        (/ ss vy vx ssl i e el dl1 el1 el2 p10)<br />   (if (setq ss (ssget '((0 . "text")))<br />             vy (getdist "\nY 向文字间距：")<br />             vx (getdist "\nX 向文字间距: ")<br />       )<br />     (progn<br />       (command ".undo" "be")<br />       (setq ssl        (sslength ss)<br />             i        -1<br />       )<br />       (repeat ssl<br />         (setq e          (ssname ss (setq i (1+ i)))<br />               el  (entget e)<br />               p          (cdr (assoc 10 el))<br />               dl1 (cons (list p e) dl1)<br />         )<br />       )<br />       (setq el1        ([URL=http://www.xdcad.net/forum/showthread.php?postid=1609825#post1609825][color=blue][u]ea:sort_entity[/u][/color][/URL] dl1 0 1 (abs (/ vy 2.)))<br />             el2        ([URL=http://www.xdcad.net/forum/showthread.php?postid=1609825#post1609825][color=blue][u]ea:sort_entity[/u][/color][/URL]  dl1 1 1 (abs (/ vx 2.)))<br />       )<br />       (setq p (caaar el1))<br />       (foreach x el1<br />         (foreach d x<br />           (setq        el  (entget (cadr d))<br />                 p10 (cdr (assoc 10 el))<br />           )<br />           (entmod (subst<br />                     (cons 10 (list (car p10) (cadr p)))<br />                     (assoc 10 el)<br />                     el<br />                   )<br />           )<br />         )<br />         (setq p        (mapcar<br />                   '-<br />                   p<br />                   (list 0. vy 0.)<br />                 )<br />         )<br />       )<br />       (setq p (caaar el2))<br />       (foreach x el2<br />         (foreach d x<br />           (setq        el  (entget (cadr d))<br />                 p10 (cdr (assoc 10 el))<br />           )<br />           (entmod (subst<br />                     (cons 10<br />                           (list (car p) (cadr p10))<br /> <br />                     )<br />                     (assoc 10 el)<br />                     el<br />                   )<br />           )<br />         )<br />         (setq p        (mapcar<br />                   '+<br />                   (list vx 0. 0.)<br />                   p<br />                 )<br />         )<br />       )<br />       (command ".undo" "end")<br />     )<br />   )<br />   (princ)<br /> )<br /> (princ "\n*** Start command with Altext ***")<br /> (princ)<br />

coolzhb

谢谢版主的好程序，我就算拿aldim改了改！

eachy

最初由 coolzhb 发布
[B]谢谢版主的好程序，我就算拿aldim改了改！ [/B]

程序还有一个不足，对首尾含空格的文字没有处理

雨箭风刀

保留空格合理还是不保留合理？

coolzhb

最初由 雨箭风刀 发布
[B]保留空格合理还是不保留合理？ [/B]

我也不找到eachy版主的意思，我估计是保留，但是外观看起来还是对齐的，如果不保留，那程序很好改的！

xyp1964

空格应该保留，只是觉得对齐和行间距应该用两个程序分别来实现。