CAD單行文本數字求和

代碼部分

新建代碼片段
將以下代碼複製到
Sub xx()
End Sub
之間即可

    Dim oEnt As Object
    Dim mm As Double
    mm = 0
    Dim sset As AcadSelectionSet '定義選擇集對象
    bb = Str(Int(Timer))
    Set sset = ThisDrawing.SelectionSets.Add(bb)  '新建一個選擇集
    sset.SelectOnScreen '"提示用戶選擇"
    For Each oEnt In sset '集中循環
        'oEnt.color = acByLayer
        '類型爲單行文本，測試多行文本未通過，多行文本可使用`分解`命令
        If (TypeOf oEnt Is AcadText) Then
            mm = mm + Val(oEnt.TextString)
        End If
    Next
    MsgBox "選中的所有文字數字的和＝" & Format(mm, "0.0000"), vbOKOnly, "文字數字的和"
    
    sset.Delete '刪除選擇集

#部分代碼片段來自網絡
順便哪位大佬能告訴我這個VBA怎麼輸出到命令行啊，老是用MsgBox也不是個事