社区 › Auto Lisp › 保存后帮助打开CV

Leinad 发表于 2022-7-5 17:20:06

保存后帮助打开CV

您好，我无法自动打开csv，
 
我修改了tharwat代码，但在将csv保存到其他文件夹位置后，它不会打开csv。。
 
(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)
)

BIGAL 发表于 2022-7-5 19:17:12

csv看起来像什么？

查看完整版本: 保存后帮助打开CV