[求助]：如何理清连成一体的文字顺序？

gxynd

最近小弟编写了一个代码，原想是将被炸碎的多行文字有序地连成一体，可没想到在输出的文本框里，文字连是可以连起来啦，只是顺序乱了，没有办法理清这个顺序，望兄台指点一二，帮小弟渡过难关，谢了，代码如下：
(defun c:wz ()
  (setvar "cmdecho" 0)
  (princ "\n 选择多段线")
  (setq ss (ssget'((0 . "text"))))
(print)
(princ "打印文字:")
(print)
  (setq i 0)
  (repeat (sslength ss)
    (setq ssn (ssname ss i))
    (setq ssdata (entget ssn))
    (setq sstype (cdr (assoc 0 ssdata)))
    (if        (= sstype "TEXT")
      (progn
        (setq n 0)
        (repeat        (length ssdata)
          (setq pp (nth n ssdata))
          (setq key (car pp))
          (if (= key 1)
            (progn
              (princ (cdr pp))
            ) ;_ end of progn
          ) ;_ end of if
          (setq n (1+ n))
        ) ;_ end of repeat
      ) ;_ end of progn
    ) ;_ end of if
(print)
    (setq i (1+ i))
  ) ;_ end of repeat
(princ "图元数量:")
(princ i)
(print)
(textscr)
(princ)
) ;_ end of defun