还得请高手大大请教一下

wangxiaolei

我用LISP这写了一段代码，作用是指定倒角的长度和角度来进行倒角，加载成功了，但是提示说语法错误。

另，LISP编程有没有检查器一类东西啊，可以检查一下语法，就像C那样。

代码：

(defun c: chamfer()
(graphscr)
(setvar "cmdecho" 0)
(setq d (getdist "\n 输入一段距离"))
(setq a (getdist "\n 输入一个角度"))
(setvar "chamfera" d)
(setvar "chamferb" (* d (/ sin a (cos a))))
(command "chamfer")
(setvar "cmdecho" 1)
(princ)
)

Andyhon

(defun c:chamfre ()
   (graphscr)
   (setvar "cmdecho" 0)
   (setq d (getdist "\n 输入一段距离: "))
   (setq a (getangle "\n 输入一个角度: "))
   (setvar "chamfera" d)
   (setvar "chamferb" (* d (/ (sin a) (cos a))))
   (command "chamfer")
   (while (= (logand (getvar "CmdActive") 1) 1) (command pause))
   (setvar "cmdecho" 1)
   (princ)
)