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

黄玉宏 · 发表于 2009-8-6 16:27:00

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

雪山飞狐_lzh · 发表于 2009-8-6 17:22:00

只选择是数字的text/mtext的过滤器[url=javascript:copycode('mc39064')][复制代码到剪贴板][/url] 0, "*Text",
1, "~*[~.0-9]*",
1, "~*.*.*"

黄玉宏 · 发表于 2009-8-6 20:23:00

谢谢版主，试了一下不行！还请你再次给予指示！
谢谢！
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
症状：一个数字都选择不了！