The OpenSees Community

I accept with information: set nx1 2
set ny1 2
set e1 1

block2D $nx1 $ny1 1 $e1 $Quad $eleArgs {
1 0 0
2 1 0
3 1 1
4 0 1
}

set nx2 2
set ny2 2
set e2 [expr $nx1*$ny1+1]

block2D $nx2 $ny2 2 $e2 $Quad $eleArgs {
2 1 0
5 2 0