乐筑天下

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

从其他程序访问AutoCAD

[复制链接]

3

主题

10

帖子

1

银币

初来乍到

Rank: 1

铜币
22
发表于 2007-4-5 07:18:47 | 显示全部楼层 |阅读模式
大家好,
我已经成功地将东西从ACAD发送到Excel和Access,现在我正在尝试做相反的事情 - 即使用VBA从Excel访问ACAD。
我拼凑了一个似乎有效的例程,但它需要这样一行:
Set acadApp = GetObject(,“AutoCAD.Application.16”)
除了对“16”的引用之外,我理解所有这些。我收集这是一个版本参考(我使用的是2006),但是在哪里可以找到用于其他版本的数字?
您的评论一如既往地收到!

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

154

主题

1274

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1936
发表于 2007-4-5 08:13:00 | 显示全部楼层
注册表。
回复

使用道具 举报

6

主题

94

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2007-4-5 11:15:55 | 显示全部楼层
如果您不打扰版本,它将发现无论版本如何,都会加载当前应用程序。

  1. Set acadApp = GetObject(, "AutoCAD.Application")

回复

使用道具 举报

3

主题

10

帖子

1

银币

初来乍到

Rank: 1

铜币
22
发表于 2007-4-10 12:35:53 | 显示全部楼层
如果你想麻烦的版本,有些站安装了多个Acad版本,你需要使用不同的代码不同的版本等......这可能会帮助你,它是为几个应用程序编写的。
回复

使用道具 举报

6

主题

94

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2007-4-25 06:26:24 | 显示全部楼层
谢谢德内布,
我想我可能需要这样的东西。
回复

使用道具 举报

3

主题

10

帖子

1

银币

初来乍到

Rank: 1

铜币
22
发表于 2007-4-26 11:30:07 | 显示全部楼层

正如Keith提到的,如果您需要特定的版本,只需键入如下所示的版本即可代码1]
标记
回复

使用道具 举报

6

主题

94

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
118
发表于 2007-5-11 10:23:14 | 显示全部楼层

嘿,Rob,
回到您最初的问题,如果您需要正在使用的特定版本的ACAD,则可以使用非常简单的宏,例如
  1. Sub Version()
  2. MsgBox Application.Version
  3. End Sub

消息框将为您返回版本
Mark
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-7 18:13 , Processed in 0.255644 second(s), 67 queries .

© 2020-2025 乐筑天下

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