请教程序问题

Question

这个程序那不对，为啥不能运行，我是在刊物上抄的请高手指正一下啊。
(defun C: myARC()
(setq pt1(getpoint"请选择园弧起点:")
pt2(getpoint"\n请选择园弧终点:")
L0(/(distance pt1 pt2)(abs(getral"\n请输入弧
长:")))
amax pi amin 0 )
(if(>=L0 1) )progn (prompt"弧长小于弦长，出错!")
(exit)))
(while (not (equal l l0 le-15))
(setq a(/(+amax amin) 2)
L(/(sina)a))
(if (> L L0)(setq amina )(setq amax a))
)
(command "arc" pt1 "e" pt2 "a"(strcat(rtos(* a 2)2
16) "r"))
(princ)

Answer 1

是的我才开始学LISP语言，我是搞机制的，学电脑才起步啊，请教也是想学的快些吗

Answer 2

问题是，这个版块是VC版块的，好像懂LISP的不多。