&macro lc_doit name case num = 1
   &env %name
   &apply -force -fract @ 0 %case  %num
   lcase -static %name
&endmacro
&macro nodlod name node x = 0 y = 0 z = 0 mx = 0 \
                        my = 0 mz = 0
   &describe load %node %node
   %name %node %x %y %z %mx %my %mz
&endmacro
&m_act nodlod null
$
&describe body test
&default -nuse @
$
*a1   -10  -5  0
*a4   -10   5  0
$
$
*b1    -5  -5  0
*b4    -5   5  0
$
*c2    -4  -4  0
*c3    -4   4  0
$
*d2     4  -4  0
*d3     4   4  0
$
*e1     5  -5  0
*e4     5   5  0
$
*f1    10  -5  0
*f4    10   5  0
$
~plate plate 1
plate qab   ~plate  *a1 *a4 *b4 *b1
plate qbe   ~plate  *b1 *b4 *e4 *e1
plate qef   ~plate  *e1 *e4 *f4 *f1
$
~fix1 fix x y z rx ry
~fix4 fix x y z rx ry
rest ~fix1 *a1
rest ~fix4 *a4
$
nodlod #load *f1 -1000
nodlod #load *f4 -1000