yuzheng318 发表于 2004-5-17 14:07:00

关于字符串查找（急）

各位大侠：


现有一张CAD图上表注了很多零件名（单行文字的形式出现且不属于任何一个块），<BR>另外有一份与CAD图相对应的EXCEL明细表，请问能否通过VB或VBA程序实现把整个明细表<BR>中的零件（字符串）用查找（FIND）命令找到其相应在CAD图中的零件，而不用<BR>一个一个的输那么麻烦，还有如果找到就跳过，如果找不到就在明细表中相应零件处作标记。<BR>关键我要问的就是是否能利用程序完成一个序列的字符串自动查找并显示找不到的字符串？能否给出程序代码？


小弟在此谢先啦！！！<BR>

雪山飞狐_lzh 发表于 2004-5-17 14:45:00

选择集＋过滤器


Sub test()


'查找所有的单行文字，且包含文字”123“<BR>Dim ss As AcadSelectionSet<BR>Set ss = ThisDrawing.ActiveSelectionSet<BR>ss.Clear<BR>Dim ft(1) As Integer, fd(1) As Variant<BR>ft(0) = 0: fd(0) = "Text"<BR>ft(1) = 1: fd(1) = "*123*"<BR>ss.Select acSelectionSetAll, , , ft, fd<BR>MsgBox ss.Count


End Sub<BR>

clement 发表于 2004-5-18 08:07:00

遍历模型空间的所有实体,判断类型是单行文字的话取Text属性,


在Excel中明细表所有零件先都做上记号,找到一个就把记号去了,到最后看哪个记号没去就是没有找到.

rensd 发表于 2012-8-30 19:46:08

好，终于找到了，好像正是我需要的。

sscylh 发表于 2012-9-10 21:21:31

建立选择集,(0 . "text"),然后for each in ss 取其text值,加入字典d,然后再在excel中循环,判断单元格是否d.exists即可!
页: [1]
查看完整版本: 关于字符串查找（急）