用选择集一次性判断数字文字

黄玉宏

      我需要选择仅仅为数字的单行或多行文字，我只会先做选择集，然后在选择集中循环，再在循环中用IsNumeric(X)判断！能不能用选择集一次性判断，就是将IsNumeric(X)加入到选择集中。这样的好处：选择是能立即看出有多个数字，非数字型文字不会选择！

 谢谢各位！

黄玉宏  二○○九年八月六日

雪山飞狐_lzh

只选择是数字的text/mtext的过滤器

[复制代码到剪贴板]

    0, "*Text",
     1, "~*[~.0-9]*",
     1, "~*.*.*"

黄玉宏

谢谢版主，试了一下不行！还请你再次给予指示！

谢谢！

Public Sub BuildFilter(typeArray, dataArray, ParamArray gCodes())  '建立过滤代码子程序
Dim ftype() As Integer, fdata()     '用数组方式填充一对变量作为选择集过滤器使用
Dim index As Long, i As Long
index = LBound(gCodes) - 1
For i = LBound(gCodes) To UBound(gCodes) Step 2
index = index + 1
ReDim Preserve ftype(0 To index)
ReDim Preserve fdata(0 To index)
ftype(index) = CInt(gCodes(i))
fdata(index) = gCodes(i + 1)
Next
typeArray = ftype: dataArray = fdata
End Sub

Sub bb()
On Error Resume Next
Dim SS As AcadSelectionSet
ThisDrawing.SelectionSets("Test").Delete
Set SS = ThisDrawing.SelectionSets.Add("Test")
Dim ftype, fdata
BuildFilter ftype, fdata, 0, "*Text", 1, "~*[~.0-9]*", 1, "~*.*.*"
SS.SelectOnScreen ftype, fdata
MsgBox SS.Count
End Sub
症状：一个数字都选择不了！

fjfhgdwfn

我这可以的。"123.5"是可以的。如果是"12.5w"  就不行的

黄玉宏

我这儿还是不行啊！三楼能否直接将DVB文件发给653194278@qq.com，让我测试一下！

真是怪了！谢谢！

黄玉宏 二○○九年八月七日

fjfhgdwfn

我是直接把他拷贝到VBA中就可以运行了

烟雨.江南

我试过了，可以选到。

楼主的数字文本里是不是带了空格？有空格就选不中。带有格式的多行文本也选不中。

黄玉宏

谢谢烟雨江南！非常感谢！完全正确！同时也非常感谢版主！