Edit Text bị lag

[mourison1993 7]

Mỗi lần Edit text là phải đợi 3 đên 4s, đã thử nhiều cách nhưng không khắc phục được, quá chán nãn, phải viết VBA để Edit Text :v ....

 Sub ED() 'EDIT TEXT
    Dim Obj As Object
    Dim pnt As Variant
    On Error Resume Next

    ' Chon text can chinh sua
    ThisDrawing.Utility.GetEntity Obj, pnt, VniToUni("Choïn ñoái töôïng Text: ")
    If Obj Is Nothing Then
        MsgboxUni VniToUni("Chöa choïn ñoái töôïng!"), vbExclamation, "Thông báo"
        Exit Sub
    End If

    Dim TEXT As AcadText
    If Obj.ObjectName = "AcDbText" Or Obj.ObjectName = "AcDbMText" Then
        Set TEXT = Obj
        TEXT.TextString = InputBox("Enter text content:", "EDIT TEXT", TEXT.TextString)
        TEXT.Update
        
    Else
        MsgboxUni VniToUni("Ñoái töôïng khoâng phaûi Text!"), vbCritical, "Error"
        Exit Sub
    End If

End Sub