[LISP函数]：制造Dimalign

eachy

2. 
   
3. ;;制造Dimalign
   
4. ;;d70线性32对齐33; p10基点 p13第一点 p14第二点 d1强制长度值
   
5. (defun xd-MkDimAlign (p1 p2 p3 /)
   
6.   (if (setq ent        (entmake (list '(0 . "DIMENSION")
   
7.                                '(100 . "AcDbEntity")
   
8.                                '(100 . "AcDbDimension")
   
9.                                (cons 10 p3)
   
10.                                '(11 0. 0. 0.)
    
11.                                '(70 . 32)
    
12.                                '(100 . "AcDbAlignedDimension")
    
13.                                (cons 13 p1)
    
14.                                (cons 14 p2)
    
15.                                (cons 50 (angle p1 p2))
    
16.                                '(100 . "AcDbRotatedDimension")
    
17.                          )
    
18.                 )
    
19.       )
    
20.     ent
    
21.   )
    
22. )

<br /> ;;制造Dimalign<br /> ;;d70线性32对齐33; p10基点 p13第一点 p14第二点 d1强制长度值<br /> (defun xd-MkDimAlign (p1 p2 p3 /)<br />   (if (setq ent        (entmake (list '(0 . "DIMENSION")<br />                                '(100 . "AcDbEntity")<br />                                '(100 . "AcDbDimension")<br />                                (cons 10 p3)<br />                                '(11 0. 0. 0.)<br />                                '(70 . 32)<br />                                '(100 . "AcDbAlignedDimension")<br />                                (cons 13 p1)<br />                                (cons 14 p2)<br />                                (cons 50 (angle p1 p2))<br />                                '(100 . "AcDbRotatedDimension")<br />                          )<br />                 )<br />       )<br />     ent<br />   )<br /> )