another2121 发表于 2011-2-23 19:09:35

快速查找CAD内的文字

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

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

jiangmingxiu 发表于 2021-10-23 16:14:04

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

xujinhua 发表于 2019-1-20 10:54:36

同行，谢谢，很实用

gzbccy 发表于 2011-2-24 15:11:47

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

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

xiaxiang 发表于 2011-2-24 16:14:54

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

another2121 发表于 2011-2-24 16:19:11

本帖最后由 another2121 于 2011-2-24 17:42 编辑

回复 gzbccy 的帖子

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

another2121 发表于 2011-2-24 16:20:32

回复 xiaxiang 的帖子

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

gzbccy 发表于 2011-2-26 08:07:25

回复 another2121 的帖子

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

湜１只鱼 发表于 2013-3-24 14:21:25

程序很不错查找速度快

潇湘飞雨 发表于 2013-3-24 16:41:35

支持增加替换功能

hhc 发表于 2013-3-27 14:34:15

本帖最后由 hhc 于 2013-3-27 14:35 编辑

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

ymcui 发表于 2013-11-22 14:32:31

能不能这样查找方式:完整的字符626426030500，只要输入30500这能找到所有带30500的字找出
页: [1] 2
查看完整版本: 快速查找CAD内的文字