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

roem

Option Explicit
Dim AcadApp As AutoCAD.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

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

roem

试过了，也不行啊

roem

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

roem

为什么createobject不起作用呢？

雪山飞狐_lzh

Dim AcadApp As Object



set AcadApp = CreateObject("AutoCAD.Application")

roem

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

新手求救

你的程序中有两个错误：


1.Dim        AcadApp As [U]Acad[/U]Application


2.Set AcadApp = GetObject([U],[/U] "AutoCAD.Application")