[原创]请问在vb6.0中，如何判断autocad2000已经运行或已经关闭?

李勇

请多指教：  
   请问在vb6.0中，怎样控制AutoCAD2000的启动与运行，如何判断autocad2000已经运行或已经关闭?且要用vb来控制autocad2000，我用shell方法启动cad后，控制权不在vb?

china-hz

1、调用CAD
    Set AcadApp = GetObject(, "AutoCAD.Application")
    If Err Then
        Err.Clear
        Set AcadApp = CreateObject("AutoCAD.Application")
        If Err Then
            MsgBox "不能运行AutoCAD 2002，请检查安装是否正确。" & vbCrLf & "可先启动AutoCAD2002，再试本程序。", vbInformation, "提示"
            Set AcadApp = Nothing
            End
        End If
    End If
    AcadApp.Visible = True
2、判断CAD是否关闭
    If ApplicationAvailable(AcadApp) = False Then
        MsgBox("AutoCAD 200X已经关闭。", vbInformation, "提示")     End If

李勇

我在vb中运行程序，在语句Set AcadApp = GetObject(, "AutoCAD.Application")时提示activex不能创建对像？

3kd

可能是你没有定义autocad.spplication类，调用一个类定义或自己定义一下应该可以了。

李勇

我试过，有点问题。之后我用：
dim acadobj as object
set acadobj=getobject("test.dwg")的方式，可以打开autocad,且控制权也在vb上。但这种方法必须要跟一个文件。能不能用其它的方法，直接调用我的模板文件(.dwt)?

thankyou

引用ACAD类型库。