文字对齐源码

whuluqw

最近在找文字对齐的程序，在明经看到这个帖还不错。但是原帖代码在文字有转角的时候仍然按照水平方向对齐，而不是沿着文字方向，于是修改一下考虑了文字角度。选择对象前还加了个if语句，如果没选择对象则自动退出。没有动图软件，放两张图片，需要的自行试用。原帖地址：http://bbs.mjtd.com/forum.php?mo ... 085&fromuid=7328399

2. [code=lisp];;******************************************************
   
3. ;;                  文字对齐
   
4. ;;******************************************************
   
5. ;;源码来源明经社区，最终由whuluqw修改 2020.11.01
   
6. (defun c:wzdq (/ ss ent amode obj i ii p px jd jdx jdy ang)
   
7.   (setvar "cmdecho" 0)
   
8.   ;;-------------------------
   
9.   (defun getdxf (ent ii)
   
10.     (if (= (type ent) 'ename)
    
11.       (setq ent (entget ent))
    
12.     )
    
13.     (cdr (assoc ii ent))
    
14.   )
    
15.   ;;-------------------------
    
16.   (defun ch_dxf (en num ch / old_num new_num ent)
    
17.     (if
    
18.       (setq ent     (entget en)
    
19.             new_num (cons num ch)
    
20.             old_num (assoc num ent)
    
21.       )
    
22.       (entmod (subst new_num old_num ent))
    
23.       (entmod (reverse (cons new_num (reverse ent))))
    
24.     )
    
25.   )
    
26.   ;;-------------------------
    
27.   (princ "\n选择要对齐的文字<退出>：")
    
28.   (if (setq ss (ssget '((0 . "TEXT"))))
    
29.     (progn
    
30.       (setq p (getpoint "指定对齐基点:"))
    
31.       (setq px (car p)
    
32.             py (cadr p)
    
33.       );;基点x和y坐标
    
34.       (initget "L C R")
    
35.       (setq amode (getkword "\n选择对齐方式[左(L)/中(C)/右(R)]<左>:"))
    
36.       (if (not amode)
    
37.         (setq amode "L")
    
38.       )
    
39.       (cond
    
40.         ((= amode "L")
    
41.          (setq ii 10)
    
42.          (command "justifytext" ss "" "L")
    
43.         )
    
44.         ((= amode "C")
    
45.          (setq ii 11)
    
46.          (command "justifytext" ss "" "C")
    
47.         )
    
48.         ((= amode "R")
    
49.          (setq ii 11)
    
50.          (command "justifytext" ss "" "R")
    
51.         )
    
52.       )
    
53.       (setq i 0)
    
54.       (while (< i (sslength ss))
    
55.         (setq ent (ssname ss i))
    
56.         (setq jd (getdxf ent ii))
    
57.         (setq jdx (car jd)
    
58.               jdy (cadr jd)
    
59.         )
    
60.         (princ )
    
61.         ;;;;;;;;;;;;;;;以下为添加代码 by whuluqw
    
62.         (setq ang (getdxf ent 50)) ;;获取文字转角
    
63.         (setq dx  (- jdx px)
    
64.               dy  (- jdy py)
    
65.         ) ;;指定对齐点和文字基点距离
    
66.         (setq dx2 (+ (* dx (cos ang)) (* dy (sin ang)))
    
67.               dy2 (- (* dy (cos ang)) (* dx (sin ang)))
    
68.         ) ;;求移动距离
    
69.         (setq newx (- jdx (* dx2 (cos ang)))
    
70.               newy (- jdy (* dx2 (sin ang)))
    
71.         )
    
72.         ;;;;;;;;;;;;;;以上为添加代码
    
73.         (setq newjd (list newx newy))
    
74.         (apply '(lambda (x) (ch_dxf x ii newjd)) (list ent))
    
75.         ;(vl-cmdf "_move" (ssname ss i) "" "non" jd "non" (list px jdy))
    
76.         (setq i (+ i 1))
    
77.       )
    
78.     )
    
79.   )
    
80.   (princ)
    
81. )

[code=lisp];;****************************************************** <br /> ;;                  文字对齐 <br /> ;;****************************************************** <br /> ;;源码来源明经社区，最终由whuluqw修改 2020.11.01<br /> (defun c:wzdq (/ ss ent amode obj i ii p px jd jdx jdy ang) <br />   (setvar "cmdecho" 0)<br />   ;;-------------------------<br />   (defun getdxf (ent ii) <br />     (if (= (type ent) 'ename) <br />       (setq ent (entget ent))<br />     )<br />     (cdr (assoc ii ent))<br />   )<br />   ;;-------------------------<br />   (defun ch_dxf (en num ch / old_num new_num ent) <br />     (if <br />       (setq ent     (entget en)<br />             new_num (cons num ch)<br />             old_num (assoc num ent)<br />       )<br />       (entmod (subst new_num old_num ent))<br />       (entmod (reverse (cons new_num (reverse ent))))<br />     )<br />   )<br />   ;;-------------------------<br />   (princ "\n选择要对齐的文字<退出>：")<br />   (if (setq ss (ssget '((0 . "TEXT")))) <br />     (progn <br />       (setq p (getpoint "指定对齐基点:"))<br />       (setq px (car p)<br />             py (cadr p)<br />       );;基点x和y坐标<br />       (initget "L C R")<br />       (setq amode (getkword "\n选择对齐方式[左(L)/中(C)/右(R)]<左>:")) <br />       (if (not amode) <br />         (setq amode "L")<br />       )<br />       (cond <br />         ((= amode "L")<br />          (setq ii 10)<br />          (command "justifytext" ss "" "L")<br />         )<br />         ((= amode "C")<br />          (setq ii 11)<br />          (command "justifytext" ss "" "C")<br />         )<br />         ((= amode "R")<br />          (setq ii 11)<br />          (command "justifytext" ss "" "R")<br />         )<br />       )<br />       (setq i 0)<br />       (while (< i (sslength ss)) <br />         (setq ent (ssname ss i))<br />         (setq jd (getdxf ent ii))<br />         (setq jdx (car jd)<br />               jdy (cadr jd)<br />         )<br />         (princ )<br />         ;;;;;;;;;;;;;;;以下为添加代码 by whuluqw<br />         (setq ang (getdxf ent 50)) ;;获取文字转角<br />         (setq dx  (- jdx px)<br />               dy  (- jdy py)<br />         ) ;;指定对齐点和文字基点距离<br />         (setq dx2 (+ (* dx (cos ang)) (* dy (sin ang)))<br />               dy2 (- (* dy (cos ang)) (* dx (sin ang)))<br />         ) ;;求移动距离<br />         (setq newx (- jdx (* dx2 (cos ang)))<br />               newy (- jdy (* dx2 (sin ang)))<br />         )<br />         ;;;;;;;;;;;;;;以上为添加代码<br />         (setq newjd (list newx newy))<br />         (apply '(lambda (x) (ch_dxf x ii newjd)) (list ent))<br />         ;(vl-cmdf "_move" (ssname ss i) "" "non" jd "non" (list px jdy))<br />         (setq i (+ i 1))<br />       )<br />     )<br />   )<br />   (princ)<br /> )

[/code]

vitalgg

那个梁图文字，PKPM下带的那个lsp 程序，可以实现左对齐而不改变文字位置。
但你这个梁图应该有详细点的需求。
比如： 集中标注左对齐， 原位标注，梁下中对齐，梁上，根据支座相对位置确定左或右对齐。

3395426498

我有一份图纸，分解后，文字移位了，用CAD的 justifytext 命令选择左对齐，只能在文字当前位置固定
如何能够批量实现文字左对齐，如果有插件，可以付费，联系QQ3395426498

whuluqw

guankuiwu 发表于 2021-2-8 22:50
不错，如果　整合均布文字间距就更好

调整间距应该有调整间距的程序，我觉得不是每次对齐都要调整间距吧

panliang9

谢谢楼主分享

999999

谢谢楼主分享

czb203

谢谢楼主分享

sdbaijiao

谢谢分享。。。。

f4800

多谢分享！！！！

cowboy110

感谢分享！！！

669423907

谢谢楼主分享好程序

cxjcqu

程序还是有点欠缺，如果选中的文字中有多种角度的文字，就不能对齐了，所以除了设置基点外，还应设置对齐的参照角度~谢谢

松树石头哥

感谢楼主分享！！！