wawbt 发表于 2005-4-18 19:07:00

如何画批量的圆？

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

didini 发表于 2005-4-18 19:22:00

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

leihao 发表于 2005-4-19 00:02:00

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

yxp 发表于 2005-4-19 00:21:00

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

didini 发表于 2005-4-19 22:11:00




花了好久才写完的，惭愧，刚刚学习，还不怎么精通，看看满不满足你的要求？


(defun c:yuan (/ i j pt r )<BR>       (setvar "cmdecho" 0)<BR>       (setq i 1)<BR>       (while (= i 1)<BR>                       (setq r (getdist "\n请选择半径长度: "))<BR>                       (if (/= r nil)<BR>                                       (progn<BR>                                                       (setq j 1)<BR>                                                       (while (= j 1)<BR>                                                                       (setq pt (getpoint "\n请选择圆心: "))<BR>                                                                       (if pt<BR>                                                                                       (command "circle" pt r)<BR>                               (setq j 0)<BR>                               )<BR>       )<BR>        )<BR>                                       (setq i 0)<BR>                                       )<BR>               )<BR>               (princ)<BR>       )

wawbt 发表于 2005-5-7 19:43:00

<A name=24839><FONT color=#000066><B>didini</B></FONT></A>：


               感谢了！你的程序可用！！
页: [1]
查看完整版本: 如何画批量的圆？