将数字求和的程序

mikewolf2k

Sub totalnumber()
Dim total As Double
total = 0
Dim ssetObj As AcadSelectionSet
Set ssetObj = CreateSelectionSet("numberobj")
Dim ftype, fdata
BuildFilter ftype, fdata, 0, "text"
ssetObj.SelectOnScreen ftype, fdata
For i = 0 To ssetObj.Count - 1
If IsNumeric(ssetObj.Item(i).TextString) Then
total = total + ssetObj.Item(i).TextString
Else
End If
Next i ssetobj.delete
ActiveDocument.Utility.Prompt "总和＝" & total
End Sub
Public Function CreateSelectionSet(Optional ssName As String = "ss") As AcadSelectionSet
'返回一个空白选择集

Dim ss As AcadSelectionSet

On Error Resume Next
Set ss = ThisDrawing.SelectionSets(ssName)
If err Then Set ss = ThisDrawing.SelectionSets.Add(ssName)
ss.Clear
Set CreateSelectionSet = ss
End Function
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

mikewolf2k

参考了subtlation的相关程序,在此感谢! 将所选图元中的内容为数字的字符求和,对统计材料有一定帮助.

subtlation

好程序，很简洁。提个小建议，最好在程序的结束前加上：ssetobj.delete


这样可以清除选择集。

mikewolf2k

已改过,谢谢.


现在框选时是将所有的文本都选中,能不能做到只选中内容为数字的文本?

06622

我不会用，谁教我一下好吗？

06622

我很需要这个程序，可是我不会用，希望谁帮我解答一下！万分感谢！

jinminga

能不能将求得的结果以指定位置写入图中

06622

怎么加载这个程序，哪位大侠帮忙！

chb81

学习中

cqy

对于如：DN50-100，没法统计，能不能改进呢？