autolisp语言怎么中断循环

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