Message 1 of 2
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi..
The following code was copied from ‘autocad 2013 help’.
When I debug the code of help file, the autocad is open and there is ERROR named strDWGName=”C:MyDrawing.dwg”..
but, I revised the name to strDWGName=”MyDrawing.dwg” and then, the file is saved in the DEBUG folder WITHOUT ANY ERROR.
Could you please explain this matter in details?
Save the active drawing
This example saves the active drawing to "c:\MyDrawing.dwg" if it is currently not saved or under its current name.
VB.NET
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.Runtime
<CommandMethod("SaveActiveDrawing")> _
Public Sub SaveActiveDrawing()
Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim strDWGName As String = acDoc.Name
Dim obj As Object = Application.GetSystemVariable("DWGTITLED")
'' Check to see if the drawing has been named
If System.Convert.ToInt16(obj) = 0 Then
'' If the drawing is using a default name (Drawing1, Drawing2, etc)
'' then provide a new name
strDWGName = "c:\MyDrawing.dwg"
End If
'' Save the active drawing
acDoc.Database.SaveAs(strDWGName, True, DwgVersion.Current, _
acDoc.Database.SecurityParameters)
End Sub
Solved! Go to Solution.