Re: [問題] 請問AutoLISP如何寫自己呼叫自己的迴圈?

看板Cad_Cae (電腦輔助設計)作者 (sjgau)時間18年前 (2007/04/09 07:04), 編輯推噓1(100)
留言1則, 1人參與, 最新討論串2/3 (看更多)
※ 引述《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

04/14 10:51, , 1F
嗯嗯~~謝謝囉^^~不好意思麻煩你了~我會再多試試看~~
04/14 10:51, 1F
文章代碼(AID): #166NK2vH (Cad_Cae)
文章代碼(AID): #166NK2vH (Cad_Cae)