子过程或函数未定义GetMTextUnformatString

更新时间2018-09-23 10:58:59

Option Explicit

Public Sub GetMTextString()

Dim objMText As AcadMText

Dim ptPick As Variant

ThisDrawing.Utility.GetEntity objMText, ptPick

 

MsgBox GetMTextUnformatString(objMText.TextString)

End Sub

你参考了别人的程序,但不完整

你程序中的 GetMTextUnformatString这个函数是别人自已定义的

你要有它完整的程序才可以