lpsw 发表于 2008-4-8 16:14

急求:ANSYS----这段程序的意思是?

allsel,all
*get,e_suma,elem, ,num,max
cmsel,s,dam_e
cmsel,s,dam_up_n
nsel,r,loc,y,55,60
nsel,r,loc,z,40,108

*get,n_suma,node, ,count
*dim,n_massa,array,n_suma,3,1

*get,n_massa(1,1),node, ,num,min
*get,n_massa(1,2),node,n_massa(1,1),loc,z
n_massa(1,3)=arnode(n_massa(1,1))*0.399*0.875*1000*sqrt(68*(108-n_massa(1,2)))
type,2
r,1,n_massa(1,3)
en,e_suma+1,n_massa(1,1)
emodif,e_suma+1,real,1

*do,k,2,n_suma
n_massa(k,1)=ndnext(n_massa(k-1,1))
*get,n_massa(k,2),node,n_massa(k,1),loc,z
n_massa(k,3)=arnode(n_massa(k,1))*0.399*0.875*1000*sqrt(68*(108-n_massa(k,2)))
type,2
r,k,n_massa(k,3)
en,e_suma+k,n_massa(k,1)
emodif,e_suma+k,real,k
*enddo
页: [1]
查看完整版本: 急求:ANSYS----这段程序的意思是?