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

scrsyan

Student

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

熊哥哥

谢谢