CAD图中所有选中的文字数字的自动求和

在CAD VBA就这么简单，可以计算出文字数字的和，单行文字框就去掉中间的“M”即可

'CAD图中所有选中的文字数字自动求和

Dim oEnt As Object
Dim mm As Double
mm = 0
Dim sset As AcadSelectionSet '定义选择集对象
bb = Str(Int(Timer)) '用从午夜消逝的秒数命名选择集名,因为秒数不会重复,所以集名不会重复,即使不执行后面的"ss_d选择集.Clear ""ss_d选择集.Delete "也不会出错"
Set sset = Acadapp.ActiveDocument.SelectionSets.Add(bb)  '新建一个选择集
sset.SelectOnScreen '"提示用户选择"

For Each oEnt In sset '集中循环
  If (TypeOf oEnt Is AcadMText) Then
    mm = mm + Val(oEnt.TextString)
  End If
Next
MsgBox "选中的所有文字数字的和＝" & Format(mm, "0.0000"), vbOKOnly, "文字数字的和"

sset.Delete '删除选择集