VII.3.2 Workbook events

Two events are defined in the workbook:

• The “BeforeClose” event offers to save the current ClaDb database into an NDF file, and into the “NeutralLines” spreadsheet, before the workbook is closed. Note that if you save the database into the “NeutralLines” spreadsheet, you must also save the Excel workbook if you want to retrieve your 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 make changes 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” is used to change the out-of-plane shear calculation approach.)