vb 和cad的问题

来源：百度知道编辑：UC知道时间：2024/05/24 19:30:46

我想编一个判断cad程序是否打开的语句
Private Sub Command1_Click()
Dim acadApp As AcadApplication
On Error Resume Next

Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
MsgBox "dafsadf"
End If
End Sub
但是不行
我的意图是单击按钮判断cad 程序是否打开
我机子上装得是cad2004，并且在vb中我也引用了相关的cad 部件
把Set acadApp = GetObject(, "AutoCAD.Application")
改为Set acadApp = GetObject(, "AutoCAD.Application.15")和
Set acadApp = GetObject(, "AutoCAD.Application.16")
都不行
请高手错在那
最重要是如何修改
改为Set acadApp = GetObject(, "AutoCAD.Application.15")msgbox起作用但无论cad 是否打开都弹出msgbox
改.16时msgbox在cad是否打开都不弹出msgbox
请高手给出编码

选择【项目】/【添加引用】/【COM】，选择“AutoCAD2004
Type Library”，按下【选择】/【确定】即可。
Set acadApp = GetObject(, "AutoCAD.Application.16")

你没有结果输出代码呀，还有，将错误陷阱关闭，让程序报错，给我说报错内容/

你是想不让被人用你的CAD

vb 和cad的问题 vb 调用 cad问题电脑和CAD的问题? VB与CAD的关系 CAD和大雄CAD转换的问题 VB和VC的问题! VB和DELPHI的问题! VB和Access的问题 3D和CAD的问题急救.!关于CAD和天正的问题.