- 积分
- 0
- 注册时间
- 2007-11-12
- 仿真币
-
- 最后登录
- 1970-1-1
|
本帖最后由 xiongjian0309 于 2009-11-19 10:41 编辑
为了便于讨论问题,我把.log文件附在后面,导入ANSYS时,若出现对话框,一直按process就行,没有加工成命令流,望见谅。
只需要十分钟,就能运算结束,很简单的。
在后面,我想加入最大应力准则,但是一直只显示应力分布的情况,我想把失效的单元全部变成白色,或者直接去掉-不显示,达到一个可视化的效果。
我编了下面一段程序,只有前部分好用,后半部分都不好使,请大家帮我更正一下,解决这个问题,十分谢谢。
*get,ecount,elem,,count
*dim,enum,array,ecount
*get,enum(1),elem,,num,min
*do,i,2,ecount
enum(i)=elnext(enum(i-1))
*enddo
etable,xxs,s,x
etable,yxs,s,y
etable,zxs,s,z
etable,xyxs,s,xy
etable,xzxs,s,xz
etable,yzxs,s,yz
*do,i,2,ecount
*get,sx_,elem,enum(i),etab,xxs
forcex(i)=sx_
*if,forcex,le,-1
/color,elem,15,enum(i)
*else
/color,elem,8,enum(i)
endif
*get,sy_,elem,enum(i),etab,yxs
forcey=sy_
*if,forcey,ge,0.5e8
/color,elem,15,enum(i)
endif
*get,sz_,elem,enum(i),etab,zxs
forcez=sz_
*if,forcez,ge,0.5e8
/color,elem,15,enum(i)
endif
*get,sxy_,elem,enum(i),etab,xyxs
forcexy=sxy_
*if,forcexy,ge,0.5e8
/color,elem,15,enum(i)
endif
*get,sxz_,elem,enum(i),etab,xzxs |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有账号?注册
×
|