回复 3楼 xiangyue0510
Dim AcadApp As AcadApplication
Private Sub Command1_Click()
On Error Resume Next
Set AcadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set AcadApp = CreateObject("AutoCAD.Application")
If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
MsgBox "Now running" + AcadApp.Name + "version" + AcadApp.Version
AcadApp.Visible = True
End Sub
这是源程序,一运行就显示ActiveX不能创建对象,都没法进行下面的工作了,求帮忙!