乐筑天下

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

[求助]在vb中打开autocad失败

[复制链接]

1

主题

5

帖子

1

银币

初来乍到

Rank: 1

铜币
9
发表于 2004-10-15 09:18:00 | 显示全部楼层 |阅读模式
Option Explicit
Dim AcadApp As .AcadApplication
On Error Resume Next
Set AcadApp = GetObject("AutoCAD.Application")         此处错误提示:自动化操作时文件名或者类名没有找到
If Err.Number Then
                         Err.Clear
                         AcadApp = CreateObject("AutoCAD.Application")
                         If Err.Number Then
                                                 MsgBox "无法打开Autocad" & Err.Description                                 此处错误提示:对象变量或with块变量未设置
                                                 unload me
                                                 Exit Sub
                         End If
End If
AcadApp.Visible = True
AcadApp.WindowState = acMax
AppActivate AcadApp.Caption
End Sub
但是当我没有打开cad时,用set acadapp=new acadappplication 可以打开cad ,请高手指点,谢谢!
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-10-15 09:22:00 | 显示全部楼层
Set AcadApp = GetObject(,"AutoCAD.Application")
回复

使用道具 举报

1

主题

5

帖子

1

银币

初来乍到

Rank: 1

铜币
9
发表于 2004-10-15 09:25:00 | 显示全部楼层
试过了,也不行啊
回复

使用道具 举报

1

主题

5

帖子

1

银币

初来乍到

Rank: 1

铜币
9
发表于 2004-10-15 09:28:00 | 显示全部楼层
是不是跟安装有关?我用的是cad2002简化版的
回复

使用道具 举报

1

主题

5

帖子

1

银币

初来乍到

Rank: 1

铜币
9
发表于 2004-10-15 09:31:00 | 显示全部楼层
为什么createobject不起作用呢?
回复

使用道具 举报

72

主题

2726

帖子

9

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3014
发表于 2004-10-15 09:31:00 | 显示全部楼层
Dim AcadApp As Objectset AcadApp = CreateObject("AutoCAD.Application")
回复

使用道具 举报

1

主题

5

帖子

1

银币

初来乍到

Rank: 1

铜币
9
发表于 2004-10-15 09:46:00 | 显示全部楼层
谢谢您,cad 终于浮出水面了
回复

使用道具 举报

4

主题

10

帖子

1

银币

初来乍到

Rank: 1

铜币
26
发表于 2004-10-18 15:53:00 | 显示全部楼层
你的程序中有两个错误:
1.Dim        AcadApp As [U]Acad[/U]Application
2.Set AcadApp = GetObject([U],[/U] "AutoCAD.Application")
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-16 05:27 , Processed in 3.209301 second(s), 69 queries .

© 2020-2025 乐筑天下

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