[LISP函数]：绘制Line

eachy

2. 
   
3. ;;======================================================================
   
4. ;;绘制Line
   
5. (defun xd-mkline (p1 p2)
   
6.   (if (setq ent        (entmakex (list        '(0 . "LINE")
   
7.                                 '(100 . "AcDbEntity")
   
8.                                 '(100 . "AcDbLine")
   
9.                                 (cons 10 p1)
   
10.                                 (cons 11 p2)
    
11.                                 '(210 0. 0. 1.)
    
12.                           )
    
13.                 )
    
14.       )
    
15.     ent
    
16.   )
    
17. )
    
18. ;;obj ModelSpace Collection, PaperSpace Collection, Block
    
19. (defun xd-addline (obj startpoint endpoint)
    
20.   (vla-addline obj (vlax-3d-point startpoint) (vlax-3d-point endpoint))
    
21. )

<br /> ;;======================================================================<br /> ;;绘制Line<br /> (defun xd-mkline (p1 p2)<br />   (if (setq ent        (entmakex (list        '(0 . "LINE")<br />                                 '(100 . "AcDbEntity")<br />                                 '(100 . "AcDbLine")<br />                                 (cons 10 p1)<br />                                 (cons 11 p2)<br />                                 '(210 0. 0. 1.)<br />                           )<br />                 )<br />       )<br />     ent<br />   )<br /> )<br /> ;;obj ModelSpace Collection, PaperSpace Collection, Block<br /> (defun xd-addline (obj startpoint endpoint)<br />   (vla-addline obj (vlax-3d-point startpoint) (vlax-3d-point endpoint))<br /> )