哪位DX帮小弟一个忙啊！？？
小弟初次接触LISP！老师留的作业为：画个等边三角形并且里面有个圆就可！！帮帮小弟啊！！！！谢谢了！！！ <P>里面放几个圆?我的QQ是123418229</P><P>我可以帮助你.</P>
(DEFUN C:DRAW ()
(SETVAR "CMDECHO" 0)
(SETQ OLDOS (GETVAR "OSMODE"))
(SETVAR "OSMODE" 0)
(SETQ PC (GETPOINT "\n圆心点 :")
R (GETDIST PC "\n半径 :"))
(COMMAND "CIRCLE" PC R "POLYGON" 3 PC "C" (POLAR PC (/ PI -2) R))
(SETVAR "OSMODE" OLDOS)
(SETVAR "CMDECHO" 1)
(PRINC)
)
<P>先谢谢各位了！！</P>
<P>三角形内放一个圆就行了！！！</P>
<P>3楼的程序就可以了么！！小弟实在是太菜了！请多指教！！</P>
页:
[1]