[求助]：如何按顺序输出文字啊？

gxynd

本人写了一个LSP输出文字程序，使用时发现无法按顺序从左到右（就是输出文字时，在输出窗口里，没有办法按照视图的顺序进行排列。），或者从上到下进行排列，使用时感到十分麻烦，程序如下，望兄台指点一二，谢了。
(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

netbee

注意：在ssget已经使用过滤条件后，后面就不需要再进行判断。
　　　然后就是需要排序的。

2. 
   
3. ;;           2006.06.30
   
4. ;;         by netbee   [url]www.xdcad.net[/url]
   
5. (defun c:wz (/ ss i ssn ssdata tlist)
   
6.   (setvar "cmdecho" 0)
   
7.   (princ "\n 选择文字")
   
8.   (setq ss (ssget '((0 . "text"))))
   
9.   (print)
   
10.   (princ "打印文字:")
    
11.   (print)
    
12.   (setq i 0)
    
13.   (repeat (sslength ss)
    
14.     (setq ssn         (ssname ss i)
    
15.           ssdata (entget ssn)
    
16.           tlist         (cons (cons (cdr (assoc 10 ssdata)) (cdr (assoc 1 ssdata)))
    
17.                        tlist
    
18.                  ) ;_ 结束cons
    
19.           i         (1+ i)
    
20.     ) ;_ 结束setq
    
21.   ) ;_ end of repeat
    
22.   (setq tlist(vl-sort tlist
    
23.     (function (lambda (e1 e2)
    
24.                 (cond
    
25.                   ((=(cadar e1) (cadar e2));_先Y后X
    
26.                    (< (caar e1);_在Y相等的条件下X从小到大
    
27.                       (caar e2)
    
28.                    )
    
29.                   )
    
30.                   (
    
31.                    T
    
32.                    (>        ;_Y从大到小
    
33.                      (cadar e1)
    
34.                      (cadar e2)
    
35.                    ) ;_ 结束twoof
    
36.                   )
    
37.                 ) ;_ 结束cond
    
38.               ) ;_ 结束lambda
    
39.     ) ;_ 结束function
    
40.   ) ;_ 结束vl-sort
    
41.         )
    
42.   (setq i 0)
    
43.   (repeat (length tlist)
    
44.     (princ "\n")
    
45.     (princ(cdr(nth i tlist)))
    
46.     (setq i(1+ i)))
    
47.   (princ "\n图元数量:")
    
48.   (princ i)
    
49.   (textscr)
    
50.   (princ)
    
51. ) ;_ end of defun
    

<br /> ;;           2006.06.30<br /> ;;         by netbee   [url]www.xdcad.net[/url]<br /> (defun c:wz (/ ss i ssn ssdata tlist)<br />   (setvar "cmdecho" 0)<br />   (princ "\n 选择文字")<br />   (setq ss (ssget '((0 . "text"))))<br />   (print)<br />   (princ "打印文字:")<br />   (print)<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq ssn         (ssname ss i)<br />           ssdata (entget ssn)<br />           tlist         (cons (cons (cdr (assoc 10 ssdata)) (cdr (assoc 1 ssdata)))<br />                        tlist<br />                  ) ;_ 结束cons<br />           i         (1+ i)<br />     ) ;_ 结束setq<br />   ) ;_ end of repeat<br />   (setq tlist(vl-sort tlist<br />     (function (lambda (e1 e2)<br />                 (cond<br />                   ((=(cadar e1) (cadar e2));_先Y后X<br />                    (< (caar e1);_在Y相等的条件下X从小到大<br />                       (caar e2)<br />                    ) <br />                   )<br />                   (<br />                    T<br />                    (>        ;_Y从大到小<br />                      (cadar e1)<br />                      (cadar e2)<br />                    ) ;_ 结束twoof<br />                   )<br />                 ) ;_ 结束cond<br />               ) ;_ 结束lambda<br />     ) ;_ 结束function<br />   ) ;_ 结束vl-sort<br />         )<br />   (setq i 0)<br />   (repeat (length tlist)<br />     (princ "\n")<br />     (princ(cdr(nth i tlist)))<br />     (setq i(1+ i)))<br />   (princ "\n图元数量:")<br />   (princ i)<br />   (textscr)<br />   (princ)<br /> ) ;_ end of defun<br />

gxynd

谢啦，果然很好用