帮我改下这个程序
<p>我这有个程序，是个一段螺旋线，现在我想实现这样的程序：就是在画一个矩形，然后让这矩形按这段螺旋线拉伸形成实体。本人lisp水平太次，谁帮我实现下，谢谢啊。螺旋线程序见附件</p><p>程序如下：</p><p>(defun c:luoxuan(/)<br/>(setq b1 (getpoint "请指定螺旋线基点: "))<br/>(setq r (getreal "请输入螺纹平均半径: "))<br/>(setq disp (getreal "请输入螺纹节距: "))<br/>(setq n (getint "请输入每圈细化段数: "))<br/>(setq delta (/ (* 0.5 pi) n))<br/>(setq j (/ disp n))<br/>(setq bb (caddr b1))<br/>(setq ang 0)<br/>(setq jj 0)<br/>(Command "UCS" "o" b1)<br/>(Command "3dpoly" (list r 0 0))<br/>(repeat n<br/>(setq jj(+ jj 1))<br/>(setq ang(+ delta ang))<br/>(setq pt2(list (* r (cos ang)) (* r (sin ang)) (+ 0 (* j jj))))<br/>(Command pt2)<br/>)<br/>(Command "")<br/>)<br/></p> <p>没人帮忙吗</p><p>很急啊，帮下啊</p>
页:
[1]