[编程交流] 在选择中查找最大数量

;;----------------------------------------------------------------------------;;
;;List Maximum Value
(defun C:MValue (/ ss txt lst)
  (if (setq ss (ssget '((0 . "*TEXT"))))
    (foreach txt (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS)))
      (setq value (atof (cdr (assoc 1 (entget txt)))))
      (setq lst (cons value lst))
      (setq lst (vl-sort lst '>))
    )
  )
  (prompt (strcat "\nMaximum Value: " (rtos (car lst) 2)))
  (princ)
)

(setq lst (car lst))

(setq lst (nth 0 lst))

(defun c:foo (/ ss)
  (if (setq ss (ssget '((0 . "*TEXT"))))
    (print (apply 'max
                  (mapcar '(lambda (x) (atof (cdr (assoc 1 (entget x)))))
                          (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
                  )
           )
    )
  )
  (princ)
)