VII.2.2 Workbook events

Two events are defined in the workbook:

• The “BeforeClose” proposes to save the current ClaDb database into an NDF file, and into the “NeutralLines” spreadsheet before quitting the workbook. Note that if you save the database into the “NeutralLlines” spreadsheet, you also must save the excel workbook if you want to retrieve you data the next time you open it.
• The “Open” event starts the FeResPost application and retrieves the ClaDb dataBase stored in the “NeutralLines” spreadsheet when the workbook is opened. This is the place to modify if you want to modify the behaviour of FeResPost, in particular for the out-of-plane shear calculation. The method looks as follows:
      Sub workbook_Open()  
          Dim locDb As Variant  
          Dim tmpLam As Variant  
          Dim x As Variant  
      ’  
          ChDrive (VBA.Left(ActiveWorkbook.Path, 1))  
          ChDir (ActiveWorkbook.Path)  
      ’  
          x = Environ("NUMBER_OF_PROCESSORS")  
          x = Environ("PATH")  
   
          ’ClaLam.setOopsApproach ("Standard")  
          ’ClaLam.setMuxMuy 0.7, 0.8 ’ Arbitrary values here...  
          ClaLam.setOopsApproach ("UncoupledXY")  
          ’ClaLam.setOopsApproach ("InShearLoadingAxes")  
   
          Set locDb = Feuil1.getDb  
          Call Feuil14.initDbFromStoredNeutralLines  
          Call Feuil1.updateMaterialIds  
          Call Feuil1.updateLaminateIds  
          Call Feuil1.updateLoadIds  
      End Sub  
              

  (The call to “setOopsApproach” allows to change the out-of-plane shear calculation approach.)