File fails to save

[Anonymous]

I'm working on some code to save a DXF file after modification as a R12 DXF, but I'm having problems with the "SaveAs" function. Part of the code is below (just watch out for broken lines). It fails at the last line below.

Any suggestions?


MsgBox ThisDrawing.FullName
If (ThisDrawing.FullName = "") Or StrComp("DWG", UCase(Right(ThisDrawing.FullName, 3))) = 0 Then
SaveFile
Exit Sub
End If

Dim dteCreate As Date
Dim dteAccess As Date
Dim dteModify As Date

If Not modTime.GetFileTimes(ThisDrawing.FullName, dteCreate, dteAccess, dteModify, True) Then
Call MsgBox("Error getting file dates.", vbCritical, "Unable to Read File Dates")
Exit Sub
End If

MsgBox "Modified date: " & dteModify
oldDateMod = dteModify

ThisDrawing.SaveAs ThisDrawing.FullName, acR12_dxf

[Anonymous]

there seems to be some logic error.

shouldn't this

If (ThisDrawing.FullName = "")

be this

If (ThisDrawing.FullName <> "")

because i think that the fullname property is not set to anything and
therefore your SaveAs method will fail. i don't think you need the DWG part
of the statement.


wrote in message news:5840255@discussion.autodesk.com...
I'm working on some code to save a DXF file after modification as a R12 DXF,
but I'm having problems with the "SaveAs" function. Part of the code is
below (just watch out for broken lines). It fails at the last line below.

Any suggestions?


MsgBox ThisDrawing.FullName
If (ThisDrawing.FullName = "") Or StrComp("DWG",
UCase(Right(ThisDrawing.FullName, 3))) = 0 Then
SaveFile
Exit Sub
End If

Dim dteCreate As Date
Dim dteAccess As Date
Dim dteModify As Date

If Not modTime.GetFileTimes(ThisDrawing.FullName, dteCreate, dteAccess,
dteModify, True) Then
Call MsgBox("Error getting file dates.", vbCritical, "Unable to Read
File Dates")
Exit Sub
End If

MsgBox "Modified date: " & dteModify
oldDateMod = dteModify

ThisDrawing.SaveAs ThisDrawing.FullName, acR12_dxf

[Anonymous]

Thought logic was OK.

The full code (not included) is intended to work only on existing DXF files loaded into ACAD for modification. So a new drawing won't have a name until saved, and I don't want the code to work on a DWG. Hence the code :-

If (ThisDrawing.FullName = "") Or StrComp("DWG", UCase(Right(ThisDrawing.FullName, 3))) = 0 Then
SaveFile 'gets the windows save dialog
Exit Sub 'so we don't get to the later ThisDrawing.SaveAs
End If

[Anonymous]

what is the exact error message you are getting? what version of ac are you
running this code on?

wrote in message news:5840341@discussion.autodesk.com...
Thought logic was OK.

The full code (not included) is intended to work only on existing DXF files
loaded into ACAD for modification. So a new drawing won't have a name until
saved, and I don't want the code to work on a DWG. Hence the code :-

If (ThisDrawing.FullName = "") Or StrComp("DWG",
UCase(Right(ThisDrawing.FullName, 3))) = 0 Then
SaveFile 'gets the windows save dialog
Exit Sub 'so we don't get to the later ThisDrawing.SaveAs
End If

[Anonymous]

The error message is a very helpful dialog box with "Error saving document" message. If I click the HELP button "Help topic does not exist". All very helpful!

This is in both ACAD 2004 and ACAD Mechanical 2007.

[Anonymous]

try supplying a filename for the saveas operation instead of using the
Fullname property and see what happens. i still think it is failing because
you are not supplying a valid filename.

wrote in message news:5840347@discussion.autodesk.com...
The error message is a very helpful dialog box with "Error saving document"
message. If I click the HELP button "Help topic does not exist". All very
helpful!

This is in both ACAD 2004 and ACAD Mechanical 2007.

[Anonymous]

If I use "C:\testDrawing.DXF", it still doesn't work but I get a different error message!

Run-time error '-2145320861 (80210063)'
Error saving the document

[Anonymous]

So I created a new sub and typed all the same code in again and now it WORKS!

'B....' computers!!!!!

[Anonymous]

wrote in message news:5840692@discussion.autodesk.com...
So I created a new sub and typed all the same code in again and now it
WORKS!

'B....' computers!!!!!

welcome to acad vba
:-)

[Anonymous]

Much the same as Inventor VBA then........