关于VB开发CAD的问题

歪文子

Dim acadApp As AcadApplication '定义一个AutoCAD.Application
Dim acadDoc As AcadDocument '定义一个CAD文档
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err <> 0 Then
MsgBox "请先打开CAD软件！", 64, "提示信息": Exit Sub
End If
Set acadDoc = acadApp.ActiveDocument
acadApp.WindowState = acMax
大家好，请问我用以上代码连接CAD，但是有些电脑可以读取到内存中运行的CAD，有些读不到内存中运行的CAD，请问是怎么回事，代码应该是没有问题的。

mikewolf2k

是同一个版本的ACAD么？如果没记错的话，有的Set acadApp = GetObject(, "AutoCAD.Application")要加版本号？

Real_King

获取当前AutoCAD.Application出现问题？我以前遇到这样的问题，重装CAD就好了，应该跟COM注册表之类没安好有关，你的电脑多少位？可以重装下CAD

L丶晶莹剔透

mikewolf2k 发表于 2015-5-13 10:12
是同一个版本的ACAD么？如果没记错的话，有的Set acadApp = GetObject(, "AutoCAD.Application")要加版本号 ...

可以帮我做这方面的东西吗 ？

mikewolf2k

我机器上只有一个ACAD2012，这串代码可以获得ACAD进程。

zzyong00

一般来说是安装问题，有时候也因为Autocad处于“忙”的状态而获取不到
还有，如果你定义变量为：Dim acadApp As AcadApplication
说明你引用了相应的autocad，系统运行的版本和你引用的版本必须一致

歪文子

发现问题了，应该后期绑定就可以解决此问题。只是在别人的电脑上面运行时第一次会自动安装。

风卷残云

前期绑定的话，版本号已经写入，换电脑要是不同版本的cad就会提示错误，但是改成后期绑定的话，下面运用cad命令的时候不会自动提示出cad命令，就这小问题，最好是编写的时候用前期绑定，编完之后在改成后期，个人经验，可能有瑕疵，随便说说

歪文子

风卷残云 发表于 2015-10-10 14:54
前期绑定的话，版本号已经写入，换电脑要是不同版本的cad就会提示错误，但是改成后期绑定的话，下面运用cad ...

你说的方法确实不错。谢谢你的回复！