TCL script to automatically assign material properties

Hi,

I need to create a TCL script that automatically assigns material properties to individual CBEAM elements in a component composed of a large number of CBEAM elements. I am essentially creating a lattice within a component but using CBEAM elements. Does anyone have any advice regarding the script, or how I would go about doing it?

Kind Regards,

Laurence Maskell