Migrer ses familles Revit en version 2016
Autodesk fournit une procédure mais encore faut il la trouver.
Dans le dossier d'installation de Revit, par défaut :
C:\Program Files\Autodesk\Revit 2015\fr-FR\Utilities\ContentBatchUtility
Vous trouvez trois fichiers : readme.english.txt
Upgrade_RFA.bat
Upgrade_RFA.txt
Vous devez copier les deux derniers fichiers à la racine de votre bibliothèque et double cliquer sur le fichier Upgrade_RFA.bat.
C:\ProgramData\Autodesk\RVT 2015\Libraries\French_INTL
Ce dernier va créer un nouveau fichier
famlist_rfa.txt
Il vous suffit de glisser ce dernier sur votre icone Revit qui se trouve sur le bureau.
Cela va lancer Revit, ouvrir chaque élément de bibliothèque et l'enregistrer au dernier format.
Cela peut prendre du temps...
Interessons nous au fichier
Upgrade_RFA.bat
Vous pouvez les créer vous même avec le bloc note
CHCP 1252
cd .
del /s /F *.0*.rfa
dir /B /S *.rfa > famlist_rfa.txt
idem pour le fichier
Upgrade_RFA.bat
'
'added arrange windows and zoom all - smc 03/10/2003
'update for 2010 - modify save as command - smc 2/25/2009
'
Dim Jrn
Set Jrn = CrsJournalScript
Dim Fname, filex
InputFile = "famlist_rfa.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists (InputFile) Then
Set f = fso.OpenTextFile(InputFile, 1)
' Browser Deactivate
Do While f.AtEndOfStream <> True
Fname = f.ReadLine
set filex = fso.getfile(Fname)
file = filex.name
upgrade Fname, file
Loop
Jrn.Command "SystemMenu" , "Quit the application; prompts to save projects , ID_APP_EXIT"
Else
Jrn.Command "Menu" , "Create a new project , ID_FILE_NEW_CHOOSE_TEMPLATE"
Jrn.RadioButton "Modal , New Project , Dialog_Revit_NewProject" , "None, Control_Revit_RadioNoTemplate"
Jrn.PushButton "Modal , New Project , Dialog_Revit_NewProject" , "OK, IDOK"
Jrn.PushButton "Modal , Select Initial Units , Dialog_Revit_SelectInitUnits" , "Imperial, IDOK"
Jrn.Command "Menu" , "Create a text object , ID_OBJECTS_TEXT_NOTE"
Jrn.MouseMove 0 , 129 , 123
Jrn.LButtonDown 1 , 129 , 123
Jrn.MouseMove 1 , 129 , 123
Jrn.LButtonUp 0 , 129 , 123
Jrn.MouseMove 0 , 51 , 213
Jrn.Command "DesignBar" , "Select objects to modify , ID_BUTTON_SELECT"
Jrn.Data "EditRichText" , "file " & InputFile & " is missing", 0, 0
Jrn.Data "Transaction Successful" , "Text"
Jrn.Command "Menu" , "Redraw everything as large as fits into window , ID_ZOOM_FIT"
End If
Sub upgrade(namepath, file)
Jrn.Command "Menu", "Open an existing project , 57601 , ID_FILE_OPEN"
Jrn.Data "File Name" _
, "IDOK", namepath
Jrn.Command "Internal" , " , ID_REVIT_SAVE_AS_FAMILY"
Jrn.Data "File Name" , "IDOK", namepath
Jrn.Command "Menu" , "Close the active project , ID_REVIT_FILE_CLOSE"
End Sub
