快速查找CAD内的文字

another2121

      本人在用CASS做地形图的时候，当图形文件很大的时候，通过FIND命令查找某一个文字的时候，CASS有的时候差不多要30多秒才找到。。。。严重影响本人做图的兴致。。。以至很少用或者干脆不用这个命令。但有的时候还真的是不得不用这个命令。。终于在忍无可忍的情况下，编写了这个小小的简单程序，支持通配符“*”。。。希望能够给与我有同感的朋友们解决一些小问题。。。。。另特别感谢caoyin版主的支持。。。

2. 
   
3. (defun c:BB(/ filz abc n abc a1)
   
4.   (setq filz (getstring"\n请输入查找的字符:\t"))
   
5.   (setq abc (ssget "x" (list(cons 1  filz))))
   
6.   (if abc
   
7.     (progn
   
8.    (setq n 0)
   
9.    (repeat (sslength abc)
   
10.    (setq a1 (ssname abc n))     
    
11.    (command "zoom" "o" a1 "")
    
12.    (getpoint)
    
13.    (setq n (1+ n))
    
14.   )   )
    
15.     (alert"查找的内容不存在！！")  )
    
16. (princ)
    
17.   )

<br /> (defun c:BB(/ filz abc n abc a1)<br />   (setq filz (getstring"\n请输入查找的字符:\t"))<br />   (setq abc (ssget "x" (list(cons 1  filz))))<br />   (if abc<br />     (progn<br />    (setq n 0)<br />    (repeat (sslength abc)<br />    (setq a1 (ssname abc n))     <br />    (command "zoom" "o" a1 "")<br />    (getpoint)<br />    (setq n (1+ n))<br />   )   )<br />     (alert"查找的内容不存在！！")  )<br /> (princ)<br />   )

jiangmingxiu

错误: 输入的字符串有缺陷
是什么原因

xujinhua

同行，谢谢，很实用

gzbccy

another2121 发表于 2011-2-23 19:09
本人在用CASS做地形图的时候，当图形文件很大的时候，通过FIND命令查找某一个文字的时候，CASS有的时 ...

用你的加载程序，文字好像只能查找用单文字格式书写的文字，如果用MTEXT命令中的文字则无法找到。查找必须对应所有文字方能找到，若有些文字我只记得其中某些字段而查找这些字段的话则无法找到。而且无法使用修改替换啊。

xiaxiang

希望增加一个简单的替换功能

another2121

回复 gzbccy 的帖子

  可以解决。。。比如字段里面有一个“S"，你可能使用“ *S* ”这种方式。。。只是可能要注意字母的大小写问题。。

another2121

回复 xiaxiang 的帖子

       想法很好。。。。实现起来，其实也很简单。。。

gzbccy

回复 another2121 的帖子

哦，要是能增加文字替换功能会更加强大哦。

湜１只鱼

程序很不错  查找速度快

潇湘飞雨

支持增加替换功能

hhc

这一句不能执行(command "zoom" "o" a1 "")，关键字o无效。

ymcui

能不能这样查找方式:完整的字符626426030500，只要输入30500这能找到所有带30500的字找出