[编程交流] 请帮助提高cod

(defun c:test( / Layer sslst numlst num)
  (defun ss->EnLst (ss / retu)
      (setq retu (apply 'append (ssnamex ss)))
      (setq retu (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) retu))
  )
 (setq K (getint "\n SUM<1>,Quadrature<2>,Maximum <3>,Minimum<4>"))
 (setq sslst (ss->EnLst (ssget (list (cons 0 "TEXT") (cons 1 "~*[~`--9]*")))))
 (setq numlst (mapcar '(lambda(x) (atof (cdr (assoc 1 (entget x))))) sslst))
 (cond
     ((= K 1)(setq num (apply '+ numlst)))
     ((= K 2)(setq num (apply '* numlst)))
     ((= K 3)(setq num (apply 'max numlst)))
     ((= K 4)(setq num (apply 'min numlst)))
     (T (setq num (apply '+ numlst)))
 )
 (princ num)
 (princ)
)

(defun c:test ( / f i n r s )
   (initget "Sum Quad Max Min")
   (setq f
       (cond
           (   (eval (cdr (assoc (getkword "\n[sum/Quad/Max/Min] <Sum>: ") '(("Sum" . +) ("Quad" . *) ("Max" . max) ("Min" . min))))))
           (   +   )
       )
   )
   (if (setq s (ssget '((0 . "TEXT") (1 . "~*[~`--9]*"))))
       (repeat (setq i (sslength s))
           (setq n (atof (cdr (assoc 1 (entget (ssname s (setq i (1- i)))))))
                 r (if r (f n r) n)
           )
       )
   )
   (princ r)
   (princ)
)

(defun c:test( / Layer sslst numlst num)
  (defun ss->EnLst (ss / retu)
      (setq retu (apply 'append (ssnamex ss)))
      (setq retu (vl-remove-if-not '(lambda (x) (= (type x) 'ENAME)) retu))
  )
 (setq K (getint "\n SUM<1>,Quadrature<2>,Maximum <3>,Minimum<4>"))
 (setq sslst (ss->EnLst (ssget (list (cons 0 "*TEXT,DIMENSION") (cons 1 "~*[~`--9]*")))))
 (setq numlst (mapcar '(lambda(x)
(if (= "DIMENSION" (cdr (assoc 0 (entget x))))
  (cdr (assoc 42 (entget x)))
  (atof (cdr (assoc 1 (entget x)))))) sslst))
 (cond
     ((= K 1)(setq num (apply '+ numlst)))
     ((= K 2)(setq num (apply '* numlst)))
     ((= K 3)(setq num (apply 'max numlst)))
     ((= K 4)(setq num (apply 'min numlst)))
     (T (setq num (apply '+ numlst)))
 )
 (princ num)
 (princ)
)

(setq K (getint "\n SUM<1>,Quadrature<2>,Maximum <3>,Minimum<4>,Average<5>"))

((= K 5)(setq num (/ (apply '+ numlst) (length numlst))))