乐筑天下

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

R14中如何插入图形文件到图形中

[复制链接]

33

主题

85

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
217
发表于 2003-3-23 10:39:00 | 显示全部楼层 |阅读模式
请问在R14中如何插入图形文件到图形中。查看的R14的有关帮助文件没有发现。但是在200?中用insertblock就可以。请问如何在R14中插入如c:\temp.dwg这样的文件。谢谢!
回复

使用道具 举报

11

主题

80

帖子

9

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
124
发表于 2003-3-23 12:54:00 | 显示全部楼层
直接在命令行中输入insert命令,根据提示再输入所要插入的图形文件或图块的路径即可,如输入c:\temp.dwg
回复

使用道具 举报

33

主题

85

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
217
发表于 2003-3-24 08:18:00 | 显示全部楼层
我是说用VB在程序中插入,现在用insertblock方法只能插入图块,而不能插入图形文件。
回复

使用道具 举报

31

主题

129

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
253
发表于 2003-4-16 19:50:00 | 显示全部楼层
Set t = acaddoc.Item(0).ModelSpace.InsertBlock(insertionPnt, bname, 1#, 1#, 1#, 0)
其中bname为要插入文件的路径
回复

使用道具 举报

33

主题

85

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
217
发表于 2003-4-17 08:39:00 | 显示全部楼层
在R200*中完全可以做到,但用我的R14却不行,你说的方法我试了,可还是不行。
回复

使用道具 举报

31

主题

129

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
253
发表于 2003-4-18 15:51:00 | 显示全部楼层
忘了告诉你,r14下不支持
回复

使用道具 举报

23

主题

122

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
214
发表于 2006-6-5 15:37:00 | 显示全部楼层

.Item(0).是什么意思?
回复

使用道具 举报

23

主题

122

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
214
发表于 2006-6-5 15:37:00 | 显示全部楼层

'插入块
Dim blockRefObj As AcadBlockReference
Dim insertionPnt(0 To 2) As Double ' 定义块插入点坐标
insertionPnt(0) = 0: insertionPnt(1) = 0: insertionPnt(2) = 0
Set blockRefObj = acadDoc.ModelSpace.InsertBlock(insertionPnt, "TZ624.dwg", 0.5, 0.5, 0.5, 0)
'Set T = acadDoc.Item(0).ModelSpace.InsertBlock(insertionPnt, bname, 1#, 1#, 1#, 0)
blockRefObj.Update
ZoomAll
为什么插入不进去
回复

使用道具 举报

1

主题

157

帖子

2

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
161
发表于 2006-6-5 16:41:00 | 显示全部楼层
Dim blockRefObj As AcadBlockReference
Dim insertionPnt(0 To 2) As Double
insertionPnt(0) = 0: insertionPnt(1) = 0: insertionPnt(2) = 0
Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "e:\aa.dwg", 0.5, 0.5, 0.5, 0)
blockRefObj.Update
ZoomAll
调入没有问题
1. 不知道你的acadDoc声明的是什么东西,我用VBA调试的,所以就用Thisdrawing代替了,你用VB做,就用激活文件吧
2."e:\aa.dwg",是文件的全路径
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-5 19:38 , Processed in 0.591841 second(s), 70 queries .

© 2020-2025 乐筑天下

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