[编程申请]：文字对齐和文字排列的编程申请

fourstone

:a :a :a :a

2. 
   
3. (defun c:wzpl()          ;文字排列
   
4.      (setvar "cmdecho" 0);指令执行过程不回应
   
5.      (setq txt_data (entget (car (entsel ))))
   
6.      (setq pt_data (assoc 10 txt_data));取得代码10的子串列
   
7.      (setq th_data (assoc 40 txt_data));取得代码40的子串列
   
8.      (setq pt  (cdr pt_data));得到插入点pt
   
9.      (setq th  (cdr th_data));得到字高th
   
10.      (setq X (car pt) Y (cadr pt))  ;得到pt的Ｘ，Ｙ坐标
    
11.      (setq Y1 (- Y th ))
    
12.      (setq pt1 (list X Y1))
    
13. 
    
14.      (setq txt_data1 (entget (car (entsel ))));得到排列下的文字实体数据
    
15.      (setq old_pt_data1 (assoc 10 txt_data1));取得代码10的子串列
    
16. 
    
17.      (setq new_pt_data1 (cons 10 pt1))
    
18.      (setq txt_data1 (subst new_pt_data1  old_pt_data1 txt_data1))
    
19.      (entmod txt_data1)
    
20. (princ)
    
21. )

<br /> (defun c:wzpl()          ;文字排列<br />      (setvar "cmdecho" 0);指令执行过程不回应<br />      (setq txt_data (entget (car (entsel ))))<br />      (setq pt_data (assoc 10 txt_data));取得代码10的子串列<br />      (setq th_data (assoc 40 txt_data));取得代码40的子串列<br />      (setq pt  (cdr pt_data));得到插入点pt<br />      (setq th  (cdr th_data));得到字高th<br />      (setq X (car pt) Y (cadr pt))  ;得到pt的Ｘ，Ｙ坐标<br />      (setq Y1 (- Y th ))<br />      (setq pt1 (list X Y1))<br /> <br />      (setq txt_data1 (entget (car (entsel ))));得到排列下的文字实体数据<br />      (setq old_pt_data1 (assoc 10 txt_data1));取得代码10的子串列<br /> <br />      (setq new_pt_data1 (cons 10 pt1))<br />      (setq txt_data1 (subst new_pt_data1  old_pt_data1 txt_data1))<br />      (entmod txt_data1)<br /> (princ)<br /> )

这是一个文字排列的ｌｓｐ。尚在完善中。目前的功能只能对齐两个文字（让文字Ｂ排在文字Ａ的下面），希望哪位高手对天正中的文字对齐命令做出改进。

fourstone

图案说明

XDSoft

晓东工具箱里面有近50个文字工具，其中有“对齐工具”、“调行距工具”等等，去试试，这些工具组合足够做出完美的排版了。

                               
登录/注册后可看大图

                               
登录/注册后可看大图