在CAD VBA就這么簡(jiǎn)單，可以計(jì)算出文字?jǐn)?shù)字的和，單行文字框就去掉中間的“M”即可

'CAD圖中所有選中的文字?jǐn)?shù)字自動(dòng)求和

Dim oEnt As Object
Dim mm As Double
mm = 0
Dim sset As AcadSelectionSet '定義選擇集對(duì)象
bb = Str(Int(Timer)) '用從午夜消逝的秒數(shù)命名選擇集名,因?yàn)槊霐?shù)不會(huì)重復(fù),所以集名不會(huì)重復(fù),即使不執(zhí)行后面的'ss_d選擇集.Clear ''ss_d選擇集.Delete '也不會(huì)出錯(cuò)'
Set sset = Acadapp.ActiveDocument.SelectionSets.Add(bb)  '新建一個(gè)選擇集
sset.SelectOnScreen ''提示用戶選擇'

For Each oEnt In sset '集中循環(huán)
  If (TypeOf oEnt Is AcadMText) Then
    mm = mm + Val(oEnt.TextString)
  End If
Next
MsgBox '選中的所有文字?jǐn)?shù)字的和＝' & Format(mm, '0.0000'), vbOKOnly, '文字?jǐn)?shù)字的和'

sset.Delete '刪除選擇集