Public Sub startcad()
On Error Resume Next
Set acadapp = CreateObject(".Application")
Set acaddoc = acadapp.ActiveDocument
If Err Then
MsgBox Err.Description
Exit Sub
End If
acadapp.Visible = True
acadapp.Top = 0 '设置AutoCad窗口的位置
acadapp.Left = 0
acadapp.Caption = "CORECAD" '设置AutoCad窗口的标题
acaddoc.New ("coremode2.dwt")
End Sub
意思是用模版文件("coremode2.dwt")新建一个文件,在r14下通过,在2002下不行,请帮我诊断一下。谢谢