[LISP程序]：圆柱弹簧螺旋线程序.lisp

yyayy1314

加载螺旋线程序后出现了以下问题
命令: luox
请指定螺旋线基点: 请指定螺旋线平均半径: 30
请输入螺旋线节距：3
请输入圈细化段数: 36
UCS
当前 UCS 名称: *世界*
输入选项
[新建(N)/移动(M)/正交(G)/上一个(P)/恢复(R)/保存(S)/删除(D)/应用(A)/?/世界(W)]
<世界>: o
指定新原点 <0,0,0>:
命令: 3dpoly
指定多段线的起点:
指定直线的端点或 [放弃(U)]: ; 错误: 参数类型错误: numberp: nil
源程序如下：
(defun C:luox(/)
  (setq bl (getpoint"请指定螺旋线基点: "))         
  (setq r (getreal"请指定螺旋线平均半径: "))
  (setq disp ( getreal"请输入螺旋线节距："))
  (setq n (getint"请输入圈细化段数: "))
  (setq delta (/(* 2.0 pi) n))
  (setq j (/ disp n))
  (setq bb(caddr bl))
  (setq ang 0)
  (setq k 0)
  (command "UCS" "o" bl)                           
  (command "3dpoly" (list r 0 0))               
  (repeat n                                       
     (setq k(+ k l))
     (setq ang(+ delta ang))
     (setq pt2(list (* r(cos ang))  (* r(sin ang)) (+ 0 (* j k))))
     (command pt2)
     )      
  (command " ")   
      )          
知道的请指点一下！

dghgvjje

原代码提供得不全吧？？？

yyayy1314

一本书上就是这么写的，运行时出现了错误: 参数类型错误: numberp: nil