.NET

Reply
Active Contributor
Luigi71
Posts: 30
Registered: ‎08-30-2011
Message 1 of 4 (231 Views)

File name

231 Views, 3 Replies
11-19-2012 01:46 AM

Hi to all.

 

I'm trying to save two drawings sequentially with the following code:

 

Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Runtime


Public Class Class1

<CommandMethod("SaveTwoDrawings")> _
Public Sub SaveTwoDrawings()


Dim doc As Document
Dim strDWGName As String
Dim acDocMgr As DocumentCollection = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager
Dim obj As Object

 

doc = acDocMgr(0)
strDWGName = doc.Name
strDWGName = "c:\MyDrawing#1.dwg"

doc.Database.SaveAs(strDWGName, True, DwgVersion.Current, doc.Database.SecurityParameters)

 

doc = acDocMgr(1)
strDWGName = doc.Name
strDWGName = "c:\MyDrawing#2.dwg"

doc.Database.SaveAs(strDWGName, True, DwgVersion.Current, doc.Database.SecurityParameters)


End Sub
End Class

 

While the two drawings are correctly saved in the desired position whith the desired names, only the name of the last drawing is updated ("Drawing2.dwg"--->"MyDrawing#2.dwg"), but the name of the first drawing still remains the original assigned by autocad "Drawing1.dwg", the autocad title bar is not updated too.

 

Some suggestions?

 

Thanks

*Expert Elite*
Alfred.NESWADBA
Posts: 9,583
Registered: ‎06-29-2007
Message 2 of 4 (225 Views)

Re: File name

11-19-2012 02:07 AM in reply to: Luigi71

Hi,

 

try to use the "Session"-flag for your command-definition:

   <CommandMethod("SaveTwoDrawings", Autodesk.AutoCAD.Runtime.CommandFlags.Session)> _
   Public Shared Sub SaveTwoDrawings()

      ...

 

- alfred -

-------------------------------------------------------------------------
Alfred NESWADBA
Ingenieur Studio HOLLAUS ... www.hollaus.at
-------------------------------------------------------------------------
Active Contributor
Luigi71
Posts: 30
Registered: ‎08-30-2011
Message 3 of 4 (211 Views)

Re: File name

11-19-2012 04:40 AM in reply to: Luigi71

Thanks Alfred.

 

Tried the suggestion, but still not working.

 

 

Active Contributor
Luigi71
Posts: 30
Registered: ‎08-30-2011
Message 4 of 4 (178 Views)

Re: File name

11-20-2012 12:21 AM in reply to: Alfred.NESWADBA

Hi Alfred, I modified the code like this (including your suggestion).

 

Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Runtime


Public Class Class1

<CommandMethod("SaveTwoDrawings", CommandFlags.Session)> _
Public Shared Sub SaveTwoDrawings()


Dim doc As Document
Dim strDWGName As String
Dim acDocMgr As DocumentCollection = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager
Dim obj As Object

 

doc = acDocMgr(0)

acDocMgr.MdiActiveDocument = doc
strDWGName = doc.Name
strDWGName = "c:\MyDrawing#1.dwg"

doc.Database.SaveAs(strDWGName, True, DwgVersion.Current, doc.Database.SecurityParameters)

 

doc = acDocMgr(1)

acDocMgr.MdiActiveDocument = doc
strDWGName = doc.Name
strDWGName = "c:\MyDrawing#2.dwg"

doc.Database.SaveAs(strDWGName, True, DwgVersion.Current, doc.Database.SecurityParameters)


End Sub
End Class

 

In this case the routine works fine.

It seems that there is a need to make the document active. When the document is active the doc.Name property is updated.

 

Using Autocad 2010 32bit, Visual Studio Espress 2008

Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Announcements
Do you have 60 seconds to spare? The Autodesk Community Team is revamping our site ranking system and we want your feedback! Please click here to launch the 5 question survey. As always your input is greatly appreciated.