et,2,184 !假設184單元編號為2
keyopt,2,1,1
keyopt,2,2,1
type,2
mat,1 !假設材料編號為1
cmsel,s,mpc
*get,num,node,,count
ljd=0
*do,i,1,num,1
cmsel,s,mpc
ljd=ndnext(ljd)
alls
e,10000,ljd !假設質量點節點編號為10000
*enddo
et,2,184 !假設184單元編號為2
keyopt,2,1,1
keyopt,2,2,1
type,2
mat,1 !假設材料編號為1
cmsel,s,mpc
*get,num,node,,count
ljd=0
*do,i,1,num,1
cmsel,s,mpc
ljd=ndnext(ljd)
alls
e,10000,ljd !假設質量點節點編號為10000
*enddo