修改单行文字组成的多行文字的间距-向量和xdrx_entity_moveStretchPoint的使用

XDSoft

程序稍加修改就可以处理多行，每行上由多个文字实体组成的（比如中英文混排）的多行文字的间距。

1. (defun c:tt ()
   
2.   (if (and
   
3.         (setq dis (getreal "\n行距<退出>:"))
   
4.         (setq ss (ssget '((0 . "TEXT"))))
   
5.       )
   
6.     (progn
   
7.       (XD::Begin)
   
8.       (setq vdis (list 0 (- (abs dis)) 0) ;;向下移动距离向量
   
9.             entl (XD::Pickset:TableSort ss 0 3 '> '<)
   
10.       )                                       ; 把你选的文字实体从上到下拍好序了。
    
11.       (setq e (caar entl)
    
12.             box (xdrx_entity_box e)
    
13.             pj1 (car box)              ;;第一行实体的左下点，右下点作为基线
    
14.             pj2 (cadr box)
    
15.       )
    
16.       (foreach n (cdr entl)               ; 从第二行文字开始处理
    
17.         (setq e (car n))               ; 每行的第一个文字，本程序只处理第一列
    
18.         (setq box (xdrx_entity_box e)
    
19.               p1 (car box)               ; 当前行文字左下点
    
20.               p4 (last box)               ; 当前行文字左上点
    
21.               dis (xdrx_point_dist2Line p4 pj1 pj2) ;;当前行文字顶边到上行文字下边的垂直距离(有正负)
    
22.               v_dis (list 0  dis 0)  ;;文字先和上行文字相贴，然后再移动夹点，距离向量为间距
    
23.               gap (mapcar '+ v_dis vdis)
    
24.         )
    
25.         (xdrx_entity_moveStretchPoint e gap 0);;移动文字夹点
    
26.         (setq box (xdrx_entity_box e)
    
27.               pj1 (car box)  ;;当前行变成基行，供下行文字参考
    
28.               pj2 (cadr box)
    
29.         )
    
30.       )
    
31.       (XD::End)
    
32.     )
    
33.   )
    
34.   (princ)
    
35. )

(defun c:tt ()<br />   (if (and<br />         (setq dis (getreal "\n行距<退出>:"))<br />         (setq ss (ssget '((0 . "TEXT"))))<br />       )<br />     (progn<br />       (XD::Begin)<br />       (setq vdis (list 0 (- (abs dis)) 0) ;;向下移动距离向量<br />             entl (XD::Pickset:TableSort ss 0 3 '> '<)<br />       )                                       ; 把你选的文字实体从上到下拍好序了。<br />       (setq e (caar entl)<br />             box (xdrx_entity_box e)<br />             pj1 (car box)              ;;第一行实体的左下点，右下点作为基线<br />             pj2 (cadr box)<br />       )<br />       (foreach n (cdr entl)               ; 从第二行文字开始处理<br />         (setq e (car n))               ; 每行的第一个文字，本程序只处理第一列<br />         (setq box (xdrx_entity_box e)<br />               p1 (car box)               ; 当前行文字左下点<br />               p4 (last box)               ; 当前行文字左上点<br />               dis (xdrx_point_dist2Line p4 pj1 pj2) ;;当前行文字顶边到上行文字下边的垂直距离(有正负)<br />               v_dis (list 0  dis 0)  ;;文字先和上行文字相贴，然后再移动夹点，距离向量为间距<br />               gap (mapcar '+ v_dis vdis)<br />         )<br />         (xdrx_entity_moveStretchPoint e gap 0);;移动文字夹点<br />         (setq box (xdrx_entity_box e)<br />               pj1 (car box)  ;;当前行变成基行，供下行文字参考<br />               pj2 (cadr box)<br />         )<br />       )<br />       (XD::End)<br />     )<br />   )<br />   (princ)<br /> )