乐筑天下

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

2006年dvb在2007年?

[复制链接]

55

主题

197

帖子

8

银币

后起之秀

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

铜币
416
发表于 2007-2-16 13:12:07 | 显示全部楼层 |阅读模式
在ACAD2006中创建的dvb文件在2007年可以工作吗?
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2007-2-16 13:13:43 | 显示全部楼层
是的,除非你做了什么疯狂的事,把它贴出来,我'我帮你试试
回复

使用道具 举报

55

主题

197

帖子

8

银币

后起之秀

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

铜币
416
发表于 2007-2-17 15:41:55 | 显示全部楼层
为了使用Acad 2007,我不得不更改DVB的参考:Autocad/Objectdbx Common 16.0类型库必须替换为Autocad/ObjObjectDBx Common 17.0类型图书馆。
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2007-2-17 18:14:49 | 显示全部楼层
让dvb文件跨多个版本工作的问题之一是早期绑定。如果要使用VBA或AutoCAD类型库以外的特定类型库,如果进行后期绑定,则会使程序更具可移植性。大多数类型库允许您选择基本版本,操作系统将跟踪最新版本
例如,如果我想获得AutoCAD 2007的参考,我可以使用[代码但是如果我想让代码在任何版本上运行,我会使用
  1. Set Acad = GetObject(,"AutoCAD.Application")
我希望这一切都像泥一样清澈。。。
回复

使用道具 举报

55

主题

197

帖子

8

银币

后起之秀

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

铜币
416
发表于 2007-2-19 10:31:03 | 显示全部楼层
谢谢大家的回复 本人'我对VBA很陌生
基思,所以不要设置;“硬”;工具/引用/对话框中的引用;我可以(应该)在模块中设置它们&nbsp
现在,我在模块&中引用了ObjectDBX 16.0类型库;使用以下语句
  1. Dim dbxDoc As AxDbDocument
因此,我应该删除引用并添加以下内容:
  1. Set dbx = GetObject(,"ObjectDBX") [don't know the right syntax here]
  2. Dim dbxDoc as dbx.AxDbDocument
??
回复

使用道具 举报

55

主题

197

帖子

8

银币

后起之秀

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

铜币
416
发表于 2007-2-19 10:59:22 | 显示全部楼层
简而言之,是的,除了你需要使用;GetInterfaceObject“;对于ObjectDBX库
因此..在本例中,您只需要运行应用程序,而不需要添加对类型库的任何引用
  1. Sub Test()
  2.     Dim ACDbx As Object
  3.     Dim Block As AcadBlock
  4.     Set ACDbx = GetInterfaceObject("ObjectDBX.AxDbDocument")
  5.     ACDbx.Open ("c:\test.dwg")
  6.     For Each Block In ACDbx.Blocks
  7.         MsgBox Block.Name
  8.     Next
  9.     Set ACDbx = Nothing
  10. End Sub
答案并不总是那么简单,因为并非所有库都适用于所有版本的AutoCAD,但如果以编程方式设置引用,它将从计算机上的当前版本加载类,而不是尝试从开发计算机加载类
哦..你不't根据&#039加载ObjectDBX对象;实际上,您加载了文档界面,然后打开了您想要操作的文档。
回复

使用道具 举报

55

主题

197

帖子

8

银币

后起之秀

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

铜币
416
发表于 2007-2-23 13:36:46 | 显示全部楼层
谢谢基思-我'我试试看!
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-7 09:44 , Processed in 1.232237 second(s), 66 queries .

© 2020-2025 乐筑天下

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