For Hypermesh: OptiStruct profile: TCL macro for duplicating the assigned property to a component and renaming the duplicated property to the component name.

For Hypermesh: OptiStruct profile:
Please suggest a tcl macro for the following.

1. For each component whose ID starts from 10001, check the assigned property.
2. Duplicate the assigned property.
3. Rename the duplicated property with the component name.
4. Renumber the duplicated property ID with the component ID.
5. Assign this property to the component.

Reason for doing this:

• Properties with correct thicknesses (and material for most components) are already assigned in the existing model. But the property name is very generic (example: shell_2mm, shell_3mm, etc)

In the end, I want a unique property with correct thickness for each component.

Kindly let me know if more details are required.

Note: After this operation, I will have another requirement of fetching correct material name for each component from an external excel sheet. Will try this later.