scrsyan 发表于 2004-2-26 15:21:00

[求助]请帮忙编一个号码球小程序

Student 发表于 2004-2-27 10:25:00

下面的程序已测试通过，供参考:<BR>(defun c:hmq(/ p1 p2 p3 r hm th)<BR>       (setq p1(getpoint "\n起点:"))<BR>       (setq p3(getpoint p1 "放置点:"))<BR>       (setq r(getdist "半径:"))<BR>       (setq hm(getstring "号码:"))<BR>       (if(and p1 p3 r hm)<BR>                       (progn<BR>                                       (setq th 2.0)<BR>                                       (setq p2(polar p3 (+(angle p1 p3) pi) r))<BR>                                       (command "line" p1 p2 "")<BR>                                       (command "circle" p3 r)<BR>                                       (command "text" "j" "m" p3 th 0 hm)<BR>                       )<BR>       )<BR>)<BR>

熊哥哥 发表于 2004-12-27 23:28:00

<b>谢谢</b>
页: [1]
查看完整版本: [求助]请帮忙编一个号码球小程序