帮我改下这个程序

lks042

我这有个程序，是个一段螺旋线，现在我想实现这样的程序：就是在画一个矩形，然后让这矩形按这段螺旋线拉伸形成实体。本人lisp水平太次，谁帮我实现下，谢谢啊。螺旋线程序见附件

程序如下：

(defun c:luoxuan(/)
(setq b1 (getpoint "请指定螺旋线基点: "))
(setq r (getreal "请输入螺纹平均半径: "))
(setq disp (getreal "请输入螺纹节距: "))
(setq n (getint "请输入每圈细化段数: "))
(setq delta (/ (* 0.5 pi) n))
(setq j (/ disp n))
(setq bb (caddr b1))
(setq ang 0)
(setq jj 0)
(Command "UCS" "o" b1)
(Command "3dpoly" (list r 0 0))
(repeat n
(setq jj(+ jj 1))
(setq ang(+ delta ang))
(setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ 0 (* j jj))))
(Command pt2)
)
(Command "")
)

lks042

没人帮忙吗

很急啊，帮下啊