本文介绍了一个使用VBA在AutoCAD中提取多行文字（MText）内容的函数GetMTextUnformatString。该函数通过正则表达式替换特定的控制字符，从而将格式化的MText字符串转换为纯文本。此外，还提供了一个子程序GetMTextString，用于选取图形中的MText对象并显示其提取后的文本。
Public Function GetMTextUnformatString(MTextString As String) As String
Dim s As String
Dim RE As Object
Set RE = ThisDrawing.Application.GetInterfaceObject("VBscript.RegExp")
RE.IgnoreCase = True
RE.Globa = True
s = MTextString
RE.pattern = "\\\"
s = RE.Replace(s, Chr(1))
RE.pattern = "\\{"
s = RE.Replace(s, Chr(2))
RE.pattern = "\\}"
s = RE.Replace(s, Chr(3))
RE.pattern = "\\pi(.[^;]*);"
s = RE.Replace(s, "")
RE.pattern = "\\pt(.[^;]*);"
s = RE.Replace(s, "")
RE.pattern = "\\s(.[^;]*)(\^|#|\\)(.[^;]*);"
s = RE.Replace(s, "$1$3")
RE.pattern = "(\\F|\\C|\\H|\\T|\\Q|\\W|\\A)(.[^;];"
s = RE.Replace(s, "")
最低0.47元/天 解锁文章
665
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
