;getfiled函数：对话框的名称，默认文件夹路径，过滤后缀名，flag(1是创建、4是选择)

函数 lisp setq 2024-12-06 08:15  1

（defun c:readfileS;getfiled返回的是文件的绝对路径，是字符串(setq filepath (getfiled "选择要预览的对话框所在的文件" "C:\\Desktop\\WX15831944\\LISP\\" "txt" 2));返

函数 lisp setq 2024-12-06 08:18  3