【問題】請問幾何公差物件的轉換

最近上班從另一個廠商拿到圖需要統計零件的數量，結果標註零件的方式是用幾何公差(指令:TOLERANCE)的物件來寫(應該是因為有文字框才用的吧)，這個沒辦法直接做統計，在修改上也很麻煩，所以我自己改成圖塊屬性的方式，但是數量實在太多，粗估上千個吧，想請教有沒有快速的方法

以下是我的檔案，想把左邊的物件轉成右邊圖塊的方式
https://drive.google.com/drive/folders/1eEygRBB5L2Pwuse6xpwcaBMG1yc3lZ_Y?usp=sharing

麻煩各路大佬解惑

這個AutoCAD沒有可以轉換的指令功能...
上千個只能考慮委外開發LSP程式😅

Option Explicit

Public tm As AcadModelSpace ' 設 tm 簡化名稱圖紙空間
Public tu As AcadUtility
Public pi As Double

Public Sub test()

On Error Resume Next

ThisDrawing.SendCommand "ucs" & vbCr & "w" & vbCr
ThisDrawing.SendCommand "undo" & vbCr & "be" & vbCr
pi = 3.141592 / 180

Set tm = ThisDrawing.ModelSpace: Set tu = ThisDrawing.Utility

Dim tol As AcadTolerance
Dim blkref_obj As AcadBlockReference
Dim att As Variant
Dim i_count As Integer
Dim new_text As String
Dim char_obj As String
Dim basePnt As Variant

Do While True

tu.GetEntity tol, basePnt, "請選取 TOLERANCE !! < ESC 結束 > "

If Err <> 0 Then Exit Sub

For i_count = 1 To Len(tol.TextString)

   char_obj = Mid(tol.TextString, i_count, 1)

   If char_obj <> "%" And char_obj <> "v" Then new_text = new_text & char_obj

Next i_count

Dim new_blkref As AcadBlockReference

Set new_blkref = tm.InsertBlock(tol.insertionPoint, "COM", 1.8336, 1.8336, 1, 0)

att = new_blkref.GetAttributes

att(0).TextString = new_text: new_blkref.Update

tol.Delete

Loop

ThisDrawing.SendCommand "undo" & vbCr & "e" & vbCr

End Sub