单行文字对齐

幽兰聆雨

之前学AutoLisp的时候搞的小插件，转C#，分享一下。


功能：选择单行文字，输入间距/回车，横/竖向对齐文字。

2. ;---------------------------------------------------------------------;
   
3. ;已完成，勿动(-_-!)
   
4. ;根据参数返回点列表按某一坐标轴排序，ordor=1为降序，=0为升序
   
5. (defun pzj:sort(ptlst axis ordor / tmp)
   
6.   (setq tmp
   
7.     (cond
   
8.       ((= axis "x") (vl-sort ptlst '(lambda(a b) (< (car a) (car b)))))
   
9.       ((= axis "y") (vl-sort ptlst '(lambda(a b) (< (cadr a) (cadr b)))))
   
10.       ((= axis "z") (vl-sort ptlst '(lambda(a b) (< (caddr a) (caddr b)))))
    
11.     )
    
12.   )
    
13.   (if (= ordor 1)
    
14.     (reverse tmp)
    
15.     tmp
    
16.   )
    
17. )
    
18. ;---------------------------------------------------------------------;
    
19. ;更改文字为左对齐
    
20. (defun pzj:chalignCur(ent)
    
21.   (if (not (= (assoc 72 ent) 0))
    
22.     (setq ent (entmod (subst (cons 72 0) (assoc 72 ent) ent)))
    
23.   )
    
24.   (princ)
    
25. )
    
26. ;---------------------------------------------------------------------;
    
27. ;文字横向对齐
    
28. (defun pzj:dqth(ss dqpt space / i boxpt lst sph)
    
29.   (setq i 0)
    
30.   (repeat (sslength ss)
    
31.     (pzj:chalignCur (entget (ssname ss i)));文字改为左对齐
    
32.     (setq
    
33.       boxpt (textbox (entget (ssname ss i)))
    
34.       lst (cons (list
    
35.       (ssname ss i)
    
36.       (cdr (assoc 10 (entget (ssname ss i))))
    
37.       (1+ (fix (- (nth 0 (nth 1 boxpt)) (nth 0 (nth 0 boxpt)))))
    
38.     )
    
39.       lst
    
40.     );构建((图元名1 对齐点1 字长1) (图元名2 对齐点2 字长2)...)列表
    
41.       lst (vl-sort lst '(lambda(a b) (< (nth 0 (nth 1 a)) (nth 0 (nth 1 b)))));((图元名1 对齐点1 字长1) (图元名2 对齐点2 字长2)...)列表按x轴排序，升序
    
42.     )
    
43.     (setq i (1+ i))
    
44.   )
    
45.   (setq sph 0)
    
46.   (foreach each lst
    
47.     (if (= space nil)
    
48.       (vla-move (vlax-ename->vla-object (nth 0 each)) (vlax-3d-point (nth 1 each)) (vlax-3d-point (list (car (nth 1 each)) (cadr dqpt) (caddr (nth 1 each)))))
    
49.       (progn
    
50.         (vla-move (vlax-ename->vla-object (nth 0 each)) (vlax-3d-point (nth 1 each)) (vlax-3d-point (list (+ (car dqpt) sph) (cadr dqpt) (caddr dqpt))))
    
51.   (setq sph (+ (+ (nth 2 each) space) sph))
    
52.       )
    
53.     )
    
54.   )
    
55.   (princ)
    
56. )
    
57. ;---------------------------------------------------------------------;
    
58. ;文字纵向对齐
    
59. (defun pzj:dqts(ss dqpt space / i boxpt lst spz)
    
60.   (setq i 0)
    
61.   (repeat (sslength ss)
    
62.     (pzj:chalignCur (entget (ssname ss i)));文字改为左对齐
    
63.     (setq
    
64.       boxpt (textbox (entget (ssname ss i)))
    
65.       lst (cons (list
    
66.       (ssname ss i)
    
67.       (cdr (assoc 10 (entget (ssname ss i))))
    
68.       (cdr (assoc 40 (entget (ssname ss i))))
    
69.     )
    
70.       lst
    
71.     );构建((图元名1 对齐点1 字高1) (图元名2 对齐点2 字高2)...)列表
    
72.       lst (vl-sort lst '(lambda(a b) (> (nth 1 (nth 1 a)) (nth 1 (nth 1 b)))));((图元名1 对齐点1 字高1) (图元名2 对齐点2 字高2)...)列表按轴排序，升序(x轴m=0、y轴m=1、z轴m=2)
    
73.     )
    
74.     (setq i (1+ i))
    
75.   )
    
76.   
    
77.   (setq spz 0)
    
78.   (foreach each lst
    
79.     (if (= space nil)
    
80.       (vla-move (vlax-ename->vla-object (nth 0 each)) (vlax-3d-point (nth 1 each)) (vlax-3d-point (list (car dqpt) (cadr (nth 1 each)) (caddr (nth 1 each)))))
    
81.       (progn
    
82.         (vla-move (vlax-ename->vla-object (nth 0 each)) (vlax-3d-point (nth 1 each)) (vlax-3d-point (list (car dqpt) (- (cadr dqpt) spz) (caddr dqpt))))
    
83.         (setq spz (+ (+ (nth 2 each) space) spz))
    
84.       )
    
85.     )
    
86.   )
    
87. )
    
88. ;---------------------------------------------------------------------;
    
89. ;执行函数
    
90. (vl-load-com)
    
91. (defun c:dq (/ m)
    
92.   (initget "s")
    
93.   (setq m (getkword "(s)竖向对齐/横向对齐："))
    
94.   (if (= m "s")
    
95.     (pzj:dqts (ssget ":L" '((0 . "TEXT"))) (getpoint "\n指定对齐点：") (getreal"\n指定间距:"))
    
96.     (pzj:dqth (ssget ":L" '((0 . "TEXT"))) (getpoint "\n指定对齐点：") (getreal"\n指定间距:"))
    
97.   )
    
98.   (princ)
    
99. )
    
100. ;---------------------------------------------------------------------;

;---------------------------------------------------------------------;<br /> ;已完成，勿动(-_-!)<br /> ;根据参数返回点列表按某一坐标轴排序，ordor=1为降序，=0为升序<br /> (defun pzj:sort(ptlst axis ordor / tmp)<br />   (setq tmp<br />     (cond<br />       ((= axis "x") (vl-sort ptlst '(lambda(a b) (< (car a) (car b)))))<br />       ((= axis "y") (vl-sort ptlst '(lambda(a b) (< (cadr a) (cadr b)))))<br />       ((= axis "z") (vl-sort ptlst '(lambda(a b) (< (caddr a) (caddr b)))))<br />     )<br />   )<br />   (if (= ordor 1)<br />     (reverse tmp)<br />     tmp<br />   )<br /> )<br /> ;---------------------------------------------------------------------;<br /> ;更改文字为左对齐<br /> (defun pzj:chalignCur(ent)<br />   (if (not (= (assoc 72 ent) 0))<br />     (setq ent (entmod (subst (cons 72 0) (assoc 72 ent) ent)))<br />   )<br />   (princ)<br /> )<br /> ;---------------------------------------------------------------------;<br /> ;文字横向对齐<br /> (defun pzj:dqth(ss dqpt space / i boxpt lst sph)<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (pzj:chalignCur (entget (ssname ss i)));文字改为左对齐<br />     (setq<br />       boxpt (textbox (entget (ssname ss i)))<br />       lst (cons (list<br />       (ssname ss i)<br />       (cdr (assoc 10 (entget (ssname ss i))))<br />       (1+ (fix (- (nth 0 (nth 1 boxpt)) (nth 0 (nth 0 boxpt)))))<br />     )<br />       lst<br />     );构建((图元名1 对齐点1 字长1) (图元名2 对齐点2 字长2)...)列表<br />       lst (vl-sort lst '(lambda(a b) (< (nth 0 (nth 1 a)) (nth 0 (nth 1 b)))));((图元名1 对齐点1 字长1) (图元名2 对齐点2 字长2)...)列表按x轴排序，升序 <br />     )<br />     (setq i (1+ i))<br />   )<br />   (setq sph 0)<br />   (foreach each lst<br />     (if (= space nil)<br />       (vla-move (vlax-ename->vla-object (nth 0 each)) (vlax-3d-point (nth 1 each)) (vlax-3d-point (list (car (nth 1 each)) (cadr dqpt) (caddr (nth 1 each)))))<br />       (progn<br />         (vla-move (vlax-ename->vla-object (nth 0 each)) (vlax-3d-point (nth 1 each)) (vlax-3d-point (list (+ (car dqpt) sph) (cadr dqpt) (caddr dqpt))))<br />   (setq sph (+ (+ (nth 2 each) space) sph))<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> ;---------------------------------------------------------------------;<br /> ;文字纵向对齐<br /> (defun pzj:dqts(ss dqpt space / i boxpt lst spz)<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (pzj:chalignCur (entget (ssname ss i)));文字改为左对齐<br />     (setq<br />       boxpt (textbox (entget (ssname ss i)))<br />       lst (cons (list<br />       (ssname ss i)<br />       (cdr (assoc 10 (entget (ssname ss i))))<br />       (cdr (assoc 40 (entget (ssname ss i))))<br />     )<br />       lst<br />     );构建((图元名1 对齐点1 字高1) (图元名2 对齐点2 字高2)...)列表<br />       lst (vl-sort lst '(lambda(a b) (> (nth 1 (nth 1 a)) (nth 1 (nth 1 b)))));((图元名1 对齐点1 字高1) (图元名2 对齐点2 字高2)...)列表按轴排序，升序(x轴m=0、y轴m=1、z轴m=2) <br />     )<br />     (setq i (1+ i))<br />   )<br />   <br />   (setq spz 0)<br />   (foreach each lst<br />     (if (= space nil)<br />       (vla-move (vlax-ename->vla-object (nth 0 each)) (vlax-3d-point (nth 1 each)) (vlax-3d-point (list (car dqpt) (cadr (nth 1 each)) (caddr (nth 1 each)))))<br />       (progn<br />         (vla-move (vlax-ename->vla-object (nth 0 each)) (vlax-3d-point (nth 1 each)) (vlax-3d-point (list (car dqpt) (- (cadr dqpt) spz) (caddr dqpt))))<br />         (setq spz (+ (+ (nth 2 each) space) spz))<br />       )<br />     )<br />   )<br /> )<br /> ;---------------------------------------------------------------------;<br /> ;执行函数<br /> (vl-load-com)<br /> (defun c:dq (/ m)<br />   (initget "s")<br />   (setq m (getkword "(s)竖向对齐/横向对齐："))<br />   (if (= m "s")<br />     (pzj:dqts (ssget ":L" '((0 . "TEXT"))) (getpoint "\n指定对齐点：") (getreal"\n指定间距:"))<br />     (pzj:dqth (ssget ":L" '((0 . "TEXT"))) (getpoint "\n指定对齐点：") (getreal"\n指定间距:"))<br />   )<br />   (princ)<br /> )<br /> ;---------------------------------------------------------------------;

lxl217114

谢谢分享，666

gble119

多谢分享，支持源码

p-3-ianlcc

谢谢分享源码～
下载来试试看

MZ_li

谢谢分享，学习

paulpipi

非常厉害，感谢分享

中国梦

好东西，谢谢分享

zhengchuan

非常厉害，感谢分享

taiwanfox

好東西，謝謝分享，感謝!!!

yk1216

好东西，学习了