调单行文字的行间距

Lispboy

调单行文字的行间距

1. (defun c:xdtb_txtmodintv (/ intv ss box xdir ydir baseline i p1 dist mat mat1 mat2 ents)       
   
2.   (if (not #xd_var_global_gap)
   
3.     (setq #xd_var_global_gap 2.0)
   
4.   )
   
5.   (if (setq intv
   
6.              (getreal (xdrx_prompt "\n行间距<" #xd_var_global_gap ">:" t)
   
7.              )
   
8.       )
   
9.     (setq #xd_var_global_gap intv)
   
10.   )
    
11.   (if (and (xdrx_initssget "\n请选取修改行距的大段文字<退出>:")
    
12.            (setq ss (xdrx_ssget '((0 . "text"))))
    
13.            (setq box (xdrx_entity_box ss))
    
14.       )
    
15.     (progn (xdrx_begin)
    
16.            (setq
    
17.              tol (/ (xdrx_getpropertyvalue (ssname ss 0) "textheight") 2.0)
    
18.            )
    
19.            (xdrx_sysvar_push (list "tolEqualPoint" tol))
    
20.            (setq ents (xd::pickset:tablesort ss 0 3 '> '<))
    
21.            (if (> (length ents) 1)
    
22.              (progn (setq intv           (* #xd_var_global_gap (xd::var:getdrawratio))
    
23.                           xdir           (cadr (xdrx_entity_getecs (caar ents)))
    
24.                           ydir           (xdrx_vector_perpvector xdir)
    
25.                           ydir           (xdrx_vector_negate ydir)
    
26.                           box           (xdrx_entity_box (car ents) xdir)
    
27.                           baseline (list (car box) (cadr box))
    
28.                           i           0
    
29.                     )
    
30.                     (mapcar '(lambda (x)
    
31.                                (setq box  (xdrx_entity_box x xdir)
    
32.                                      p1          (last box)
    
33.                                      dist (apply 'xdrx_point_dist2line (cons p1 baseline))
    
34.                                      mat1 (xdrx_matrix_settranslation
    
35.                                             (xdrx_vector_product ydir #xd_var_global_gap)
    
36.                                           )
    
37.                                      mat2 (xdrx_matrix_settranslation
    
38.                                             (xdrx_vector_product ydir (- dist))
    
39.                                           )
    
40.                                      mat  (xdrx_matrix_product mat1 mat2)
    
41.                                )
    
42.                                (xdrx_entity_transform x mat)
    
43.                                (setq box      (xdrx_entity_box x xdir)
    
44.                                      baseline (list (car box) (cadr box))
    
45.                                )
    
46.                              )
    
47.                             (cdr ents)
    
48.                     )
    
49.              )
    
50.              (progn (prompt "\n只选择一行文字，不能进行修改行距操作..."))
    
51.            )
    
52.            (xdrx_sysvar_pop)
    
53.            (xdrx_end)
    
54.     )
    
55.   )
    
56.   (princ)
    
57. )
    

(defun c:xdtb_txtmodintv (/ intv ss box xdir ydir baseline i p1 dist mat mat1 mat2 ents)        <br />   (if (not #xd_var_global_gap)<br />     (setq #xd_var_global_gap 2.0)<br />   )<br />   (if (setq intv<br />              (getreal (xdrx_prompt "\n行间距<" #xd_var_global_gap ">:" t)<br />              )<br />       )<br />     (setq #xd_var_global_gap intv)<br />   )<br />   (if (and (xdrx_initssget "\n请选取修改行距的大段文字<退出>:")<br />            (setq ss (xdrx_ssget '((0 . "text"))))<br />            (setq box (xdrx_entity_box ss))<br />       )<br />     (progn (xdrx_begin)<br />            (setq<br />              tol (/ (xdrx_getpropertyvalue (ssname ss 0) "textheight") 2.0)<br />            )<br />            (xdrx_sysvar_push (list "tolEqualPoint" tol))<br />            (setq ents (xd::pickset:tablesort ss 0 3 '> '<))<br />            (if (> (length ents) 1)<br />              (progn (setq intv           (* #xd_var_global_gap (xd::var:getdrawratio))<br />                           xdir           (cadr (xdrx_entity_getecs (caar ents)))<br />                           ydir           (xdrx_vector_perpvector xdir)<br />                           ydir           (xdrx_vector_negate ydir)<br />                           box           (xdrx_entity_box (car ents) xdir)<br />                           baseline (list (car box) (cadr box))<br />                           i           0<br />                     )<br />                     (mapcar '(lambda (x)<br />                                (setq box  (xdrx_entity_box x xdir)<br />                                      p1          (last box)<br />                                      dist (apply 'xdrx_point_dist2line (cons p1 baseline))<br />                                      mat1 (xdrx_matrix_settranslation<br />                                             (xdrx_vector_product ydir #xd_var_global_gap)<br />                                           )<br />                                      mat2 (xdrx_matrix_settranslation<br />                                             (xdrx_vector_product ydir (- dist))<br />                                           )<br />                                      mat  (xdrx_matrix_product mat1 mat2)<br />                                )<br />                                (xdrx_entity_transform x mat)<br />                                (setq box      (xdrx_entity_box x xdir)<br />                                      baseline (list (car box) (cadr box))<br />                                )<br />                              )<br />                             (cdr ents)<br />                     )<br />              )<br />              (progn (prompt "\n只选择一行文字，不能进行修改行距操作..."))<br />            )<br />            (xdrx_sysvar_pop)<br />            (xdrx_end)<br />     )<br />   )<br />   (princ)<br /> )<br />

相信自己666

厉害厉害，高手啊

myairen

dddddddddddddddddddddddddddddddddddddddd好

429014673

**太多

59222256

想法很重要

wskaibj

厉害厉害，试下看