Unfold/Fold Sheet (Macro)

How to write a macro that will unfold the sheet, wait for 5 seconds, fold the sheet, and move to the next configuration. This should be done for all configurations in the model. What expression should be used for unfolding/folding?

 

Jak napisać makro, które rozłoży blachę, poczeka 5 sekund, złoży blachę i przejdzie do następnej konfiguracji. I tak przez wszystkie konfiguracje w modelu. Jakiego wyrażenia do rozkładania/składania użyć?