[编程交流] 需要帮助

(defun c:test (/ a f i obj pnt)
 (if (setq a (ssget '((0 . "text"))))
   (progn
     (setq f (open "c:\\code.csv" "w"))
     (repeat (setq i (sslength a))
(setq obj (entget (ssname a (setq i (1- i)))))
(setq pnt (cdr (assoc 11 obj)))
(write-line
  (strcat (cdr (assoc 1 obj))
          ","
          (rtos (car pnt) 2 3)
          ","
          (rtos (cadr pnt) 2 3)
          ","
          (rtos (caddr pnt) 2 3)
          ","
          "F"
  )
  f
)
     )
     (close f)
     (alert
"Hi -CODE.txt- is Exported in C drive \n Please Open in Excel"
     )
   )
 )
 (princ)
)

(defun c:test ( / csv des enx idx sel )
   (setq csv "C:\\code.csv") ;; CSV to be created (will be overwritten if exists)
   
   (if (setq sel (ssget '((0 . "TEXT"))))
       (if (setq des (open csv "w"))
           (progn
               (repeat (setq idx (sslength sel))
                   (setq enx (entget (ssname sel (setq idx (1- idx)))))
                   (write-line
                       (strcat (cdr (assoc 1 enx)) ","
                           (apply 'strcat 
                               (mapcar '(lambda ( x y ) (strcat (rtos x 2 3) y))
                                   (cdr (assoc (if (= 0 (cdr (assoc 72 enx)) (cdr (assoc 73 enx))) 10 11) enx))
                                  '("," "," ",F")
                               )
                           )
                       )
                       des
                   )
               )
               (close des)
           )
           (princ (strcat "\nUnable to open "" csv "" for writing."))
       )
   )
   (princ)
)