如何使用VB 或vba 把一段文字写入dwg？

murphyr

比如，往上面的dwg文件写入几行文字


“我终于能够写入了”


“我终于能够写入了”


由于初学，

拜求示例

murphyr

往这个图上底部写就成，我不会555@$#!

alin

帮助文件里都有，多点看。

2. Option ExplicitSub Example_AddMtext()
3.        ' This example creates an MText object in model space.
4.       
5.        Dim MTextObj As AcadMText
6.        Dim corner(0 To 2) As Double
7.        Dim width As Double
8.        Dim text As String
9.        corner(0) = 0#: corner(1) = 10#: corner(2) = 0#
10.        width = 10
11.        text = "我终于能够写入了" & vbCrLf & "我终于能够写入了"       ' Creates the mtext Object
12.        Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)
13.        ZoomAll
14.       
15. End Sub

Option ExplicitSub Example_AddMtext()        ' This example creates an MText object in model space.               Dim MTextObj As AcadMText        Dim corner(0 To 2) As Double        Dim width As Double        Dim text As String        corner(0) = 0#: corner(1) = 10#: corner(2) = 0#        width = 10        text = "我终于能够写入了" & vbCrLf & "我终于能够写入了"       ' Creates the mtext Object        Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)        ZoomAll        End Sub

murphyr

是，我一定看，在此前我并不了解acad

murphyr

您说的是否是acad2000 的帮助？

alin

AutoCAD Developer Help

murphyr

我试了，写不到40dlx2.dwg文件中，不知为什么，我对dwg文件结构不了解

alin

是字体设置问题，是因为你的图中的当前字体STYLE1设置为大字体hzfs.shx, 而我的CAD上没有中文,所以也显示不出来。所以应该找到hzfs.shx,或打开图档时用其它字体代替。