robplatt 发表于 2007-4-5 07:18:47

从其他程序访问AutoCAD

大家好，
我已经成功地将东西从ACAD发送到Excel和Access，现在我正在尝试做相反的事情 - 即使用VBA从Excel访问ACAD。
我拼凑了一个似乎有效的例程，但它需要这样一行：
Set acadApp = GetObject（，“AutoCAD.Application.16”）
除了对“16”的引用之外，我理解所有这些。我收集这是一个版本参考（我使用的是2006），但是在哪里可以找到用于其他版本的数字？
您的评论一如既往地收到！
**** Hidden Message *****

Keith™ 发表于 2007-4-5 08:13:00

注册表。

Dnereb 发表于 2007-4-5 11:15:55

如果您不打扰版本，它将发现无论版本如何，都会加载当前应用程序。
即
Set acadApp = GetObject(, "AutoCAD.Application")

robplatt 发表于 2007-4-10 12:35:53

如果你想麻烦的版本，有些站安装了多个Acad版本，你需要使用不同的代码不同的版本等......这可能会帮助你，它是为几个应用程序编写的。

Dnereb 发表于 2007-4-25 06:26:24

谢谢德内布，
我想我可能需要这样的东西。

robplatt 发表于 2007-4-26 11:30:07


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

Dnereb 发表于 2007-5-11 10:23:14


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

消息框将为您返回版本
Mark
页: [1]
查看完整版本: 从其他程序访问AutoCAD