关于X Y Z 排序的那个算法，求高人加注释..

夏若薄荷猫

;;;-------------------------------------------
;;;给表sszwd:((x y)(x y)(x y)......)根据X Y 给定的表达式进行排序-
;;;oflist :(0 > <)其中第一元素表示以X(0)优先还是以Y(1)优先
;;;第二位为X的排序关系第三位为Y的排序关系
(defun NetBee_px (xyzlist oflist / one x y e1 e2 one two oneof twoof)
  (setq one (car oflist))
  (if (= one 0)
    (setq one        car
          two        CADR
          oneof        (cadr oflist)
          twoof        (caddr oflist)
    ) ;_ 结束setq
    (setq one        cadr
          two        CAR
          oneof        (caddr oflist)
          twoof        (cadr oflist)

    ) ;_ 结束setq
  ) ;_ 结束if
  (vl-sort xyzlist
           (function (lambda (e1 e2)
                       (cond ((oneof (one e1)
                                     (one e2)
                              ) ;_ 结束oneof
                             )

                             ((= (one e1)
                                 (one e2)
                              ) ;_ 结束=

                              (twoof (two e1)
                                     (two e2)
                              ) ;_ 结束twoof
                             )
                       ) ;_ 结束cond
                     ) ;_ 结束lambda
           ) ;_ 结束function
  ) ;_ 结束vl-sort

) ;_ 结束defun

上面是在论坛下载到的，看了好几遍没看懂。



不知道里面怎么排序的
我把xyzlist 赋值了一个表   oflist 赋值(0 > <)  也没算出来..   

xiabin68

希望高手来解答，，

zml84

参考源码：  http://zml84.blog.sohu.com/64213673.html