'
'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.MouseMove    0 ,    289 ,    233
'E 29-Mar-2011 12:27:12.050;   0:< 
Jrn.LButtonDown    1 ,    289 ,    233
  ' 0:< Candidates (curIdx = 0): 1437 (-0.045301, +0.014032, +0.000000)  
'E 29-Mar-2011 12:27:12.191;   0:< 
Jrn.MouseMove    1 ,    289 ,    233
'E 29-Mar-2011 12:27:12.191;   0:< 
Jrn.LButtonUp    0 ,    289 ,    233
  ' 0:< Candidates (curIdx = 0): 1437 (-0.045301, +0.014032, +0.000000)  
  'H 29-Mar-2011 12:27:12.191;   0:< 
  Jrn.Data "Restricted Propagation"  _
          , 2, 4
  'H 29-Mar-2011 12:27:12.253;   0:< 
  Jrn.Data "Selection action"  _
          , "REPLACE",  _
           "SEL RESULT:  : Label : Label Arial 1/8"""

Jrn.MouseMove    0 ,    289 ,    233
'E 29-Mar-2011 12:27:12.768;   0:< 
Jrn.RButtonDown    2 ,    289 ,    233
'E 29-Mar-2011 12:27:12.768;   0:< 
Jrn.RButtonUp    0 ,    289 ,    233
  ' 0:< Candidates (curIdx = 0): 1437 (-0.045301, +0.014032, +0.000000)  
'E 29-Mar-2011 12:27:15.623;   0:< 
Jrn.MouseMove    0 ,    289 ,    233
'E 29-Mar-2011 12:27:15.623;   0:< 
Jrn.Command "ContextMenu" , "Selects all elements of this type in the model , ID_PRJBROWSER_SEL_ALL"

Jrn.MouseMove    0 ,      0 ,    239

Jrn.PushButton "FormView , Properties , IDD_PROPERTIES_PALETTE" _
         , "Edit Type, ID_EDIT_SYMBOL"

  Jrn.Grid "Control; Modal , Type Properties , IDD_SYMBOL_ATTRIB; IDC_SYMBOL_GRID" _
          , "Selection" , ""
 
  Jrn.Grid "Control; Modal , Type Properties , IDD_SYMBOL_ATTRIB; IDC_SYMBOL_GRID" _
          , "MoveCurrentCell" , "Text Font" , "ValueCol"

  Jrn.Grid "Control; Modal , Type Properties , IDD_SYMBOL_ATTRIB; IDC_SYMBOL_GRID" _
          , "PartialEdit" , "Text Font" , "ValueCol" , "RomanS" , "0" , "0"

  Jrn.Grid "Control; Modal , Type Properties , IDD_SYMBOL_ATTRIB; IDC_SYMBOL_GRID" _
          , "MoveCurrentCell" , "Text Font" , "ValueCol"
  Jrn.PushButton "Modal , Type Properties , IDD_SYMBOL_ATTRIB" _
           , "OK, IDOK" 
    Jrn.Data "Transaction Successful"  _
            , "Modify type attributes"


  Jrn.Command "Internal" , " ,  "Save the active project , ID_REVIT_FILE_SAVE"
  Jrn.Command "Menu" , "Close the active project , ID_REVIT_FILE_CLOSE"

End Sub