;;;统计表中重复项个数 by Xran
(defun Xr:sumlist (l / item result x)
  (foreach x l
    (if (setq item (assoc x result))
      (setq result (subst (cons x (1+ (cdr item))) item result))
      (setq result (append result (list (cons x 1))))
    )
  )
)
;;;效率更高的统计重复项 by x_s_s_1
(defun tj(lst / a tt n)
  (while lst(setq n(length lst)a(car lst))
  (setq lst(vl-remove a lst))
  (setq tt(cons(cons a (- n (length lst)))tt)))
)