关于proe的精品问答10

xuy_2000

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

DD200

有点乱，看不明白呢