namezg 发表于 2014-12-3 20:19:53

(setq a '(3 4 0))
(setq b '(4 2 0))
;法一
(if (> (cadr a) (cadr b))
        (setq value a)
        (setq value b)
)
;;法二
(car (vl-sort (list a b) '(lambda (e1 e2) (> (cadr e1) (cadr e2)))))

newbuser 发表于 2014-12-11 19:07:36

namezg 发表于 2014-12-3 20:19 static/image/common/back.gif
(setq a '(3 4 0))
(setq b '(4 2 0))
;法一


多谢版主的解答，小弟汇存。
页: 1 [2]
查看完整版本: 帮忙看哪里出错了