请帮忙解释下ANSYS程序命令流
发布网友
发布时间：2024-10-23 19:55
共1个回答
热心网友
时间：2024-11-06 17:26
1. esel,s,mat,,1 ! 选择材料编号为1的单元
2. *get,enum1,elem,0,count ! 获得单元数
3. *get,el,elem,0,num,min ! 获得所选单元的最小编号
4. ksel,all ! 选择所有keypoint
5. *get,nkp1,kp,0,num,max ! 获得keypoint最大编号
6. ksel,none ! 不选择keypoint
7. asel,none ! 不选择面
8. vsel,none ! 不选择体
9. /post1 ! 后处理
10. /prep7 ! 前处理
11. SHPP,OFF ! 关闭单元形状警告
12. UPGEOM,1,LAST,LAST,'filname','rst',' '! 把最后载荷步的结果（位移）写入几何模型的 restart 文件
13. *do,i,1,enum1 ! 循环（循环次数为单元数enum1）
14. *do,j,1,3 ! 内循环3次
15. nd=nelem(el,j) ! nd为最小编号单元的j节点编号
16. knum1=nkp1+4*(i-1)+j ! 按上面的参数解释做相应的计算
17. k,knum1,nx(nd),ny(nd),nz(nd) ! 建立keypoint knum1 坐标为节点nd的坐标
18. *enddo ! 结束内循环
19. nd=nelem(el,j+2) ! nd等于单元el的j+2节点编号
20. k,knum1+1,nx(nd),ny(nd),nz(nd) ! 建立keypoint
21. v,knum1-2,knum1-1,knum1,knum1+1 ! 建体
22. el=elnext(el) ! elnext(el)意思是el的下一个单元
23. *enddo ! 结束循环
24. numm,kp ! 压缩keypoint编号
25. cm,aal1,area ! 建立面组建aal1
26. asel,r,ext ! 重新选择面
27. cm,aext,area ! 建立组建aext
28. vdel,all ! 删除体
29. va,all ! 通过选择的所有面建立体
30. cmsel,s,aal1 ! 选择面组建aal1
31. cmsel,u,aext ! 不选择aext
32. del,all,,,1 ! 删除所有面
