你说的话不太好懂，大概是这样子，你试试看吧
(defun c:hcf (/ a di n p1 r r1 rr)
(setq r (getreal "\n小圆半径:") rr (getreal "\n大圆半径:")
di (getreal "\n两圆的距离:"))
(setq p1 (getpoint "小圆的圆心:") n (getint "圆的个数:"))
(setq a (/ (- rr r) (- n 1)))
(command "_.circle" p1 r)
(repeat (- n 1)
(setq r1 (+ r a) p1 (polar p1 0 (/ di (- n 1))) r r1)
(command "_.circle" p1 r1)
)
)
内容全部来源于网络收集，如有侵权，请联系网站删除！