【工具】绘制同心圆

marting

1. (defun c:xdtb_drtcen (/ pt v r x)
   
2.   (xdrx-begin)
   
3.   (xdrx-sysvar-push '("osmode" 545))
   
4.   (setq pt 1)
   
5.   (if (and (/= ""
   
6.                (setq v
   
7.                       (getstring (xdrx-prompt "\n输入同心圆半径(逗号分隔)<退出>:")
   
8.                       )
   
9.                )
   
10.            )
    
11.            (not (xdrx-string-regexps "[^,0-9]+" v))
    
12.            (setq r (xdrx-string-split v ","))
    
13.            (setq pt (getpoint "\n插入点<退出>:"))
    
14.       )
    
15.     (progn
    
16.            (mapcar '(lambda (x) (xdrx-circle-make pt (atof x)))
    
17.                    (vl-sort r '(lambda (x y) (xdrx-string-logical< x y)))
    
18.            )
    
19.            (xdrx-end)
    
20.     )
    
21.     (and pt (xdrx-prompt "\n数据格式有误，重新输入."))
    
22.   )
    
23.   (xdrx-end)
    
24.   (princ)
    
25. )
    
26. 
    

(defun c:xdtb_drtcen (/ pt v r x)<br />   (xdrx-begin)<br />   (xdrx-sysvar-push '("osmode" 545))<br />   (setq pt 1)<br />   (if (and (/= ""<br />                (setq v<br />                       (getstring (xdrx-prompt "\n输入同心圆半径(逗号分隔)<退出>:")<br />                       )<br />                )<br />            )<br />            (not (xdrx-string-regexps "[^,0-9]+" v))<br />            (setq r (xdrx-string-split v ","))<br />            (setq pt (getpoint "\n插入点<退出>:"))<br />       )<br />     (progn <br />            (mapcar '(lambda (x) (xdrx-circle-make pt (atof x)))<br />                    (vl-sort r '(lambda (x y) (xdrx-string-logical< x y)))<br />            )<br />            (xdrx-end)<br />     )<br />     (and pt (xdrx-prompt "\n数据格式有误，重新输入."))<br />   )<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />