作者sjgau (sjgau)
看板Cad_Cae
标题Re: [问题] 请问AutoLISP如何写自己呼叫自己的回圈?
时间Mon Apr 9 07:04:33 2007
※ 引述《MTLOVER (我要加油~~~)》之铭言:
: 请问大家
: 如以下的程式码:
: (setq ask (getstring "\n是否还要选点?[Y/N]"))
: (While ask(= Y)
: (setq p5 (getpoint "\n请选点:"))
: (setq p5x (nth 0 p5)
: p5y (nth 1 p5)
: p5z (nth 2 p5)
: )
: (setq m11 (((* p5x p5x)+) m11)
: m12 (((* p5x p5y)+) m12)
: m13 ((p5x +) m13)
: m21 (= m12)
: m22 (((* p5y p5y)+) m22)
: m23 ((p5y +) m23)
: m31 (= m13)
: m32 (= m23)
: )
: (setq ask (getstring "\n是否还要选点?[Y/N]"))
: )
: 我想要在这个while回圈内
: 如果最後ㄧ行是否还要选点(Y)
: 就可以呼叫自己这个回圈ㄧ次
: 一直到如果选择(N)才跳出这个while回圈
: 请问要怎麽写呢?
// - - -
这,不叫 递回,这叫做 回圈
(while (> x y)
; do something
; . . .
)
以上,当 (x > y) 的时候,会 重复执行
: 还有,大家有没有学过C??
// - - -
有!
: 我想要写像是 a= a + b
: 新的 a 会取代掉旧的 a
: 这种要怎麽写阿??
// - - -
(setq a (+ a b))
看你的 文章很累,先回答 这个问题,
其他的,再说
: 像我程式中的m11~m33
: 就是想写这种
: 拜托教教我~~很急~~
: 因为是新手~请大家多多包函
// - - -
请问你 有没有买书?
有没有看书?
: 谢谢谢谢~~~
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 123.194.156.130
1F:推 MTLOVER:嗯嗯~~谢谢罗^^~不好意思麻烦你了~我会再多试试看~~ 04/14 10:51