已解决：查找文字后，定位并统计数量

注册

厉害，下来用用啊

101旳丶回忆

429014673

yjr111 发表于 2011-7-30 13:29
可以的，请使用下面的代码即可。
;选中文字做圆圈标记并显示数量 明经 ZZXXQQ 2011.1.27
;yjr学习并修改  ...

严哥,这个很厉害,可以帮忙搞一个可以亮显的,没有画圆的吗?...我想找出相同的编号进行下一步操作....例如改图作,复制等....

革天明

谢谢楼主分享

yjr111

429014673 发表于 2012-5-14 19:54
严哥,这个很厉害,可以帮忙搞一个可以亮显的,没有画圆的吗?...我想找出相同的编号进行下一步操作....例如改 ...

2. ;;;简易查找文本并亮显 by yjr111 2012-5-14
   
3. (defun c:ttz (/ stxt s1 ent ss )
   
4. (setq stxt (getstring "\n输入要查找的文本<右键选取>或设置(S):"))
   
5. (cond ((or(= stxt "S")(= stxt "s"))
   
6.         (initget"All Same")
   
7.         (setq key (getkword "\n相似全选(All)或完全匹配(Same)"))
   
8.         (if (not key)
   
9.          (setq key "Same")
   
10.         )
    
11.         (setq stxt (getstring "\n输入要查找的文本<右键选取>或设置(S):"))
    
12.        )
    
13.   )
    
14.   (cond((and (= stxt "")
    
15.              (setq s1 (entsel "\n选择标记 :"))
    
16.              (setq ent (entget (car s1)))
    
17.              (= (cdr (assoc 0 ent)) "TEXT")
    
18.         )
    
19.         (redraw (car s1) 3)
    
20.         (setq stxt (cdr (assoc 1 (entget (car s1)))))
    
21.        )
    
22. )
    
23. (princ"\n选择文本的查找范围")
    
24. (if (= key "Same")
    
25.   (setq ss (ssget (list '(0 . "TEXT") (cons 1 (strcat stxt)))))
    
26.   (setq ss (ssget (list '(0 . "TEXT") (cons 1 (strcat "*" stxt "*")))))
    
27. )
    
28. (if (and ss (> (sslength ss) 0))
    
29.   (progn (princ (list "\n总共找到" (sslength ss) "处"))
    
30.          (sssetfirst ss ss)
    
31.   )
    
32. )
    
33. (princ)
    
34. )
    

;;;简易查找文本并亮显 by yjr111 2012-5-14<br /> (defun c:ttz (/ stxt s1 ent ss )<br /> (setq stxt (getstring "\n输入要查找的文本<右键选取>或设置(S):"))<br /> (cond ((or(= stxt "S")(= stxt "s"))<br />         (initget"All Same")<br />         (setq key (getkword "\n相似全选(All)或完全匹配(Same)"))<br />         (if (not key)<br />          (setq key "Same")<br />         )<br />         (setq stxt (getstring "\n输入要查找的文本<右键选取>或设置(S):"))<br />        )<br />   )<br />   (cond((and (= stxt "")<br />              (setq s1 (entsel "\n选择标记 :"))<br />              (setq ent (entget (car s1)))<br />              (= (cdr (assoc 0 ent)) "TEXT")<br />         )<br />         (redraw (car s1) 3)<br />         (setq stxt (cdr (assoc 1 (entget (car s1)))))<br />        )<br /> )<br /> (princ"\n选择文本的查找范围")<br /> (if (= key "Same")<br />   (setq ss (ssget (list '(0 . "TEXT") (cons 1 (strcat stxt)))))<br />   (setq ss (ssget (list '(0 . "TEXT") (cons 1 (strcat "*" stxt "*")))))<br /> )<br /> (if (and ss (> (sslength ss) 0))<br />   (progn (princ (list "\n总共找到" (sslength ss) "处"))<br />          (sssetfirst ss ss)<br />   )<br /> )<br /> (princ)<br /> )<br />

429014673

yjr111 发表于 2012-5-14 21:29

严哥，你帮我改的那个查找好像# * 这些常用的符号没法操作，请班忙改一个。。。谢谢。。。

梦醒才知原是梦

确实不错的功能.很实用.谢谢了

429014673

429014673 发表于 2012-5-16 10:17
严哥，你帮我改的那个查找好像# * 这些常用的符号没法操作，请班忙改一个。。。谢谢。。。

不屁孩一个呢，对LSP深知不熟，还得大师帮忙了。

Nico

我顶   很实用   

gao051525

yjr111 发表于 2012-5-14 21:29

这个程序太给力了，帮大忙了