子过程或函数未定义GetMTextUnformatString

更新时间：2018-09-23 10:58:59 140次访问

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这个函数是别人自已定义的

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