Automate Sectionplanetoblock

In my drawings I use the sectionplane command to make 2D elevations of my Solid Models. When I make changes all the sections need Updated using the Sectionplanetoblock command. I would like to automate this and have all the sections updated with one command.

My drawings contain a solid model and a few blocks

In the blocks there is a section object and a block that it creates

I would like to select a block issue a command and the Section inside that block gets updated.

Ive tried to understand lisp enough to do this but I need help.

First thing l have tried to do and failing is to make a lisp to select a sectionplane and run the command Sectionplanetoblock

I would post my fails but they are very simple

Can someone help me with a Start?