[编程交流] 需要Lisp程序的帮助吗

(defun c:DupTxt ( / a e i l s x )
   (if (setq s (ssget "_:L" '((0 . "TEXT"))))
       (progn
           (repeat (setq i (sslength s))
               (setq e (entget (ssname s (setq i (1- i))))
                     x (cdr (assoc 1 e))
               )
               (if (setq a (assoc x l))
                   (setq l (subst (cons x (1+ (cdr a))) a l)
                         e (entmod (append e '((62 . 1))))
                   )
                   (setq l (cons (cons x 1) l))
               )
           )
           (foreach x l (if (< 1 (cdr x)) (print x)))
       )
   )
   (princ)
)