检测重复的多行文字字符串

mickeforsberg · 发表于 2022-7-5 15:22:48

你好

我也在Autodesk论坛上发布了这篇文章，但我想我可能会在这里得到更好的回复。

有什么方法可以检测多行文字条目，或者如果不能检测多行文字，只检测文字？
假设我在绘图中放置了数百个多行文字条目，但它们必须是唯一的。例如：

1.100
1.101
1.102
1.103
1.104

等等

有没有办法快速找到重复条目并突出显示它们，或者列出它们？例如，如果1.100在图形中使用了两次。

我知道我可以使用FIND，但由于我不知道哪个字符串是重复的，这将花费很长时间，因为我必须把每个字符串放进去，看看是否有重复的，如果我没有错的话？

有什么想法吗？
谢谢

DGRL · 发表于 2022-7-5 15:29:35

出乎意料地
没有任何测试

（setq a（ssget“x”'（（0。“TEXT，MTEXT，RTEXT”）））
（setq aa（如果a
（重复（setq i（sslength a））
（setq l（cons（ssname a（setq i（1-i）））l））
)
))
（foreach x l
（如果（=（cdr（assoc 1（entget x）））（vl位置（cdr（assoc 1（entget x））））（cdr（assoc 1（entget（car l 107;）а）а）
（打印x）
))

DGRL · 发表于 2022-7-5 15:35:53

自己测试后发现代码需要修改
现在不能正常工作

SLW210 · 发表于 2022-7-5 15:41:31

请阅读代码发布指南，并将您的代码包含在代码标签中。[NOPARSE]

copy

Your Code Here[/NOPARSE]

=

copy

Your Code Here

ronjonp · 发表于 2022-7-5 15:49:25

下面是一个快速示例：

copy

(defun c:foo (/ e msg out s tm)
 (cond
   ((setq s (ssget "_A" '((0 . "MTEXT,TEXT"))))
    (setq s (mapcar '(lambda (x) (cons x (strcase (cdr (assoc 1 (entget x))))))
             (mapcar 'cadr (ssnamex s))
     )
    )
    (setq out (ssadd))
    (while (setq e (car s))
      (setq s (cdr s))
      (if (setq tm (vl-remove-if-not '(lambda (x) (wcmatch (cdr e) (cdr x))) s))
 (progn
   (setq msg (cons (cons (cdr e) (1+ (length tm))) msg))
   (foreach x (append (list e) tm) (setq out (ssadd (car x) out)) (setq s (vl-remove x s)))
 )
      )
    )
    (sssetfirst nil out)
    (mapcar 'print (vl-sort msg '(lambda (a b) (< (car a) (car b)))))
   )
 )
 (princ)
)