def force_outp
jj=0
loop cid (1,10)
sp=s_find(cid)
if s_type(sp)=1 then
jj=jj+1
;;;第一个节点相关数据
np=s_node(sp,1)
xx1=nd_pos(np,1,1)
yy1=nd_pos(np,1,2)
zz1=nd_pos(np,1,3)
ffx1=sp_force(sp,1,1)
ffy1=sp_force(sp,1,2)
ffz1=sp_force(sp,1,3)
mmx1 =sp_mom(sp,1,1)
mmy1 =sp_mom(sp,1,2)
mmz1 =sp_mom(sp,1,3)
;;;第二个节点相关数据
np=s_node(sp,2)
xx1=nd_pos(np,2,1)
yy1=nd_pos(np,2,2)
zz1=nd_pos(np,2,3)
ffx1=sp_force(sp,2,1)
ffy1=sp_force(sp,2,2)
ffz1=sp_force(sp,2,3)
mmx1=sp_mom(sp,2,1)
mmy1=sp_mom(sp,2,2)
mmz1=sp_mom(sp,2,3)
;;;形心相关数据
xx=(xx1+xx2)/2
yy=(yy1+yy2)/2
zz=(zz1+zz2)/2
ffx=(ffx1+ffx2)/2
ffy=(ffy1+ffy2)/2
ffz=(ffz1+ffz2)/2
mmx=(mmx1+mmx2)/2
mmy=(mmy1+mmy2)/2
mmz=(mmz1+mmz2)/2
xtable(1,jj)=(1,jj)
ytable(1,jj)=mmy
endif
endloop
end
force_outp
set logfile pile_moment.txt
set log on
set pagelength 1000
pri table 1
请高手指导，每次都提示 table 1 not found ，意思就是表1不存在，弯矩没有输入到表中，请问为什么？命令错误在哪里呢？谢谢！
