【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. )
30. (K:DynDrawCircle (getpoint) 1)

复制代码