[求助]高手帮忙看看哪里出错了，急。。。

jethro蔡

我抄写了一个画螺旋线的小程序，但是运行之后，提示参数类型错误，实在找不出哪里出问题，菜鸟急求高手赐教
程序的代码如下:


(defun myerror (s)
  (if(/= s "Function cancelled")
    (princ (strcat "\nError:" s))
    )
  (setvar "cmdecho" ocmd)
  (setvar "blipmode" oblp)
  (setq *error* olderr)
  (princ)
  )


(defun cspiral (ntimes bpoint hfac lppass strad vfac / ang dist tp ainc dhinc dvinc circle dv)
  (setvar "cmdecho" 0)
  (setvar "blipmode" 0)
  (setq circle (* 3.1415926 2))
  (setq ainc (/ circle lppass))
  (setq dhinc (/ hfac lppass))
  (if vfac (setq dvinc (/ vfac lppass)))
  (set ang 0.0)

(if vfac
  (setq dist strad dv 0.0)
  (setq dist 0.0)
  )

(if vfac
  (command "3dpoly")
  (command "pline" bpoint)
  )
(repeat ntimes
  (repeat lppass
    (setq tp (polar bpoint (setq ang (+ ang ainc))
      (setq dist (+ dist dhinc))
      )
   )
(if vfac
     (setq tp (list (car tp) (cadr tp) (+ dv (caddr tp)))
        dv (+ dv dvinc)
    )
   )
    (command tp)
    )
  )
(command "")
(princ)
)


(defun C:SPIRAL(/ olderr ocmd oblp nt bp cf lp)
   (setq olderr *error*
  *error* myerror)
   (setq ocmd (getvar "cmdecho"))
   (setq oblp (getvar "blipmode"))
   (setvar "cmdecho" 0)
   (initget 1)
   (setq bp (getpoint "\n 中心点："))
   (initget 7)
   (setq nt (getint "\n 螺旋线的圈数："))
   (initget 3)
   (setq cf (getdist "\n 每圈增加的尺寸："))
   (initget 6)
   (setq lp (getint "\n 每圈的特征点<30>："))
   (cond ((null lp) (setq lp 30)))
   (cspiral nt bp cf lp nil nil)
   (setvar "cmdecho" ocmd)
   (setvar "blipmode" oblp)
   (setq *error* olderr)
     (princ)
  )

(princ "\n\tC:SPIRAL.")
(princ)

Andyhon

建议用官方的范例(1993版本)

jethro蔡

谢谢了，但是我想知道哪里出错了，学习lisp中。。。 。。。能帮我看看吗

ZZXXQQ

这里错了：
(if vfac (setq dvinc (/ vfac lppass)))
bfac变量为“空”

jethro蔡

回复 ZZXXQQ 的帖子

那么应该怎么改呢？？

jethro蔡

我知道了，谢谢版主了，原来是这里
(set ang 0.0)
应该改成   (setq ang 0.0)
刚开始学，写得可能有点乱，版主费神了，现在真高兴，找到这个论坛真好，大家挺够朋友的