碟形封头轮廓线建模子程序

yucpp

命令流如下，你可以插入到其他命令流的任何位置，都可以生成正确的封头轮廓线。

1. ! 碟形封头参数化建模程序 by yucpp
   
2. ! 根据圆心起点及封头内径壁厚生成封头轮廓
   
3. ! 你只需要改变R1DHA,R2DHA,THDHA,CCTX,CCTY即可，方便其他命令流引用
   
4. /PREP7
   
5. *SET,CCTX,0 !碟形封头圆心所在X坐标
   
6. *SET,CCTY,0 !碟形封头圆心所在Y坐标
   
7. *SET,R1DHA,325 !碟形封头大径
   
8. *SET,R2DHA,R1DHA*0.1 !碟形封头小径,10%碟形封头
   
9. *SET,THDHA,3.9 !碟形封头壁厚(取筒体厚度，方便建模)
   
10. *get,kdish,kp,,num,max !kdish是当前最关键点最大编号
    
11. K,(kdish+1),CCTX,CCTY !碟形封头大径圆心关键点
    
12. !生成封头内表面
    
13. K,(kdish+2),-R1DHA/2+R2DHA+CCTX,SQRT((R1DHA-R2DHA)**2-(R1DHA/2-R2DHA)**2)+CCTY !碟形封头小径圆心关键点
    
14. K,(kdish+3),-R1DHA/2+CCTX,SQRT((R1DHA-R2DHA)**2-(R1DHA/2-R2DHA)**2)+CCTY !碟形封头小圆弧起点
    
15. K,(kdish+4),-(R1DHA/2-R2DHA)*R1DHA/(R1DHA-R2DHA)+CCTX,SQRT(R1DHA**2-(R1DHA/2-R2DHA)**2*R1DHA**2/(R1DHA-R2DHA)**2)+CCTY
    
16. !碟形封头小圆弧终点(大圆弧起点)
    
17. K,(kdish+5),CCTX,R1DHA+CCTY !碟形封头大圆弧终点
    
18. LARC,(kdish+3),(kdish+4),(kdish+2),R2DHA, !生成小圆部分圆弧
    
19. LARC,(kdish+4),(kdish+5),(kdish+1),R1DHA, !生成大圆部分圆弧
    
20. !生成封头外表面
    
21. k,(kdish+6),kx(kdish+3)-THDHA,ky(kdish+3) !生成外壁小圆弧起点
    
22. K,(kdish+7),-(R1DHA+THDHA)*(R1DHA/2-R2DHA)/(R1DHA-R2DHA)+CCTX,(R1DHA+THDHA)*SQRT((R1DHA-R2DHA)**2-(R1DHA/2-R2DHA)**2)/(R1DHA-R2DHA)+CCTY
    
23. !碟形封头外壁小圆弧终点(大圆弧起点)
    
24. K,(kdish+8),CCTX,R1DHA+THDHA+CCTY !碟形封头大圆弧终点
    
25. LARC,(kdish+6),(kdish+7),(kdish+2),(R2DHA+THDHA), !生成小圆部分圆弧
    
26. LARC,(kdish+7),(kdish+8),(kdish+1),(R1DHA+THDHA), !生成大圆部分圆弧
    
27. L,(kdish+3),(kdish+6)
    
28. L,(kdish+5),(kdish+8) !连接壁厚方向之线,封头完成

复制代码

最近在做一个简单的分析设计，来回折腾了好多次了，等结束了再发点心得大家讨论下。