*findattachedelementfaces

Returns information to a table about solid elements attached to quad/tria element. The table must be created with 6 integer columns using the *tablecreate command. The output to each column is as follows:

1. Input element IDs
2. Attached element IDs
3. Attached element face IDs
4. Attached element configs
5. Input element collector IDs
6. Input element normal reversed flags

To find the elements attached to all tria3 and quad4 elements:

*createstringarray 6 int int int int int int
*tablecreate "attachedelementtable" 1 1 1 6
set table_id  [hm_getvalue tables name=attachedelementtable dataname=id]
*createmark elems 1 "by config" 104 103
*findattachedelementfaces 1 $table_id
array unset faceTable
set numOfRows [hm_getvalue tables id=$table_id dataname=rows]
for {set r 0} {$r < $numOfRows} {incr r} {
    lappend faceTable(shlList)   [hm_getvalue tables id=$table_id dataname=cellvalue COLUMN=0 ROW=$r]
    lappend faceTable(solList)   [hm_getvalue tables id=$table_id dataname=cellvalue COLUMN=1 ROW=$r]
    lappend faceTable(solFaceId) [hm_getvalue tables id=$table_id dataname=cellvalue COLUMN=2 ROW=$r]
    lappend faceTable(solCfg)    [hm_getvalue tables id=$table_id dataname=cellvalue COLUMN=3 ROW=$r]
    lappend faceTable(shlCmp)    [hm_getvalue tables id=$table_id dataname=cellvalue COLUMN=4 ROW=$r]
    lappend faceTable(shlRevNrm) [hm_getvalue tables id=$table_id dataname=cellvalue COLUMN=5 ROW=$r]
}

Incorrect usage results in a Tcl error. To detect errors, you can use the catch command:

if { [ catch {command_name...} ] } {
   # Handle error
}