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 '删除选择集

[阅读字体大小: 大中小]

[本日志由 admin 于 2014-04-14 08:33 AM 编辑]

引用通告地址 (0)：
复制引用地址

http://www.cnng.net/blog/trackback.asp?tbID=73
复制引用地址

http://www.cnng.net/blog/trackback.asp?tbID=73&CP=GBK