在 AutoLISP 語言中,可以使用 exit
或 return
關鍵字來中斷循環。
以下是一個示例,在循環中使用 exit
來中斷循環并顯示消息:
(defun test-loop ()
(setq i 0)
(repeat 10
(setq i (1+ i))
(if (= i 5)
(progn
(exit)
(princ "\nLoop interrupted at i = 5"))
(princ (strcat "\ni = " (itoa i))))))
在這個示例中,repeat
循環從 1 到 10,當 i
的值等于 5 時,調用 exit
函數來中斷循環,并顯示消息 “Loop interrupted at i = 5”。循環將被立即中斷,不再執行后續的迭代。
請注意,exit
函數不僅可以用于中斷循環,還可以用于中斷其他類型的代碼塊(例如 while
循環或 foreach
循環)。
另外,你還可以使用 return
關鍵字來中斷循環,效果與 exit
相同。