将数字求和的程序

mikewolf2k

你想怎么统计？

cqy

比如：100-DN50，50-DN50.....等分布在图面上,统计100+50+...

mikewolf2k

你这个要专门编程的话可以实现。建议你看看这个：http://www.mjtd.com/mcdown/list.asp?id=511

lzws03

版主，现在好多工具箱里都集成了这个功能了，但都是对于单行文字有效，对于多行文字无效，不知道您这个程序怎么样，下载下来回去试试再说吧。

xuelinhe

如何加载啊？请教！！！

wusulizhi

谢谢了，

dianbotang

cqy发表于2005-4-1 14:09:00比如：100-DN50，50-DN50.....等分布在图面上,统计100+50+...

实现这个很简单，把楼主的程序稍作修改就可以了。

可用于单行文字和多行文字。

根据需要自行修改过滤条件。

'数字求和
Sub totalnumber()
    Dim total As Double
    total = 0
    Dim ssetObj As AcadSelectionSet
    Set ssetObj = CreateSelectionSet("numberobj")
    Dim fType, fData
    BuildFilter fType, fData, 0, "*text", 1, "*DN50"
    ssetObj.SelectOnScreen fType, fData
    For i = 0 To ssetObj.Count - 1
        total = total + Val(ssetObj(i).TextString)
    Next
   
    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

chamous

返回值是零.

scf0413

大哥们能否提供个C#求和的代码啊?供小弟学习学习

mp3_2004

文字求和，留着备用