power outage; personal settings reset

[norkamus]

On Thursday, our shop experienced a power outage. Now, I've found that all of my keyboard assignments, and settings in the options menu have been reset. Also, a couple icons that I had assigned to macros in toolbars have been replaced with plain text.

Is there any way I can fix this? Is there a configuration file somewhere that may have been corrupted that I can retreive from backup? This is truly awful and will take ages to fix if not.


Nick

Light structural commercial aircraft parts
PCDMIS 4.3 CAD++, CATIA V5 R20
APM Consortium Inc.
Cambridge Ontario, Canada

 

[norkamus]

Really? Nobody has ever had the UI reset or do weird things? 'Course it happened to me!

Light structural commercial aircraft parts
PCDMIS 4.3 CAD++, CATIA V5 R20
APM Consortium Inc.
Cambridge Ontario, Canada

 

[ferdo]

Hi,

Sorry for late response, no internet connection for a while...

There is no way to recover your custom CATSettings if you didn't save them before...usually you have to back-up them when CATSettings are "fresh" and you finished your customization...

In the future you can use in a CATScript the code bellow. This is just the part of the back-up, it can be improved by writing the code to copy back on the right CATSettings location....(if someone wish).

Option Explicit
Sub CATMain ()

Dim input, sLF

'~ create input box which is in fact the path to CATSettings files
sLF = Chr(10)
 input = InputBox ("You can create a back-up copy of your CATSettings and CATPreferences files when CATIA is working fine. The path to your CATSettings and CATPreferences files is bellow. Bach-up is in c:\Temp\  folder", "Find user CATSettings folder", CATIA.SystemService.Environ ( "CATUserSettingPath") )
If input = "" Then
	Exit Sub
End If

'~ Create a Windows Shell object
 Dim objPath, objShell, strPath, strPrompt   
Set objShell = CreateObject( "Shell.Application" )

Dim objFSO,  Newfolder2, filesys, Newfolder1
Set objFSO = CreateObject("Scripting.FileSystemObject")

'~ create Temp folder if not existing
If  Not objFSO.FolderExists("c:\temp\") Then
   Newfolder1 = objFSO.CreateFolder ("c:\temp\")
End If

Dim UserName, objNet
Set objNet = CreateObject("WScript.NetWork") 
Newfolder2 = "c:\" & "temp\" & "CATSettings_Back-up " & objNet.UserName 

'~ Delete the previous BACK-up CATSettings folder if existing
If   objFSO.FolderExists(Newfolder2) Then
   objFSO.DeleteFolder(Newfolder2)  
   End If 

'Create the folder (again) to have the latest version
objFSO.CreateFolder Newfolder2

' copy files from one folder to another
        Dim sOriginFolder, sDestinationFolder, sFile, oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
sOriginFolder = input '
sDestinationFolder = Newfolder2
For Each sFile In oFSO.GetFolder(sOriginFolder).Files
If Not oFSO.FileExists(sDestinationFolder & "\" & oFSO.GetFileName(sFile)) Then
oFSO.GetFile(sFile).Copy sDestinationFolder & "\" & oFSO.GetFileName(sFile),True
End if
next

End Sub

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/