雪山飞狐_lzh 发表于 2004-6-26 14:17:00

为什么不用FileSystemObject，对于文本文件FileSystemObject类是强项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 发表于 2004-6-26 16:57:00

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

雪山飞狐_lzh 发表于 2004-6-26 17:03:00

FileSystemObject要引用


<BR>       

petty 发表于 2004-6-26 19:00:00

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

crazylsp 发表于 2013-3-25 17:33:01

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

I大仙I 发表于 2013-10-17 15:17:25

学习一下。。。。。。。。。
页: 1 [2]
查看完整版本: 求教VBA中写mtext