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

好的，这是一段使用 Lisp 语言编写的代码，可以在 2023 版 CAD 中使用快捷键 nv 批量提取点坐标，生成 dat 文件，并由用户自定义导出到文件夹：

(defun c:nv (/ ss i j k ent pnt)
  (setq ss (ssget))
  (setq i 0)
  (while (setq ent (ssname ss i))
    (setq pnt (entget ent))
    (setq i (1+ i))
    (setq j 0)
    (while (setq k (assoc j pnt))
      (if (equa