power outage; personal settings reset
power outage; personal settings reset
(OP)
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
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





RE: power outage; personal settings reset
Light structural commercial aircraft parts
PCDMIS 4.3 CAD++, CATIA V5 R20
APM Consortium Inc.
Cambridge Ontario, Canada
RE: power outage; personal settings reset
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).
CODE --> CATScript
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 SubRegards
Fernando
https://picasaweb.google.com/102257836106335725208
https://picasaweb.google.com/103462806772634246699...