在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 '刪除選擇集