如何去除Mtext的textstring里面的格式字符

fagjob

例如：dim mtstring as string
dim mt as acadmtext
mtstring=mt.textstring
这样得到的字符串前面有一堆格式字符，如何用简单的方法去掉只留下有用的内容？求教高手，本人新人啊呵呵。

chmenf087

没有简单的办法，自己编个function用不常用字符替代格式字符

齐天大圣3386

正则表达式替换吧。

pyt5208

炸开就可以了

wwswwswws

'以下此过程非我所写，网上收集，感谢网友。
Private Function GetMTextUnformatString(MTextString As String) As String
    Dim s As String
    Dim RE As Object
    ' 获取Regular Expressions组件
    Set RE = ThisDrawing.Application.GetInterfaceObject("Vbscript.RegExp")
    ' 忽略大小写
    RE.IgnoreCase = True
    ' 搜索整个字符串
    RE.Global = True
    s = MTextString
   
    '替换\\字符
    RE.Pattern = "[url=]\\\\[/url]"
    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 = "[url=file://\\S(.[^;]*)(\^|#|\\]\\S(.[^;]*)(\^|#|\\[/url])(.[^;]*);"
    s = RE.Replace(s, "$1$3")
    '删除字体、颜色、字高、字距、倾斜、字宽、对齐格式
    RE.Pattern = "(\\F|\\C|\\H|\\T|\\Q|\\W|\\A)(.[^;]*);"
    s = RE.Replace(s, "")
    '删除下划线、删除线格式
    RE.Pattern = "(\\L|\\O|\\l|\\o)"
    s = RE.Replace(s, "")
    '删除不间断空格格式
    RE.Pattern = "\\~"
    s = RE.Replace(s, " ")
    '删除换行符格式
    RE.Pattern = "\\P"
    s = RE.Replace(s, "")
    '删除换行符格式(针对Shift+Enter格式)
    RE.Pattern = vbLf
    s = RE.Replace(s, "")
    '删除{}
    RE.Pattern = "({|})"
    s = RE.Replace(s, "")
   
    '替换回\\,\{,\}字符
    RE.Pattern = "\x01"
    s = RE.Replace(s, "\")
    RE.Pattern = "\x02"
    s = RE.Replace(s, "{")
    RE.Pattern = "\x03"
    s = RE.Replace(s, "}")
   
    Set RE = Nothing
   
    GetMTextUnformatString = s
End Function

革天明

请问在LISP中如何调用这些代码？
{\Fisocp,gbcbig|c134;\C1;更改砂号}，这里面只有更改砂号是有用字符，如何去掉这些MTEXT中的格式字符？

YAOSHIWEI

革天明 发表于 2012-2-2 17:51
请问在LISP中如何调用这些代码？
{\Fisocp,gbcbig|c134;\C1;更改砂号}，这里面只有更改砂号是有用字符，如 ...

{\Fisocp,gbcbig|c134;\C1;
是什么意思

革天明

\F指的是字体，这里是Fisocp,gbcbig,C134是颜色，对应256种颜色中的第134个颜色,C1是红色，小写c应该指的是RGB颜色，我说的比较乱，具体请见帮助里面的“在替换文字编辑器中设置多行文字的格式”，但帮助也不全，需要自己再摸索一下