请教高手怎样选择框内数字，并将他们相加，计算和是多少？ - VBA/VB/ActiveX/API 编程技术 - AutoCAD论坛 - 明经CAD社区 - 第2页

xinghesnak 发表于 2006-3-9 13:22:00

isnumber是VB自带的函数啊!有问题?

雪山飞狐_lzh 发表于 2006-3-9 13:51:00

Sub tt() On Error Resume Next Dim ss As AcadSelectionSet Dim ft(0) As Integer, fd(0) ThisDrawing.SelectionSets("Test").Delete Set ss = ThisDrawing.SelectionSets.Add("Test") ft(0) = 0: fd(0) = "*Text"     ss.SelectOnScreen ft, fd     textvalue = 0     For Each i In ss         If IsNumeric(i.TextString) Then            textvalue = textvalue + Val(i.TextString)         End If     Next     MsgBox "The result is:" & textvalue End Sub

xinghesnak 发表于 2006-3-9 14:56:00

呵呵!是IsNumeric不是IsNumber,记错了......

雪山飞狐_lzh 发表于 2006-3-22 22:01:00

这样可以只选择数据字符，就不用IsNumeric判断了
Sub tt() On Error Resume Next Dim ss As AcadSelectionSet Dim ft(2) As Integer, fd(2) ThisDrawing.SelectionSets("Test").Delete Set ss = ThisDrawing.SelectionSets.Add("Test") ft(0) = 0: fd(0) = "*Text" ft(1) = 1: fd(1) = "~*[~.0-9]*" ft(2) = 1: fd(2) = "~*.*.*"     ss.SelectOnScreen ft, fd     textvalue = 0     For Each i In ss            textvalue = textvalue + Val(i.TextString)     Next     MsgBox "The result is:" & textvalue End Sub

页: 1 [2]

明经CAD社区's Archiver