李书生 发表于 2012-3-16 10:21:00

如何用CAD VBA实现在指定区域搜索文字并显示文字内容

请教各位老师：
    如何在指定区域搜索文字并显示文字内容？用CAD VBA实现。
谢谢！

wwswwswws 发表于 2012-4-13 12:29:57

Set ss_ob = CreateSelectionSet("ssss")                                    '建一 个选择集有文字过滤来选择文字
mode = acSelectionSetWindow          'acSelectionSetCrossing      '设成框选
FilterType(0) = -4:FilterData(0) = "<or"
FilterType(1) = 0:   FilterData(1) = "MText"
FilterType(2) = 0:   FilterData(2) = "Text"
FilterType(3) = -4:FilterData(3) = "or>"
groupCode = FilterType
dataCode = FilterData

    corner1(0) = dDeltX(i) - 25: corner1(1) = dDeltY(i) + 17: corner1(2) = 0      '框选左上角坐标
    corner2(0) = dDeltX(i): corner2(1) = dDeltY(i) + 11: corner2(2) = 0             '框选右下角坐标
    ss_ob.Select mode, corner1, corner2, groupCode, dataCode                         '框选对象
    If ss_ob.Count > 0 Then                                                                      '大于0说明有文字对象选中
       sName = ss_ob.Item(0).ObjectName
       If sName = "AcDbText" Then                      '判断文字类型
          Set oText = ss_ob.Item(0)
          sPage = oText.TextString                        '取回文字
          '在此加入文字比较代码就可以了
       End If
    End If
    ss_ob.Clear
ss_ob.Delete
这只是给了一个思路，看能不能帮到你的忙。

cbmpeter 发表于 2012-6-3 13:35:34

实用代码，赞二楼好人。
页: [1]
查看完整版本: 如何用CAD VBA实现在指定区域搜索文字并显示文字内容