作者skyconquer (梅郭曲)
看板Cad_Cae
標題[問題] autolisp 畫鋸齒狀
時間Thu May 3 22:18:30 2012
大家好，我寫了一個簡單的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
1F：→ jiwenho:程式不能跑是因為repeat拼錯了 05/10 11:09
2F：推 sjgau: 樓上，厲害！我竟然沒有發現。我是直接寫新的。 05/10 12:29
3F：→ sjgau:根據我的經驗，幫別人找出程式設計的錯誤所花的時間， 05/10 12:30
4F：→ sjgau:數十倍於我 重新寫一個。自己寫的程式設計，也是一樣 05/10 12:31
5F：→ skyconquer:感謝樓上兩位!! 05/13 14:50