[LISP函数]：绘制Circle

eachy

2. 
   
3. ;;绘制Circle
   
4. (defun xd-mkcircle (p r / ent)
   
5.   (if (setq ent        (entmakex (list        '(0 . "CIRCLE")
   
6.                                 '(100 . "AcDbEntity")
   
7.                                 '(100 . "ACDbCircle")
   
8.                                 (cons 10 p)
   
9.                                 (cons 40 r)
   
10.                                 '(210 0. 0. 1.)
    
11.                           )
    
12.                 )
    
13.       )
    
14.     ent
    
15.   )
    
16. )
    
17. ;;obj ModelSpace Collection, PaperSpace Collection, Block
    
18. ;;p centerpoint
    
19. ;;r radius
    
20. ;;Return: Circle Object
    
21. (defun xd-addcircle (obj p r)
    
22.   (vla-addcircle obj (vlax-3d-point p) r)
    
23. )

<br /> ;;绘制Circle<br /> (defun xd-mkcircle (p r / ent)<br />   (if (setq ent        (entmakex (list        '(0 . "CIRCLE")<br />                                 '(100 . "AcDbEntity")<br />                                 '(100 . "ACDbCircle")<br />                                 (cons 10 p)<br />                                 (cons 40 r)<br />                                 '(210 0. 0. 1.)<br />                           )<br />                 )<br />       )<br />     ent<br />   )<br /> )<br /> ;;obj ModelSpace Collection, PaperSpace Collection, Block<br /> ;;p centerpoint<br /> ;;r radius<br /> ;;Return: Circle Object<br /> (defun xd-addcircle (obj p r)<br />   (vla-addcircle obj (vlax-3d-point p) r)<br /> )