多行文本如何转换为单行文本

qsl707 · 发表于 2006-8-30 16:19:00

单行转换为多行很容易实现，但多行文本如何转换为单行文本，本来想通过爆炸实现，结果发现VBA不支持，怎么办？谢谢！

雪山飞狐_lzh · 发表于 2006-9-2 18:05:00

sendcommand

yuangw1234 · 发表于 2006-9-2 18:40:00

先得到多行方字的内容,然后重写

qsl707 · 发表于 2006-9-3 13:44:00

如何获得，能不能详细说明一下，楼上的兄弟

zhuxuhong · 发表于 2006-9-3 16:26:00

引自 http://xsfhlzh.139.com ,可参考
Private Function MToS(mtext As Variant) As Variant
'炸开MText并返回一个Text数组
Dim i As Integer
Dim ss As AcadSelectionSet
Dim pTexts As New Collection
ThisDrawing.ActiveSelectionSet.Clear
ThisDrawing.SendCommand "Explode" & vbCr & "(handent " & Chr(34) _
& mtext.Handle & Chr(34) & ")" & vbCr & vbCr
Set ss = ThisDrawing.ActiveSelectionSet
For i = 0 To ss.Count - 1
If UCase(ss(i).ObjectName) = "ACDBTEXT" Then pTexts.Add ss(i)
Next i
MToS = pTexts
End Function