您的位置:网站首页 > CAD新闻

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

时间:2009-12-22 22:50:48 来源:

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