murphyr 发表于 2004-10-12 20:42:00

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

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


“我终于能够写入了”


“我终于能够写入了”


由于初学，

拜求示例

murphyr 发表于 2004-10-12 20:44:00




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

alin 发表于 2004-10-12 22:14:00

帮助文件里都有，多点看。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 发表于 2004-10-13 11:40:00

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

murphyr 发表于 2004-10-13 11:41:00

您说的是否是acad2000 的帮助？

alin 发表于 2004-10-13 14:49:00

AutoCAD Developer Help

murphyr 发表于 2004-10-13 20:59:00

我试了，写不到<A href="http://www.mjtd.com/bbs/viewFile.asp?Boardid=4&amp;ID=12443" target="_blank" ><FONT color=#000000>40dlx2.dwg</FONT></A>文件中，不知为什么，我对dwg文件结构不了解

alin 发表于 2004-10-13 22:49:00

是字体设置问题，是因为你的图中的当前字体STYLE1设置为大字体hzfs.shx, 而我的CAD上没有中文,所以也显示不出来。所以应该找到hzfs.shx,或打开图档时用其它字体代替。
页: [1]
查看完整版本: 如何使用VB 或vba 把一段文字写入dwg？