- 积分
- 1
- 注册时间
- 2010-3-31
- 仿真币
-
- 最后登录
- 1970-1-1
|
发表于 2013-1-16 08:54:35
|
显示全部楼层
来自 黑龙江哈尔滨
本帖最后由 MILAN3 于 2013-1-16 08:58 编辑
我是某某741 发表于 2013-1-15 17:39
同求例子,我也是新手啊
帖个例子
allsel,all !选择全部
nsel,s,loc,z,0.003 !选择Z=0.003的节点
nsel,r,loc,x,-195,195 !选择X方向上的节点
nsel,r,loc,y,-195,195 !选择Y方向上的节点
esln !选择单元,范围为X从-200至200,Y从-200至200
allsel,below,elem !选择单元的下级元素,即节点,范围为X从-200至200,Y从-200至200
nsel,r,loc,z,0.003 !再次选择Z=0.003的节点,
*get,nelem,elem,0,count !提取单元数,用于验证
*get,Nnod,NODE,0,COUNT !提取节点数,赋值给Nnod
*dim,v_xy,array,Nnod,5 !建立数组,Nnod行,5列,用于存储数据
*get,Nd,NODE,0,NUM,MIN !提取最小节点号,赋值给Nd
*Do,I,1,Nnod,1 !循环,从1至节点数Nnod,步进1,即每个节点都参与循环
v_xy(I,1)=Nd !节点号赋值给数组的第1列
v_xy(I,2)=NX(Nd) !节点的X坐标赋值给数组的第2列
v_xy(I,3)=NY(Nd) !节点的Y坐标赋值给数组的第3列
*get,v_xy(I,4),NODE,Nd,U,Z !提取节点Z向位移,赋值给数组第4列
*get,v_xy(I,5),NODE,Nd,S,EQV !提取节点Vission应力值,赋值给数组第5列
Nd=NDNEXT(Nd) !选下一个节点
*ENDDO !结束循环
*CFOPEN,v_xy,dat !建立并打开文件,文件名v_xy,格式为dat
*vwrite,
(' node X Y UZ stress')
!写文件头
*vwrite,
(' ')
!空一行
*vwrite,v_xy(1,1),v_xy(1,2),v_xy(1,3),v_xy(1,4),v_xy(1,5)
%8i%8i%8i %12.8f %12.8f
!写入节点号,X坐标,Y坐标,Z向位移和Vission应力值
*CFCLOSE
!关闭并保存文件
|
|