Lee Mac 发表于 2022-7-6 09:03:21

还有一个变体。。。
 
(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)
)

teknomatika 发表于 2022-7-6 09:09:19

李·麦克，
隔离和删除重复实体可能很重要，将它们分配到自己的层将很有趣。

SLW210 发表于 2022-7-6 09:13:03

震动230，
 
请编辑您的帖子以包含代码标签。
页: 1 [2]
查看完整版本: 需要Lisp程序的帮助吗