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

qsl707 发表于 2006-9-4 08:27:00

如果不爆炸，那位兄弟有好办法

mayuezxl 发表于 2006-9-4 09:25:00

先获得多行文本的属性，然后再写成单行文字（同时删除多行文本），就可以了

yuangw1234 发表于 2006-9-4 12:06:00

获得的方法为textstring属性,如dim tx as acadmtext,则可以用tx.textstring获得内容

qsl707 发表于 2006-9-4 17:17:00


这样是不行的，英文的当然可以了，只要有汉字就行不通了，里面就多出很多东西（当然是文本的一些格式信息），不信你可试试看
页: [1]
查看完整版本: 多行文本如何转换为单行文本