李勇 发表于 2003-6-20 11:17:00

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

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

china-hz 发表于 2003-6-20 12:39:00

可以这样

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

李勇 发表于 2003-6-20 13:12:00

在语句：Set AcadApp = GetObject(, "AutoCAD.Application")时有问题

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

3kd 发表于 2003-6-20 13:49:00

re:

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

李勇 发表于 2003-6-20 16:05:00

我试过，有点问题？

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

thankyou 发表于 2003-6-23 15:30:00

RE

引用ACAD类型库。
页: [1]
查看完整版本: [原创]请问在vb6.0中，如何判断autocad2000已经运行或已经关闭?