使得文字和指定的线平行

iamzhangxs

练习了一个使用文字和指定的线平行的小程序，但是最后的效果是文字按照一定角度切斜，并没有达到所需效果，不知道是哪里出问题

2. ;*****************练习修改文字使得文字和线平行***********************
   
3. (princ "\n请选择文字")
   
4. (defun C:tnt()
   
5.         ;获取文字的最下面两个坐标
   
6.         (setq t1 (entsel))
   
7.         (setq entdata (entget (car t1)))
   
8.         (setq tpy (cdr (assoc 0 entdata)))
   
9.         (if (= tpy "TEXT")
   
10.                 (progn
    
11.                         (setq pp (textbox entdata))
    
12.                         (setq pt1 (car pp))
    
13.                         (setq pt3 (cadr pp))
    
14.                         (setq pt2 (list (car pt3) (cadr pt1)))
    
15.                
    
16.                 )
    
17.         )
    
18.        
    
19.         ;获取需要对齐的直线的坐标line
    
20.         (princ "\n请选择对齐目标的单线")
    
21.         (setq line (entsel))
    
22.         (setq linedata (entget (car line)))
    
23.         (setq lpy (cdr (assoc 0 linedata)))
    
24.         (if (= lpy "LINE")
    
25.                 (progn
    
26.                 (setq ptl1 (cdr (assoc 10 linedata)))   
    
27.                 (setq ptl2 (cdr (assoc 11 linedata)))         
    
28.        
    
29.                        
    
30.                 )
    
31.         )
    
32.         ;用cad命令align来对齐所选直线
    
33.        
    
34. (command "ALIGN" t1 "" pt1 ptl1 pt2 ptl2 "" "N" "") ;不太清楚 "align" 命令的用法，到底应该如何执行呢？
    
35. 
    
36. )
    
37. 
    
38. ;*****************练习修改文字使得文字和线平行***********************

;*****************练习修改文字使得文字和线平行***********************<br /> (princ "\n请选择文字")<br /> (defun C:tnt()<br />         ;获取文字的最下面两个坐标<br />         (setq t1 (entsel))<br />         (setq entdata (entget (car t1)))<br />         (setq tpy (cdr (assoc 0 entdata)))<br />         (if (= tpy "TEXT")<br />                 (progn<br />                         (setq pp (textbox entdata))<br />                         (setq pt1 (car pp))<br />                         (setq pt3 (cadr pp))<br />                         (setq pt2 (list (car pt3) (cadr pt1)))<br />                 <br />                 )<br />         )<br />         <br />         ;获取需要对齐的直线的坐标line<br />         (princ "\n请选择对齐目标的单线")<br />         (setq line (entsel))<br />         (setq linedata (entget (car line)))<br />         (setq lpy (cdr (assoc 0 linedata)))<br />         (if (= lpy "LINE")<br />                 (progn<br />                 (setq ptl1 (cdr (assoc 10 linedata)))   <br />                 (setq ptl2 (cdr (assoc 11 linedata)))          <br />         <br />                         <br />                 )<br />         )<br />         ;用cad命令align来对齐所选直线<br />         <br /> (command "ALIGN" t1 "" pt1 ptl1 pt2 ptl2 "" "N" "") ;不太清楚 "align" 命令的用法，到底应该如何执行呢？<br /> <br /> )<br /> <br /> ;*****************练习修改文字使得文字和线平行***********************

top198

效果有待验证啊