改变参数为何程序就不能实现了
<p>(defun c:luoxuan(/ b1 r1 disp n )<br/>(setvar "cmdecho" 0)<br/>(setq b1 (getpoint "请指定螺旋线基点: "))<br/>(setq r1 (getreal "请输入螺纹平均半径: "))<br/>(setq disp (getreal "请输入螺纹节距: "))<br/>(setq n (getint "请输入每圈细化段数: "))</p><p>(command "ucs" "w")<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 r1 0 0))<br/>(repeat n<br/>(setq jj(+ jj 1))<br/>(setq ang(+ delta ang))<br/>(setq pt2(list (* r1 (cos ang)) (* r1 (sin ang)) (+ 0 (* j jj))))<br/>(Command pt2)<br/>)<br/>(Command "")<br/>(setq e1(entlast))<br/>(command "ucs" "n" "x" "")<br/>(setq p1'(1 1))<br/>(setq p2'(2 9))<br/>(setq p3'(5 9))<br/>(setq p4'(6 1))<br/>(command "pline" p1 p2 p3 p4 "c")<br/>(setq e2(entlast))<br/>(command "extrude" e2 "" "p" e1 "" )<br/>(entdel e1)</p><p>这是个让一个梯形沿一段螺旋线拉伸的程序，如果输入某一组参数是，程序是能实现的，但是如果改变参数积不行了，不知道为什么？</p>
页:
[1]