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