为什么会出现这种错误？

fengxun

private sub()  Dim DOC As AcadDocument
  Dim Filename as string

  Filename="e:\1.dwg"
  Set DOC = ThisDrawing.Application.Documents.Open(FileName, True)
End sub

最后一步出现错误，不知道怎么回事，

mikewolf2k

1.dwg是否加密，是否标准dwg，手工能否打开。