作者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