autolisp 编写查找文件夹内所有txt文件

以下是一个示例代码，使用autolisp编写查找文件夹内所有txt文件：

(defun find-txt-files (dir)
  (setq files (vl-directory-files dir "*.txt" 1))
  (foreach file files
    (princ file)
    (terpri)
  )
)

;; 示例用法：
(find-txt-files "C:\\MyFolder\\")

这个函数使用了 `vl-directory-files` 函数来查找指定文件夹内所有的txt文件，并将它们存储在 `files` 变量中。然后，使用 `foreach` 循环依次处理每个文件，并将文件名打印到控制台上。你可以将这个函数放到你的LISP文件中，然后使用 `find-txt-files` 函数来执行查找操作。注意，你需要将文件夹路径作为参数传递给函数。