lawrence168

(defun c:TEXTEX()
   (setq ffn (getfiled "¼g¥XÀÉ®×" "" "" 1))
   (princ "\n¿ï¨ú¤å¦r...")
   (setq ss (ssget))
   (setq ff (open ffn "w"))
   (setq i 0)
   (repeat (sslength ss)
      (setq ssn (ssname ss i))
      (setq ssdata (entget ssn))
      (setq sstyp (cdr (assoc 0 ssdata)))
      (if (= sstyp "TEXT")
         (progn
     (setq txt (cdr (assoc 1 ssdata)))
          (princ txt ff)
            (princ "\n" ff)
          )
      )
      (setq i (1+ i))         
   )
   (close ff)
   (princ (strcat "\n¼g¥XÀÉ®×: " ffn))
   (prin1)
)