(defun c:cttt(/ ff file ss ss2 i ii n name y y0 name-end str)
(setq ff (getfiled "save txt as" "e:/cadtext" "txt" 1))
(setq file (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 file)
(setq ii (+ 1 ii))
)

(close file)
(princ "\ncomplete! File is ")(princ ff)(princ)
);defun

笨，明天和你说，今天没时间了，下班了