社区 › VB › [求助]在vb中打开autocad失败

roem 发表于 2004-10-15 09:18:00

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

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 ,请高手指点，谢谢！

雪山飞狐_lzh 发表于 2004-10-15 09:22:00

Set AcadApp = GetObject(,"AutoCAD.Application")

roem 发表于 2004-10-15 09:25:00

试过了，也不行啊

roem 发表于 2004-10-15 09:28:00

是不是跟安装有关？我用的是cad2002简化版的

roem 发表于 2004-10-15 09:31:00

为什么createobject不起作用呢？

雪山飞狐_lzh 发表于 2004-10-15 09:31:00

Dim AcadApp As Objectset AcadApp = CreateObject("AutoCAD.Application")

roem 发表于 2004-10-15 09:46:00

谢谢您，cad 终于浮出水面了

新手求救 发表于 2004-10-18 15:53:00

你的程序中有两个错误：
1.Dim      AcadApp As AcadApplication
2.Set AcadApp = GetObject(, "AutoCAD.Application")

查看完整版本: [求助]在vb中打开autocad失败