令人困惑的NET下SaveAs方法

zcmfk · 发表于 2011-4-19 07:52:00

在COM中可采用.SaveAs ("C:\A.dwg")　实现将当前文档保存为指定文档，且CAD窗口即时显示了该文档名。
　但NET下使用SaveAs方法：
　　　acDoc.Database.SaveAs("C:\A.dwg", TRUE, DwgVersion.Current, _
acDoc.Database.SecurityParameters)
　　出现了令人困惑的结果：在指定目录保存了该文档，但CAD窗口显示的该文档并未更名，仍是原来文档名称。
　　请各位指导！

zcmfk · 发表于 2011-4-19 09:06:00

我希望实现在1.dwg为活动文档下，由系统创建新文档作为活动文档，并将新文档保存为A.dwg。但结果是1.dwg更名为A.dwg了。
　　CODE如下：
   Dim strTemplatePath As String = "acad.dwt"
         Dim acDocMgr As DocumentCollection = Application.DocumentManager
         Dim acNewDoc As Document = acDocMgr.Add(strTemplatePath)
         Dim acDbNewDoc As Database = acNewDoc.Database
         acDocMgr.MdiActiveDocument = acNewDoc
         acNewDoc = acDocMgr.MdiActiveDocument
         acNewDoc.Database.SaveAs("c:\A.dwg", True, DwgVersion.Current, _
                              acNewDoc.Database.SecurityParameters)