在 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 相同。
