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

admin

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

复制代码