[求助]：请大虾帮我改一下线性尺寸标注的代码！

zhoujun518

这是我的尺寸标注代码，是对齐方式标注的，但是改不出线性标注的，将70号改成32根本不能用。清哪位大虾帮我改一下。

2. 
   
3.   [FONT=courier new]
   
4. ;;;dim_pt1为起始点,dim_pt2为终点,ctrl_pt为拖曳点
   
5. ;;;调用实例(dim_draw '(1500 1500 0) '(3000 1500 0) '(0 1500 0))
   
6. (defun dim_draw        (dim_pt1 dim_pt2 ctrl_pt /)
   
7.   (entmake
   
8.     (append '((0 . "DIMENSION")
   
9.               (100 . "AcDbEntity")
   
10.               (8 . "0")
    
11.               (100 . "AcDbDimension")
    
12.              )
    
13.             (list (cons 3 (strcat "Dim_" (rtos scale 2 2)))
    
14.                   (cons 10 (trans ctrl_pt 1 0))
    
15.             )
    
16.             '((11 0 0 0)
    
17.               (70 . 33)
    
18.               (1 . "")
    
19.               (100 . "AcDbAlignedDimension")
    
20.              )
    
21.             (list
    
22.               (cons 13 (trans dim_pt1 1 0))
    
23.               (cons 14 (trans dim_pt2 1 0))
    
24.             )
    
25.     )
    
26.   )
    
27. )
    
28. 
    
29. 
    
30.   [/FONT]
    

<br />   [FONT=courier new]<br /> ;;;dim_pt1为起始点,dim_pt2为终点,ctrl_pt为拖曳点<br /> ;;;调用实例(dim_draw '(1500 1500 0) '(3000 1500 0) '(0 1500 0))<br /> (defun dim_draw        (dim_pt1 dim_pt2 ctrl_pt /)<br />   (entmake<br />     (append '((0 . "DIMENSION")<br />               (100 . "AcDbEntity")<br />               (8 . "0")<br />               (100 . "AcDbDimension")<br />              )<br />             (list (cons 3 (strcat "Dim_" (rtos scale 2 2)))<br />                   (cons 10 (trans ctrl_pt 1 0))<br />             )<br />             '((11 0 0 0)<br />               (70 . 33)<br />               (1 . "")<br />               (100 . "AcDbAlignedDimension")<br />              )<br />             (list<br />               (cons 13 (trans dim_pt1 1 0))<br />               (cons 14 (trans dim_pt2 1 0))<br />             )<br />     )<br />   )<br /> )<br /> <br /> <br />   [/FONT]<br />