[编程申请]：文字重复检查

freefly

我是搞水的，对复杂工程立管多了会乱，希望有这样的lsp:对指定
图层的立管编号(文本，或块属性）进行检查，若有重复给出提示。如：pl-1出现两次，pl-2出现两次.那位有空帮写一下？

indal

如果管不多，可用find手工查

XDSoft

最初由 freefly 发布
[B]我是搞水的，对复杂工程立管多了会乱，希望有这样的lsp:对指定
图层的立管编号(文本，或块属性）进行检查，若有重复给出提示。如：pl-1出现两次，pl-2出现两次.那位有空帮写一下？ [/B]

你先用ACAD的FIND命令看看，是否能达到目的。

aeo

现写一个,是不是只要重复就提示?不统计重复次数

2. 
   
3. (defun c:find( / ss j len name li1 li2)
   
4. (setq ss(ssget '((0 . "*TEXT,ATTDEF") )))
   
5. (setq j 0 len(sslength ss) li1 '() li2 '() )
   
6. (while(< j len)(setq e(entget(ssname ss j)))
   
7. (setq name(cdr(assoc 1 e)))
   
8. (if(member name li1)
   
9.      (if(not(member name li2))(setq li2(cons name li2)))
   
10.      (setq li1(cons name li1))
    
11.   )(setq j(1+ j))
    
12. )
    
13. (princ li2)(princ)
    
14. )
    

<br /> (defun c:find( / ss j len name li1 li2)<br /> (setq ss(ssget '((0 . "*TEXT,ATTDEF") )))<br /> (setq j 0 len(sslength ss) li1 '() li2 '() )<br /> (while(< j len)(setq e(entget(ssname ss j)))<br /> (setq name(cdr(assoc 1 e)))<br /> (if(member name li1)<br />      (if(not(member name li2))(setq li2(cons name li2)))<br />      (setq li1(cons name li1))<br />   )(setq j(1+ j))<br /> )<br /> (princ li2)(princ)<br /> )<br />

注意,c: 和find间没空格,删了!我贴没办法

XDSoft

最初由 aeo 发布
[B]现写一个,是不是只要重复就提示?不统计重复次数
[code]
(defun c:find( / ss j len name li1 li2)
(setq ss(ssget '((0 . "*TEXT,ATTDEF") )))
(setq j 0 len(sslength ss) li1 '() li2 '() )
(while(< j le... [/B]

替你编辑了，大家贴东西如果发现有表情符号，在中间，那么编辑下帖子，把里面的“使用表情符”给去掉，就可以了。

ydf7332462

请在重复的地方画一粗线圆

efan2000

使用CAD的Find命令仅能查找Text和MText类型的文字，对于属性和属性引用就无能为力了。

freefly

感谢aeo，此程序已基本满足我的要求了。