AutoLISP通过对话框打开指定的txt文件

AutoLISP中可以使用 `getfiled` 函数打开一个文件对话框，让用户选择要打开的文件。下面是一个示例代码，可以通过对话框打开指定的txt文件：

(defun open-txt-file-dialog ()
  (setq file (getfiled "Open Text File" "" "txt" 0)) ; 打开文件对话框
  (if file
    (progn
      (setq file (open file "r"))
      (while (setq line (read-line file))
        (princ line)
        (terpri)
      )
      (close file)
    )
    (princ "No file selected.")
  )
)

该函数会打开一个文件对话框，让用户选择要打开的txt文件。如果用户选择了文件，则会尝试打开该文件并读取其中的内容。如果文件存在，则逐行读取文件内容并输出到AutoCAD的命令行窗口中。

您可以将上述代码保存为一个LSP文件并在AutoCAD中加载使用。调用该函数时，只需执行 `open-txt-file-dialog` 命令即可打开文件对话框，例如：

(open-txt-file-dialog)

上述代码中使用了AutoLISP中的 `getfiled` 函数打开文件对话框，并根据用户选择的文件路径来打开该文件。注意，在使用文件操作函数时，需要确保您有足够的文件访问权限。