【K:DynDrawCircle】Grread动态绘制圆并返回图元名称

kucha007

2. ;动态绘制圆@Kucha
   
3. (defun K:DynDrawCircle (StaPt Col / K:GrvecsCircle Code TgtKey EntNam)
   
4.   ;grdraw绘制近似圆@LEEMAC
   
5.   (defun K:GrvecsCircle (Cen Rad Col / ang inc)
   
6.     (setq inc (/ (+ pi pi) 24.0)
   
7.           ang 0.0
   
8.     )
   
9.     (repeat 24 (grdraw (polar Cen ang Rad) (polar Cen (setq ang (+ ang inc)) Rad) Col))
   
10.   )
    
11.   (while
    
12.     (progn
    
13.       (princ "\n→请指定半径<空格退出>: ")
    
14.       (while (and (setq Code (grread T (+ 1 4 8))) (eq (car Code) 5))
    
15.           (redraw)(K:GrvecsCircle StaPt (distance StaPt (cadr Code)) Col)
    
16.       );显示预览
    
17.       (setq TgtKey (cadr Code))
    
18.       (cond
    
19.         ((eq (car Code) 3);点选
    
20.             (redraw)
    
21.             (setq EntNam (entmakeX (list '(0 . "CIRCLE") (cons 10 (trans StaPt 1 0)) (cons 40 (distance StaPt (cadr Code))))))
    
22.             Nil ;退出循环
    
23.         )
    
24.         (T Nil)
    
25.       )
    
26.     )
    
27.   )
    
28.   EntNam
    
29. )

;动态绘制圆@Kucha<br /> (defun K:DynDrawCircle (StaPt Col / K:GrvecsCircle Code TgtKey EntNam) <br />   ;grdraw绘制近似圆@LEEMAC<br />   (defun K:GrvecsCircle (Cen Rad Col / ang inc) <br />     (setq inc (/ (+ pi pi) 24.0)<br />           ang 0.0<br />     )<br />     (repeat 24 (grdraw (polar Cen ang Rad) (polar Cen (setq ang (+ ang inc)) Rad) Col))<br />   )<br />   (while <br />     (progn<br />       (princ "\n→请指定半径<空格退出>: ")<br />       (while (and (setq Code (grread T (+ 1 4 8))) (eq (car Code) 5)) <br />           (redraw)(K:GrvecsCircle StaPt (distance StaPt (cadr Code)) Col)<br />       );显示预览<br />       (setq TgtKey (cadr Code))<br />       (cond<br />         ((eq (car Code) 3);点选<br />             (redraw)<br />             (setq EntNam (entmakeX (list '(0 . "CIRCLE") (cons 10 (trans StaPt 1 0)) (cons 40 (distance StaPt (cadr Code))))))<br />             Nil ;退出循环<br />         )<br />         (T Nil)<br />       )<br />     )<br />   )<br />   EntNam<br /> )

用法：

1. (K:DynDrawCircle (getpoint) 1)

(K:DynDrawCircle (getpoint) 1)

magicheno

感谢大佬分享~