[問題] autolisp 畫鋸齒狀
大家好，我寫了一個簡單的autolisp程式想畫一個像是螺旋彈簧側面圖的鋸齒狀線圖，
以下是我的程式碼：
(defun c:test5 (/ p1 p2 dist ni dist2)
(setq
p1 (getpoint "\n input the first point : ")
p2 (getpoint "\n input the seconf point : ")
p3 (list (car p2) (cadr p1))
dist (distance p1 p3)
ni (getint "\ninput the times of drawing : ")
dist2 (* 2.0 dist)
) ; end setq1
(command "pline" p1 p2 p3)
(repreat ni
(setq
p1 (polar p1 0.0 dist2)
p2 (polar p2 0.0 dist2)
p3 (polar p3 0.0 dist2)
)
(command p1)
) ; end of repeat
(command "")
) ;end of program
現在遇到的問題是：不管我ni輸入多少，圖形就是只會畫一次，就是只畫出一個鋸齒
的意思。
不太知道這樣的寫法有哪裡不行，想請教各位高手，謝謝。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 125.227.134.236
→
05/10 11:09, , 1F
05/10 11:09, 1F
推
05/10 12:29, , 2F
05/10 12:29, 2F
→
05/10 12:30, , 3F
05/10 12:30, 3F
→
05/10 12:31, , 4F
05/10 12:31, 4F
→
05/13 14:50, , 5F
05/13 14:50, 5F
討論串 (同標題文章)
以下文章回應了本文：
完整討論串 (本文為第 1 之 2 篇)：