用visual lisp语言写一段快捷键为nv的2023版cad批量提取点坐标，生成dat文件并且由用户自定义导出到文件夹的代码...

下面是一段使用 Visual Lisp 写成的代码，可以在 2023 版 CAD 中使用快捷键 nv 批量提取点的坐标，并生成一个 dat 文件，最后提示用户选择文件夹并将 dat 文件导出到该文件夹中：

(defun c:nv (/ pt1 pt2 fname) (setq pt1 (getpoint "选择起点: ")) (setq pt2 (getpoint pt1 "选择终点: ")) (setq fname (getfiled "选择文件夹" "*.dat" "dat" 1)) (setq f (open fname "w")) (setq x1 (car pt