Document.CloseAndDiscard()关闭文档的问题

sealive

今天又测试了一下，是调用Autocad.net手册上的zoom函数的问题，虽然外面锁定文件但标准的zoom函数内也再访问document对象，修改了函数的定义，把document对象按地址作为参数传入到zoom函数，然后锁定文档问题解决了。看来是理解的问题，呵呵！
Dim FileNames() = {"c:\drawing1.dwg", "c:\drawing2.dwg", "c:\drawing3.dwg"}
         For Each FileName As String In FileNames
             Dim acDoc As Document = Application.DocumentManager.Open(FileName, False)
             Using docLock as Document=Application.DocumentManager.MdiActiveDocument.LockDocument()
             Zoom(acDoc,New Point3d(), New Point3d(), New Point3d(), 1.01075)
                 Dim db As Database = HostApplicationServices.WorkingDatabase
                 Using Trans As Transaction = db.TransactionManager.StartTransaction()
                     db.SaveAs(db.Filename, True, DwgVersion.Current, db.SecurityParameters)
                     Trans.Commit()
                 End Using
                 db.Dispose()
              End Using
             acDoc.CloseAndDiscard()
         Next

谢谢版主的指点！

kids

楼主，你的问题最后怎么解决的，我也遇到了