*createstringarray

Hello,

 

I have written a TCL script that selects certain elements in my mesh. I want to have these elements put into a string array, so I can use this array to update a certain NASTRAN card, in comments, so I can use them later on in a different routine. The problem now, however, is whenever I try to use *createstringarray it gives back a 0 in the left corner.

 

The string is in a variable that needs to be substituted into *createstring array:

 

set elements {213 5342 53 213 642};

set $str [subst {\$BSURF 1 $elements}];

(Note that the BSURF is commented via $, hence the backslash)

 

*createstringarray 3 '\$beginbsurfs' $str '\$endbsurfs'

 

This following procedure returns a zero. What am I doing wrong?

 

Thank you for your help and time!

 

Jeffrey