乐筑天下

帖子
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 128|回复: 7

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

[复制链接]

7

主题

30

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2004-10-12 20:42:00 | 显示全部楼层 |阅读模式
比如,往上面的dwg文件写入几行文字
“我终于能够写入了”
“我终于能够写入了”
由于初学,
拜求示例
回复

使用道具 举报

7

主题

30

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2004-10-12 20:44:00 | 显示全部楼层
请点击此处下载

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

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

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


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

举报

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2004-10-12 22:14:00 | 显示全部楼层
帮助文件里都有,多点看。
  1. Option ExplicitSub Example_AddMtext()
  2.        ' This example creates an MText object in model space.
  3.       
  4.        Dim MTextObj As AcadMText
  5.        Dim corner(0 To 2) As Double
  6.        Dim width As Double
  7.        Dim text As String
  8.        corner(0) = 0#: corner(1) = 10#: corner(2) = 0#
  9.        width = 10
  10.        text = "我终于能够写入了" & vbCrLf & "我终于能够写入了"       ' Creates the mtext Object
  11.        Set MTextObj = ThisDrawing.ModelSpace.AddMText(corner, width, text)
  12.        ZoomAll
  13.       
  14. End Sub
回复

举报

7

主题

30

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2004-10-13 11:40:00 | 显示全部楼层
是,我一定看,在此前我并不了解acad
回复

举报

7

主题

30

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2004-10-13 11:41:00 | 显示全部楼层
您说的是否是acad2000 的帮助?
回复

举报

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2004-10-13 14:49:00 | 显示全部楼层
AutoCAD Developer Help
回复

举报

7

主题

30

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
58
发表于 2004-10-13 20:59:00 | 显示全部楼层
我试了,写不到文件中,不知为什么,我对dwg文件结构不了解
回复

举报

16

主题

909

帖子

8

银币

中流砥柱

Rank: 25

铜币
973
发表于 2004-10-13 22:49:00 | 显示全部楼层
是字体设置问题,是因为你的图中的当前字体STYLE1设置为大字体hzfs.shx, 而我的CAD上没有中文,所以也显示不出来。所以应该找到hzfs.shx,或打开图档时用其它字体代替。
回复

举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁體中文

GMT+8, 2025-3-16 18:58 , Processed in 0.883631 second(s), 73 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表