请教大虾，如何在一个cad文件里查找给定的关键字？用vba

amberilee · 发表于 2003-7-22 19:43:00

拜托各位大虾了，这个问题困扰我好久，我想在一个dwg文件里查找给定的字符该怎么办？最好能有源码，谢谢~~~

myfreemind · 发表于 2003-7-22 23:36:00

Sub findstr()
'查找beer,替换为hello
Dim entity As AcadEntity
For Each entity In ThisDrawing.ModelSpace
If entity.TextString = "beer" Then
entity.TextString = "hello"
End If
Next
End Sub

amberilee · 发表于 2003-7-23 21:49:00

其实我不是要查找替换，我是要统计。而且我要找的是以关键字打头的字符，比如以autocad开头的字符有autocad1，autocad2…………一直到autocad100，我要把他们找出来再放到一个表格里，这对我来说太难了~~~~

myfreemind · 发表于 2003-7-23 23:18:00

哦,原来是这样,这个也不是很难,你再说详细一点,要放到什么样的表格了,我看能否写个程序给你!

amberilee · 发表于 2003-7-24 00:20:00

你真是大好人！！！！
是这样，我想开发机械制图的二次软件，用宏实现，因为画机械图最后总要生成一个图纸目录，图纸目录是在其他绘好的总图、零件图、部件图出来后编制的图，用A4纸，以表格的形式做一明细，图纸目录的内容包括图号、名称、图纸大小等内容，这些都要自动生成以填入表格。比如总图图号是ABC2003-00,以下各零部件图图号将会是ABC2003-01(ABC2003-01-01、ABC2003-01-02……)，ABC2003-02……ABC2003-50。我的初步构想是已知总图图号，对ABC2003开头的字符进行查找，假如找出来的不重复的字符有60个，对其进行排序（关于这点我还想不出什么好地解决办法，只是想能否动态生成数据库，将这些内容添加到数据库中，在数据库中进行排序，输出后再释放掉这个数据库），然后将这些字段全放到图纸目录表格模板中，由于一个表格只能容纳30项，图多的话还要分页。
说了这么多，不知大侠能否看明白，如能帮我解决这个问题，我会感激不尽~~~~~~先谢了