乐筑天下

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

[讨论]关于利用ObjectDbx技术获取或修改图元数据

[复制链接]
gyl

15

主题

127

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
187
发表于 2007-7-31 10:30:00 | 显示全部楼层 |阅读模式
关于利用ObjectDbx技术获取或修改图元数据,请教两个问题:
1.除了在 VBA环境下使用之外,能否在VB或OFFICE VBA中使用?若能,需要哪些设置?
2.访问图元时是否只能通过遍历所有图元并逐一判断是否为期望的图元,能否根据图元句柄直接获取图元?
回复

使用道具 举报

1

主题

113

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
117
发表于 2007-7-31 14:48:00 | 显示全部楼层
回答1:除了在AutoCAD VBA环境下使用之外,ObjectDbx技术能在VB或OFFICE VBA中使用,须在VB或OFFICE VBA中引用 ObjectDbx 类型库;
回答2:AutoCAD图元句柄是在图纸打开随机生成的,也就是说图纸中某一图元的句柄不是固定不变的。访问图元时不用通过遍历所有图元,你可以根据你要访问图元的类型过滤掉不需要遍历的图元,提高效率。
回复

使用道具 举报

gyl

15

主题

127

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
187
发表于 2007-8-2 11:17:00 | 显示全部楼层
问题3:用ObjectDbx的open方法打开一个文件执行完处理之后,如何将DWG文件释放?不释放的话,CAD不能打开该图,说是该图正在被使用。
回复

使用道具 举报

gyl

15

主题

127

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
187
发表于 2007-8-6 12:12:00 | 显示全部楼层
在VB或OFFICE VBA中均没有测试成功,已经引用 ObjectDbx 类型库。
执行语句 Set objDBX = CreateObject("ObjectDBX.AxDbDocument.1") 时报错:ActiveX部件不能创建对象
无论CAD是否启动都是如此,在VB或OFFICE VBA中所报错误相同,同样的语句在AutoCAD VBA中运行正常
回复

使用道具 举报

gyl

15

主题

127

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
187
发表于 2007-8-6 12:15:00 | 显示全部楼层
问题4:用ObjectDbx技术可以读取属性块的属性值,请问如何修改并保存属性块的属性值?
回复

使用道具 举报

gyl

15

主题

127

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
187
发表于 2007-8-6 12:20:00 | 显示全部楼层
问题5:我的机器上安装的是CAD2002,除了有ObjectDBX1.0类型库之外,还有一个AutoCAD/ObjectDBX Common 1.0类型库,请问两者有什么关系,后者如何使用?
回复

使用道具 举报

gyl

15

主题

127

帖子

7

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
187
发表于 2007-8-13 08:00:00 | 显示全部楼层
看来没什么人关心ObjectDbx。
回复

使用道具 举报

20

主题

105

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
185
发表于 2007-8-13 17:23:00 | 显示全部楼层
不太懂这个方面的东西,你如果懂不妨拿出一些例子程序来,或者书单也行
我们学习学习,
学习的人多了,有问题时回的人自然就多了。
回复

使用道具 举报

71

主题

462

帖子

10

银币

中流砥柱

Rank: 25

铜币
748
发表于 2008-10-15 09:55:00 | 显示全部楼层

Private Sub Command1_Click()
    Set Acad = GetObject(, "AutoCAD.Application.16")
    Set AcadDbx = Acad.GetInterfaceObject("ObjectDBX.AxDbDocument.16")
End Sub
回复

使用道具 举报

1

主题

11

帖子

4

银币

初来乍到

Rank: 1

铜币
15
发表于 2014-2-21 13:51:00 | 显示全部楼层
猫老师是高手啊,搜了好久,都没发现别人知道这个
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-6-29 14:48 , Processed in 0.736088 second(s), 73 queries .

© 2020-2025 乐筑天下

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