[编程交流] 保存后帮助打开CV

(defun c:C2XLS  (/ sel f o l)
 (princ "\n Select All texts :")
 (if (and (setq sel (ssget '((0 . "TEXT"))))
          (setq f (getfiled "Save as to csv format "
                            (getvar 'DWGPREFIX)
                            "CSV"
                            1))
          (setq o (open f "w")) ; this line not open
          )
   (progn
     ((lambda (x / sn e)
        (while (setq sn (ssname sel (setq x (1+ x))))
          (setq l
                 (cons (list (cdr (assoc 10 (setq e (entget sn))))
                             (cdr (assoc 1 e)))
                       l))
          )
        )
       -1)
     (setq l
            (vl-sort l
                     '(lambda (q p) (< (cadr (car q)) (cadr (car p))))))
     (write-line "CHAINAGE,EASTING,NORTHING" o)
     (mapcar '(lambda (v)
                (write-line
                  (strcat (cadr v)
                          ","
                          (rtos (caar v) 2)
                          ","
                          (rtos (cadar v) 2)
                          ","
                          (rtos (caddar v) 2))
                  o))
             l)
     (close o)
     )
   )
 (princ)
 )