判断图纸是否已经保存过

  Dim fileName As String = ZwDb.Filename.ToUpper
        Dim oriFileName As String = System.IO.Path.Combine(Application.GetSystemVariable("DWGPREFIX"), Application.GetSystemVariable("DWGNAME")).ToUpper 'ZcCurDb.OriginalFileName
        If fileName = oriFileName Then

'表示图纸已经保存过

end if

DBMOD=0时表示图纸已没保存，没有更新。

否则表示图纸有更新还未被保存。

查看数据库中的filename和originalfilename是否一致。一致时说明是新建图纸还没进行保存。

不一致时表明已经保存过了。