请谁帮我将这个列出图纸内的字体的代码加个排序吧

tranney

请谁帮我将这个列出图纸内的字体的代码加个排序吧，目前出来是乱序，我希望和显示顺序一致，谢谢

2. (defun c:lzt () (c:lst))
   
3. (defun c:lst ()
   
4.   (setq pt11 (getpoint "\n请点选插入点插入点: "))
   
5.   (setq ccztmc "菜菜字体");菜菜字体名称
   
6.   (if (= (tblsearch "style" ccztmc) nil)
   
7.     (command "style" ccztmc "Xin_Eng1,Xin_Chs1" "0" "0.7" "" "" "" "")
   
8.   )
   
9.   (setq cctcmc "PUB_DIM");菜菜图层名称
   
10.   (if (= (TBLOBJNAME "LAYER" cctcmc) nil)
    
11.     (command "layer" "m" cctcmc "c" "3" "" "")
    
12.   )
    
13.   (if (null scale)(setq scale (getvar "DIMSCALE")))
    
14.   (setq dyt (cadr pt11))
    
15.   (setq dxt (car pt11))
    
16.   (setq ptt  (list dxt dyt)
    
17.     high (* 3 scale))
    
18.   (setq sty nill)
    
19.   (while (setq sty (tblnext "STYLE" (not sty)))
    
20.     (setq txt nill)
    
21.     (if (/= (cdr(assoc 4 sty)) "")
    
22.       (setq txt1 (strcat"字体名 = "(cdr(assoc 2 sty))", 字体 = "(cdr(assoc 3 sty))", 大字体 = " (cdr(assoc 4 sty)) ", 字宽比例 = "(rtos (cdr(assoc 41 sty)) 2 2) ))
    
23.       (setq txt1 (strcat"字体名 = "(cdr(assoc 2 sty))", 字体 = "(cdr(assoc 3 sty))", 字宽比例 = "(rtos (cdr(assoc 41 sty)) 2 2) ))
    
24.       
    
25.     )
    
26.     (setq ptt (list dxt dyt))
    
27.     (entmake (list '(0 . "TEXT")
    
28.         (cons 1 txt1)
    
29.         (cons 10 ptt)
    
30.         (cons 73 0)
    
31.         (cons 72 0)
    
32.         (cons 8 cctcmc)
    
33.         '(62 . 7)
    
34.         (cons 11 ptt)
    
35.         (cons 40 high)      ;字高
    
36.         (cons 41 0.7)       ;比例因子
    
37.         '(50 . 0)            ;角度
    
38.         (cons 7 ccztmc)))
    
39.     (setq dyt (- dyt (* 5.00 scale)))
    
40.   )
    
41.   (princ)
    
42. )

(defun c:lzt () (c:lst))<br /> (defun c:lst ()<br />   (setq pt11 (getpoint "\n请点选插入点插入点: "))<br />   (setq ccztmc "菜菜字体");菜菜字体名称<br />   (if (= (tblsearch "style" ccztmc) nil)<br />     (command "style" ccztmc "Xin_Eng1,Xin_Chs1" "0" "0.7" "" "" "" "")<br />   )<br />   (setq cctcmc "PUB_DIM");菜菜图层名称<br />   (if (= (TBLOBJNAME "LAYER" cctcmc) nil)<br />     (command "layer" "m" cctcmc "c" "3" "" "")<br />   )<br />   (if (null scale)(setq scale (getvar "DIMSCALE")))<br />   (setq dyt (cadr pt11))<br />   (setq dxt (car pt11))<br />   (setq ptt  (list dxt dyt)<br />     high (* 3 scale))<br />   (setq sty nill)<br />   (while (setq sty (tblnext "STYLE" (not sty)))<br />     (setq txt nill)<br />     (if (/= (cdr(assoc 4 sty)) "") <br />       (setq txt1 (strcat"字体名 = "(cdr(assoc 2 sty))", 字体 = "(cdr(assoc 3 sty))", 大字体 = " (cdr(assoc 4 sty)) ", 字宽比例 = "(rtos (cdr(assoc 41 sty)) 2 2) ))<br />       (setq txt1 (strcat"字体名 = "(cdr(assoc 2 sty))", 字体 = "(cdr(assoc 3 sty))", 字宽比例 = "(rtos (cdr(assoc 41 sty)) 2 2) ))<br />       <br />     )<br />     (setq ptt (list dxt dyt))<br />     (entmake (list '(0 . "TEXT") <br />         (cons 1 txt1)<br />         (cons 10 ptt)<br />         (cons 73 0)<br />         (cons 72 0)<br />         (cons 8 cctcmc)<br />         '(62 . 7)<br />         (cons 11 ptt)<br />         (cons 40 high)      ;字高<br />         (cons 41 0.7)       ;比例因子<br />         '(50 . 0)            ;角度<br />         (cons 7 ccztmc)))<br />     (setq dyt (- dyt (* 5.00 scale)))<br />   )<br />   (princ)<br /> )

鱼与熊掌

  (acad_strlsort list)~

tranney

研究了好久，还是不会加