如何提取块中的数字

bjbjbjbj · 发表于 2009-1-6 09:30:00

如图所示，图右边为要提取的文字，为块参照
我要提取标记为H 的数字，其中有提示H0的为整数部分。我的代码如下：
For Each ent In ssetObj
If StrComp(ent.ObjectName, "AcDbBlockReference", 1) = 0 Then
RetVal = ent.GetAttributes
For i = LBound(RetVal) To UBound(RetVal)
      If UCase(RetVal(i).TagString) = TextBox1.text Then
               a = RetVal(i).textstring
            coorpoint = RetVal(i).insertionpoint
      End If
      If UCase(RetVal(i).PromptString) = TextBox2.text Then
      b = RetVal(i).textstring
               End If
Next
coorpoint(2) = b + a / 10
End If
上面的textbox1.text 可以输入为标记名称，TextBox2.text 作为输入提示名称
以上代码好像只能提取小数部分，整数部分不能提取出来。
请各位高手解答！！不胜感激

luk4bqa4ykc.GIF

bjbjbjbj · 发表于 2009-1-6 15:11:00

研究半天，自己解决。程序如下，不必输入标记和提示名称了，数据提取成功。就是不知道能否通用。各位有什么更好的方法啊
If i = LBound(RetVal) Then
         a = RetVal(i).textstring
         Else
         If i = 1 Then
         b = RetVal(i).textstring
         End If
         End If
         coorpoint = RetVal(i).insertionpoint
Next i

coorpoint(2) = a + b / 10

如何提取块中的数字

发表回复

精选推荐