[求助]：帮我解惑

nuance

(defun c:cttt(/ ff ss ss2 i ii n name y y0 name-end str)
   (setq ff (getfiled "save txt as" "e:/cadtext" "txt" 1))
   (open ff "w")
   (setq ss(ssget '((0 . "TEXT"))))

   (setq i 0)
   (setq y0 nil)
   (setq n (sslength ss))
   (setq ss2 (ssadd))
   (repeat n ;1
      (repeat n ;2
         (setq name (ssname ss i))
         (setq y (cadr (cdr (assoc 10 (entget name)))))
         (if (> y y0)
            (progn (setq y0 y)
                   (setq name-end name)
            );progn
         );if
         (setq i (+ 1 i))
      );repeat2
      (setq i 0)
      (ssdel name-end ss)
      (ssadd name-end ss2)
      (setq y0 nil)
      (setq n (- n 1))
   );repeat
   
   (setq ii 0)
   (repeat (sslength ss2)
      (setq str (cdr (assoc 1 (entget (ssname ss2 ii)))))
      (write-line str ff)；；；；；；；；；此句出错（R14下运行）
      (setq ii (+ 1 ii))
   )

   (close ff)
);defun

zhynt

上面的ｏｐｅｎ应该这样：
(setq file (open ff "w"))
下面应该：
(write-line str file)