乐筑天下

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

关于VB开发CAD的问题

[复制链接]
歪文子

1

主题

3

帖子

1

银币

初来乍到

Rank: 1

铜币
7
发表于 2015-5-13 08:13:00 | 显示全部楼层 |阅读模式
Dim acadApp As AcadApplication '定义一个.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

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2015-5-13 10:12:00 | 显示全部楼层
是同一个版本的ACAD么？如果没记错的话，有的Set acadApp = GetObject(, "AutoCAD.Application")要加版本号？
回复

使用道具 举报

Real_King

44

主题

185

帖子

8

银币

后起之秀

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

铜币
361
发表于 2015-5-13 11:43:00 | 显示全部楼层
获取当前AutoCAD.Application出现问题？我以前遇到这样的问题，重装CAD就好了，应该跟COM注册表之类没安好有关，你的电脑多少位？可以重装下CAD
回复

使用道具 举报

L丶晶莹剔透

1

主题

2

帖子

2

银币

初来乍到

Rank: 1

铜币
6
发表于 2015-5-31 15:21:00 | 显示全部楼层

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

使用道具 举报

mikewolf2k

85

主题

1175

帖子

11

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1518
发表于 2015-6-1 09:12:00 | 显示全部楼层
我机器上只有一个ACAD2012，这串代码可以获得ACAD进程。
回复

使用道具 举报

zzyong00

23

主题

561

帖子

13

银币

中流砥柱

Rank: 25

铜币
653
发表于 2015-6-4 22:24:00 | 显示全部楼层
一般来说是安装问题，有时候也因为Autocad处于“忙”的状态而获取不到
还有，如果你定义变量为：Dim acadApp As AcadApplication
说明你引用了相应的autocad，系统运行的版本和你引用的版本必须一致
回复

使用道具 举报

歪文子

1

主题

3

帖子

1

银币

初来乍到

Rank: 1

铜币
7
发表于 2015-9-6 10:31:00 | 显示全部楼层
发现问题了，应该后期绑定就可以解决此问题。只是在别人的电脑上面运行时第一次会自动安装。
回复

使用道具 举报

风卷残云

4

主题

8

帖子

2

银币

初来乍到

Rank: 1

铜币
24
发表于 2015-10-10 14:54:00 | 显示全部楼层
前期绑定的话，版本号已经写入，换电脑要是不同版本的cad就会提示错误，但是改成后期绑定的话，下面运用cad命令的时候不会自动提示出cad命令，就这小问题，最好是编写的时候用前期绑定，编完之后在改成后期，个人经验，可能有瑕疵，随便说说
回复

使用道具 举报

歪文子

1

主题

3

帖子

1

银币

初来乍到

Rank: 1

铜币
7
发表于 2015-10-19 12:01:00 | 显示全部楼层

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

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-4-20 05:13 , Processed in 2.286066 second(s), 70 queries .

© 2020-2025 乐筑天下

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