$
$****************************************       macros
$
&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 %x %y %z %mx %my %mz -cen %node
&endmacro
&m_act nodlod null
$
$
$****************************************       dimensions
$
&dimen -dim feet kips
$
$****************************************       describe body
$
&describe body test
&default -nuse @
*left       1   0  0
*rc         0   0 10
*rp         0  -5 10
*rs         0   5 10
~fix fix x y z rx ry rz
rest ~fix *rc
rest ~fix *rp
rest ~fix *rs
~beam  pri 1000 20
~plate plate 20
plate p1 ~plate -go1 0 0 10*12 *left *rp *rs
sp_plate sp1 -ele p1   ~plate -go1 0 0 10*12 *left *rp *rs
&set force = 1
nodlod #load *left %force% 0 0 0 %force%*10 0