AutoLISP建立对话框打开txt文件

以下是一个简单的 AutoLISP 代码示例，可以使用对话框打开一个 TXT 文件并读取坐标信息：

(defun open-dialog ()
  (setq file-path (getfiled "Open" "" "txt" 0))
  (if file-path
    (progn
      (setq coordinates (read-coordinates file-path))
      (princ (strcat "Opened file: " file-path))
      (princ)
      (princ "Coordinates:")
      (princ)
      (foreach coords coordinates
        (princ (apply 'strcat (mapcar '(lambda (x) (rtos x 2 2)) coords)))
        (princ)
      )
    )
    (princ "No file selected.")
  )
)

(defun read-coordinates (file-path)
  (setq coordinates '())
  (setq file (open file-path "r"))
  (while (setq line (read-line file))
    (setq coords (mapcar 'atof (split-string line ",")))
    (setq coordinates (cons coords coordinates)))
  (close file)
  (reverse coordinates)
)

这个代码中，`open-dialog` 函数会弹出一个文件选择对话框，允许用户选择一个 TXT 文件。如果用户选择了一个文件，那么代码会调用 `read-coordinates` 函数来读取文件中的坐标信息，并将其输出到 AutoCAD 命令行窗口中。

注意，这个示例代码并没有创建一个真正的对话框窗口，而是使用了 AutoCAD 的文件选择对话框。如果您需要创建一个完整的对话框窗口，可以参考 AutoLISP 的 `dcl` 语言来实现。