Q：已将预应力筋按LINK8单元划分30等分，各单元的温降也已计算完毕，现在想为这30个单元以读入数据文件方法加温，可是总是只加第一个温度到所有单元。我已经分别用了ARRAY和TABLE 都不行，请指教。
A：你看看这个，自己修改搞定如何？
/prep7
et,1,link8
k
k,,100
k,,200,50
l,1,2
l,2,3
lesize,all, , ,10
lmesh,all
以上是建模试验
-------------
!向线上施加温度的初步例题
!从数据文件读入数据并施加
!从线的一端到另一端
!选择线可采用其它方式，数组大小可另定
*dim,tem,,20 !定义数组
*vread,tem(1),wd,txt !从文件wd.txt读入
(20f5.1)
csys,0
lineno=2
allsel,all
lsel,s,,,lineno !选择线
nsll,r,1 !选择其中的结点
*get,k1,line,lineno,kp,1 !得到KP1
*get,ncount,node,0,count !得到结点总数
*get,nmax,node,0,num,max !得到最大结点号
*get,nmin,node,0,num,min !得到最小结点号
nnum=node(kx(k1),ky(k1),kz(k1)) !得到一端的结点号
*do,loopno,1,ncount,1 !循环结点总数
bf,nnum,temp,tem(loopno) !施加温度值
*if,nnum,eq,nmin,then !得到紧邻下一结点号
nnum=ndnext(nmin)+1
*elseif,nnum,eq,nmax,then
nnum=ndnext(nmin)
*else
nnum=ndnext(nnum)
*endif
*enddo !循环结束标志
allsel,all
bflis,all
!----------------------
以下是wd.txt文件内容，另存为文件
10.0 20.0 30.0 40.0 50.0 60.0 70.0 71.0 72.0 73.0 74.0 75.0
10.0 20.0 30.0 40.0 50.0 60.0 70.0 71.0 72.0 73.0 74.0 75.0 |
置顶卡
