轻松使用ansys系列3--循环中含有clear, start

xueshanfh

!如果循环变量中有/clear操作，循环变量就不能使用了。
可以先把循环变量写出去，需要的地方再读入就可了。

*do,i,1,10

!把循环变量写出去k=i
*cfopen,par_i,inp
*vwrite,i
('k='f5.0)
*cfclos

/clear,start

!读入循环变量k,代替i（防止对循环造成影响）
/input,par_i,inp  

.
.
.
*enddo



实例：循环删除单元

! use the cycle variale
*do,i,1,3
finish
*cfopen,par_i,inp
*vwrite,i
('k='f5.0)
*cfclos

/clear,start
/input,beam,cdb

/input,par_i,inp

/prep7
!delete elem
*do,j,1,k
n1=node(0,0,100)
nsel,s,loc,z,nz(n1)
esln
edele,all
ndele,all
allsel
*enddo
cdwrite,db,beam_%k%,cdb
finish
*enddo