如何画批量的圆？

wawbt

如何画批量的圆？有批量的坐标和已知的半径。若用点画出，怎样把样式点转成圆？

didini

能不能说清楚一些，比如说坐标是怎么标示的？需要选择还是在excel中，等等，而半径是固定不变的还是可以选择变化的！？等等！说清楚具体的实现方法！

leihao

记得借助写字板或EXCEL都可实现吧

yxp

你把你的圆的数据文件传上来，我给你弄个程序。

didini

花了好久才写完的，惭愧，刚刚学习，还不怎么精通，看看满不满足你的要求？ (defun c:yuan (/ i j pt r )
(setvar "cmdecho" 0)
(setq i 1)
(while (= i 1)
(setq r (getdist "\n请选择半径长度: "))
(if (/= r nil)
(progn
(setq j 1)
(while (= j 1)
(setq pt (getpoint "\n请选择圆心: "))
(if pt
(command "circle" pt r)
(setq j 0)
)
)
)
(setq i 0)
)
)
(princ)
)

wawbt

didini： 感谢了！你的程序可用！！