[编程交流] 将列表写入文件

(setq a (entsel))
(setq b (entget(car a)))
(setq pt1 (cdr(assoc 10 b)))
(setq pt2 (cdr(assoc 11 b)))
(setq f (open "C:\\Documents and Settings\\Marco\\Mis documentos\\AAA.txt" "w"))
; ************************************************** *****************************
(setq ptx1 (rtos (car pt1) 2 4)
       pty1 (rtos (cadr pt1) 2 4)
       ptz1 (rtos (caddr pt1) 2 4))
       xyz1 (strcat ptx1 ", " pty1 ", " ptz1)
     )
; ************************************************** *****************************
(write-line xyz1 f)

(defun c:test ( / ent p1 p2 file  )
 (if (and (setq ent  (car (entsel)))
          (setq p1   (cdr (assoc 10 (entget ent)))
                p2   (cdr (assoc 11 (entget ent))))
          (setq file (open "C:\\Documents and Settings\\Marco\\Mis documentos\\AAA.txt" "w")))
   (progn
     (write-line (LM:lst->str (mapcar '(lambda ( x ) (rtos x 2 4)) p1) ",") file)
     (close file)
   )
 )
 (princ)
)
;;-------------------=={ List to String }==-------------------;;
;;                                                            ;;
;;  Constructs a string from a list of strings separating     ;;
;;  each element by a specified delimiter                     ;;
;;------------------------------------------------------------;;
;;  Author: Lee McDonnell, 2010                               ;;
;;                                                            ;;
;;  Copyright © 2010 by Lee McDonnell, All Rights Reserved.   ;;
;;  Contact: Lee Mac @ TheSwamp.org, CADTutor.net             ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  lst - a list of strings to process                        ;;
;;  del - delimiter by which to separate each list element    ;;
;;------------------------------------------------------------;;
;;  Returns:  String containing each string in the list       ;;
;;------------------------------------------------------------;;
(defun LM:lst->str ( lst del )
 ;; © Lee Mac 2010
 (if (cdr lst)
   (strcat (car lst) del (LM:lst->str (cdr lst) del))
   (car lst)
 )
)

(vl-load-com)
(defun c:prueba4 ( / a b pt1 pt1-str f)
 (setq a       (entsel)
       b       (entget (car a))
       pt1     (cdr (assoc 10 b))
       pt1-str (vl-prin1-to-string pt1)
       f       (open "ppr.txt" "w")
 )
 (write-line pt1-str f)
 (close f)
 (princ)
)

  
;;;; Developed by R.Muthu Kumar ;;;;;;;;
(defun lst-str (#list / fn file_descr a)
 (Setq fn (vl-filename-mktemp))
 (setq file_descr (open fn "w"))
 (prin1 #list file_descr)
 (close file_descr)
 (setq file_descr (open fn "r"))
 (Setq a (read (read-line file_descr)))
 (close file_descr)
 (vl-file-delete fn)
 a
)

;;;---------------------By R.Muthu Kumar-------------------------
;;;---------------------Date:10-08-2010--------------------------
(Setq pt1 (list (list 0 "10" 0) 5 "SP-1" "splice" (list 5 2)))
;;;To Convert into String
(setq str (vl-prin1-to-string pt1))
;;;To Convert the String into List again
(Setq #list (read str))

(setq a   (entsel)
     b   (entget (car a))
     pt1 (cdr (assoc 10 b))
)
(setq str ( strcat  (vl-prin1-to-string pt1) (vl-prin1-to-string a)))
(read str)