求教VBA中写mtext

雪山飞狐_lzh

为什么不用FileSystemObject，对于文本文件FileSystemObject类是强项

2. Sub h()Dim str As String
3. Dim fso As New FileSystemObject
4. Dim ts As TextStream
5. Dim MTextObj As AcadMTextSet ts = fso.OpenTextFile("c:\1.txt")
6. str = Replace(ts.ReadAll, vbCrLf, "\P")
7. ts.Closepnt = ThisDrawing.Utility.GetPoint
8. Set MTextObj = ThisDrawing.ModelSpace.AddMText(pnt, 0, str)End Sub

Sub h()Dim str As String Dim fso As New FileSystemObject Dim ts As TextStream Dim MTextObj As AcadMTextSet ts = fso.OpenTextFile("c:\1.txt") str = Replace(ts.ReadAll, vbCrLf, "\P") ts.Closepnt = ThisDrawing.Utility.GetPoint Set MTextObj = ThisDrawing.ModelSpace.AddMText(pnt, 0, str)End Sub

petty

上面的原码运行后提示类示定义，我想还是用单行文本吧，单行文本没这个问题

雪山飞狐_lzh

FileSystemObject要引用

petty

终于搞定了，感谢大家，这里的高手实在太多，特别是版主，简直无所不能，
我学cad多年，真是井底之蛙了，一到明经才发现自己的缈小。要学的东西实
在太多了。

crazylsp

text = text & a$ & vbCrLf
将上面的vbCrLf使用"\P"代替，在多行文字中是使用\P来表示换行的。

收下了更习惯vbCrLf

I大仙I

学习一下。。。。。。。。。