Topic: Autosave makes AutoCAD (not responding)

[Dr. After]

I'm not sure what is going on here.  I have been working fine on this IT Nazi regulated machine for the past couple weeks, but now it crashes when attempting an autosave.  What's worse is it isn't updating the *.bak file or creating the autosave file.  So my work is lost every time.  This is getting real annoying and I have never witnessed a problem quite like this.  The file paths are correct and available for the autosave.  It does sometimes promote a pop up that claims a write error or something but then crashes before I can even get any more info on it.

Any ideas?

[Dinosaur]

Are you using a civil vertical application?  This was a common complaint with the initial releases of these products, but was resolved with service packs.

[David Hall]

what version of acad?

[Dr. After]

No add ons other then Owen's Quikpic.  Other then that it's just vanilla 07.

[Dr. After]

For now I am running without autosave and I will report back to see if this allows me to work without crashing, but this is dangerous....

[David Hall]

I have a vba routine that does an autosave, you want it?

[David Hall]

Edit the commands checked to suit your needs.  I can help if you want.  Put this in the thisdrawing module of acad.dvb and it will autoload, and autorun without user need.  Also, you will want to adjust the command count to a number your comfortable with.

Code: [Select]

Option Explicit
Dim command_count As Long    'Used in AcadDocument_EndCommand function

Private Sub AcadDocument_EndCommand(ByVal CommandName As String)
    Dim SysvarName As String
    Dim intdata As Long
    Dim strData As String, strUser As String

    '***Below code is to AUTO save the drawing every 25 commands,
    If ThisDrawing.GetVariable("DWGTITLED") = 1 Then    'don't use on new, unsaved drawings
        Select Case CommandName
        Case UCase("undo"), UCase("u"), UCase("zoom"), UCase("z"), UCase("pan")
            command_count = command_count

        Case UCase("QSAVE"), UCase("SAVE")
            command_count = 0
            SysvarName = "FILEDIA"
            intdata = 1
            ThisDrawing.SetVariable SysvarName, intdata
            SysvarName = "CMDDIA"
            intdata = 1
            ThisDrawing.SetVariable SysvarName, intdata
            SysvarName = "PROJECTNAME"
            strData = "."
            ThisDrawing.SetVariable SysvarName, strData
            SysvarName = "snapmode"
            intdata = "0"
            ThisDrawing.SetVariable SysvarName, intdata
            SysvarName = "cecolor"
            strData = "bylayer"
            ThisDrawing.SetVariable SysvarName, strData
            SysvarName = "CELTYPE"
            strData = "bylayer"
            ThisDrawing.SetVariable SysvarName, strData
            SysvarName = "CELWEIGHT"
            intdata = "-1"
            ThisDrawing.SetVariable SysvarName, intdata
            ThisDrawing.Save
        Case Else
            command_count = command_count + 1
            If command_count = 75 Then    'change this to any number you want
                ThisDrawing.Save
                command_count = 0
                SysvarName = "FILEDIA"
                intdata = 1
                ThisDrawing.SetVariable SysvarName, intdata
                SysvarName = "CMDDIA"
                intdata = 1
                ThisDrawing.SetVariable SysvarName, intdata
                SysvarName = "PROJECTNAME"
                strData = "."
                ThisDrawing.SetVariable SysvarName, strData
                SysvarName = "snapmode"
                intdata = "0"
                ThisDrawing.SetVariable SysvarName, intdata
                SysvarName = "cecolor"
                strData = "bylayer"
                ThisDrawing.SetVariable SysvarName, strData
                SysvarName = "CELTYPE"
                strData = "bylayer"
                ThisDrawing.SetVariable SysvarName, strData
                SysvarName = "CELWEIGHT"
                intdata = "-1"
                ThisDrawing.SetVariable SysvarName, intdata
                ThisDrawing.Save
            End If
        End Select
    End If
End Sub


[Dr. After]

Yes, but being I can't do anything to this machine due to the netNazis....  I put in a trouble ticket already but they don't have a single person that knows what AutoCAD is.  And I also don't expect a responce from them in the next week.  For now, I am forced to just continue to work without an autosave and blame the slow and ignorant IT for anything lost.  I really wish they would let me get my own workstation...  HP's using P4's do not run CAD no matter how good of a video card you have.  I want my AMD back!!!!!

[Cathy]

Check your autosave file location.  Do you have write access to that directory?  Can you create a new file in that directory with WindowsExplorer? 

I think you can check/modify the directory (at least on 2005 acad) with Tools-->Options (Files tab), and then about halfway down is the Automatic Save File Location. 

[sinc]

No add ons other then Owen's Quikpic.  Other then that it's just vanilla 07.

Have you applied the service pack and hotfixes?  The initial release of 2007 had some serious bugs in it.

[Dr. After]

No patches installed yet.  I'll let IT know they need to get off their arses and do that.  We'll see if that fixes this.

[rkmcswain]

For now, I am forced to just continue to work without an autosave and ...

I've been working with "autosave" turned off for many years and have never had a problem. QSAVE works just fine.

[Dr. After]

OK...  found all the updates.  And it seems I need Administrative rights in order to install the SP1 and it seems I can't even download those types of files from the internet.  So here I sit working through crashes and fatal errors.  I could have this all fixed myself, but I have to wait for someone from IT to contat me back.  I sent this trouble ticket out two days ago and have updated it twice in order to keep pestering them.  Still, no call or action.  This is rediculous.... :ugly: :pissed: :realmad:

[sinc]

Yep, sounds like your company is suffering from severe mis-management.  Wonder if they know how much that sort of stuff costs them?   

[Dr. After]

Yep, sounds like your company is suffering from severe mis-management.  Wonder if they know how much that sort of stuff costs them?   

My guess is they have no clue.  It took them almost 4 full weeks after I started to get my computer up with all the correct programs installed and access to databases.  This was after they knew I was coming on for 6 weeks.  Most urgent problems that could be solved by me in minutes if I had admin rights to this machine end up not even getting started on until at least a week after I submit a ticket.  I understand why they keep these machines locked down for the majority of end users, but since I have been a network admin for the last 6 years, certified in windows, and drafting and doing CAD admin for over 10 years, I would like to have admin rights to my own darn machine.  I still find myself solving and instructing IT on how to do their job in order for the problem to ever get resolved.  Silly waste of money...