[求助]：帮我改一下程序

animal212

重新构造表,使KB表中的元素按升序排列
(defun C:abc()
(load "xyp_lib.vlx")
(setq kb (list "1#田间路" "4#田间路" "3#田间路" "6#田间路" "5#田间路" "10#田间路" "14#田间路" "9#田间路") B '() C '())
(repeat 8
(gzb)
(setq aa (ani-Y B))
(setq kb (vl-remove aa kb)) ;;;从表中删掉元素
(setq C (cons (cadr aa) C))
)
(princ C)
(princ)
)

(defun ani-Y (X / a bb );;;X为坐标点形式的集合,返回最大值
  (setq a (car X) bb (cdr X))
       (while       
            (if (>= (car (car bb)) (car a))
                (progn
                     (setq a (car bb))
                     (setq bb (cdr bb))
                )
                (setq bb (cdr bb))
            )
       )
  a
)
(defun gzb()
(foreach pt kb
(setq number (atof pt) B (cons (list number pt) B))
)
)

cy956

(acad_strlsort list) ?字串表排序
还是按坐标排序？后者论坛里面已经很多人提过了

animal212

我已经解决了。谢谢
(defun PAIXU (kb / pt aa B C)
(setq  B '() C '())
(setq xuhao 0)
(foreach pt kb
(setq number (atof pt) B (cons (list number pt) B) xuhao (+ xuhao 1))
)
(repeat xuhao
(setq aa (ani-Y B))
(setq B (vl-remove aa B))
(setq C (cons (cadr aa) C))
)
(princ C)
(princ)
)

(defun ani-Y (X / a bb );;;X为坐标点形式的集合,返回最大值
(setq a (car X) bb (cdr X))
(while
(if (>= (car (car bb)) (car a))
(progn
(setq a (car bb))
(setq bb (cdr bb))
)
(setq bb (cdr bb))
)
)
a
)
(defun C:ani()
(load "xyp_lib.vlx")
(setq SS (list "1#田间路"  "6#田间路" "4#田间路" "3#田间路" "6#田间路"  "6#田间路" "5#田间路" "10#田间路" "14#田间路" "9#田间路"  "6#田间路"))
(paixu ss)
)