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

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

比如，往上面的dwg文件写入几行文字
“我终于能够写入了”
“我终于能够写入了”
由于初学，
拜求示例

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

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:cmxtafwqsjl.dwg
下载次数:0 文件大小:81.58 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

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

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

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

copy


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