a4crank.txt

Ansys专题教程

!
!重选上半体
VSEL,R,LOC,Y,0,dj/2+rj  !上下（Y方向）定界
VSEL,R,LOC,z,-Lj/2,0    !轴向定界
VPLOT                   !显示所选体
!
!add areas   
!将面相加
ALLSEL,BELOW,VOLU   
ASEL,R,LOC,X,0          !子午面 
AADD,all 
ALLSEL，ALL
!
!重选主轴径下半体
VSEL,R,LOC,Y,0,-dj/2-rj  !上下（Y方向）定界
VSEL,R,LOC,z,-Lj/2,0    !轴向定界
VPLOT                   !显示所选体
!
!add areas   
!将面相加
ALLSEL,BELOW,VOLU   
ASEL,R,LOC,X,0          !子午面
AADD,all 
!
!选择线并相加
!LSEL,R,LOC,Z,0  
!ALLSEL,BELOW,LINE   
!LPLOT   
!LCOMB,ALL, ,0  
!
!
!
!----------------------------Crank pin in detail---------------------------------------
!
!==================================================================================
!
!----------------------------以下连杆轴径细节描述--------------------------------------
!
!切割连杆轴径及曲柄臂平面
!
allsel,all
!
KWPAVE,      kp(H,S/2,DP/2)		!移动工作平面到连杆径中心
VSEL,S,LOC,Z,H,H+LP/2			!选择连杆径体
VPLOT   				!显示体
VSBW,       ALL				!用工作平面切割连杆轴径
!
!开始连杆轴径圆角倒角
!1.上半部分
!
!选择曲柄臂平面及连杆轴径平面
allsel,all   				!
ASEL,S,LOC,Z,H,H+LP/3			!定义Z轴位置
ASEL,R,LOC,Y,S/2,S/2+DP			!定义Y轴位置
!ASEL,R,LOC,X,0,DP/2			!定义X轴位置
APLOT					!选出两平面
ALLSEL,BELOW,AREA   			!如无这句话，则找不到其中的线
!
!去除中间多余小平面
!
!将原点所在的线和面(不选）
!
KSEL,S, , ,KP(0,S/2,H)   		!选点
LSLK,R                 			!选在此点上的线
LPLOT                   		!
ASLL,U                  		!不选由两线构成的面
APLOT                   !
!   
*get,A1,Area,,Num,Max,,,
*get,A2,Area,,Num,Min,,,
ALLSEL,BELOW,AREA 
AFILLT,A1,A2,rp,! 
!圆角处用关键点建体   
!
V,      52,      38,      55,      53,      41,      54 
!
!
!2.下半部分
!
!选择曲柄臂平面及连杆轴径平面
allsel,all   				!
ASEL,S,LOC,Z,H,H+LP/3			!定义Z轴位置
ASEL,R,LOC,Y,S/2,S/2-DP			!定义Y轴位置
!ASEL,R,LOC,X,0,DP/2			!定义X轴位置
APLOT					!选出两平面
ALLSEL,BELOW,AREA   			!如无这句话，则找不到其中的线
!
!去除中间多余小平面
!
!将原点所在的线和面(不选）
!
KSEL,S, , ,KP(0,S/2,H)   		!选点
LSLK,R                 			!选在此点上的线
LPLOT                   		!
ASLL,U                  		!不选由两线构成的面
APLOT                   !
! 
*get,A1,Area,,Num,Max,,,
*get,A2,Area,,Num,Min,,,
ALLSEL,BELOW,AREA 
AFILLT,A1,A2,rp,
!
!圆角处用关键点建体   
!
V,      54,      41,      53,      56,      40,      51 
!
!
!-----------------------------------------------------------
!
!add  两处连杆径与圆角体相加
!
!
!上半部分（v1）
allsel,all
VSEL,S,LOC,Z,h,h+Dp                !Select crankpin(volume) 
VSEL,R,LOC,Y,s/2,S/2+Dp            !Select upper half 
Vplot
VADD,all
!
!
!下半部分（v2）
allsel,all
VSEL,S,LOC,Z,h,h+Dp                !Select crankpin(volume) 
vSEL,R,LOC,Y,0,s/2                 !Select lower half 
vplot
VADD,all
!
!
!
!===========================================================================
!
!连杆径面(五处）和线（三处）相加
!
!平面相加(五处）
!
!上半部分（A1）
!
allsel,all   				!
ASEL,R,LOC,X,0,DP/2			!定义X轴位置
ASEL,R,LOC,Y,S/2,S/2+DP			!定义Y轴位置
APLOT					!选出两平面
AADD,ALL
!
!下半部分（A2）
!
allsel,all  
ASEL,R,LOC,X,0,DP/2			!定义X轴位置
ASEL,R,LOC,Z,H,H+LP/2			!定义Z轴位置   
ASEL,R,LOC,Y,S/2,S/2-DP			!定义Y轴位置
APLOT					!选出两平面
AADD,ALL
!
!中间部分（A3）
!
allsel,all  
ASEL,R,LOC,Z,H,H+LP/2			!定义Z轴位置   
ASEL,R,LOC,Y,S/2			!定义Y轴位置
APLOT					!选出两平面
AADD,ALL
!
!底面上部分（A4）--------------------------
!
allsel,all  
VSEL,R,LOC,Z,H,H+LP/2			!定义连杆径   
VSEL,R,LOC,Y,S/2,S/2+DP			!定义上半
ALLSEL,BELOW,VOLU   
ASEL,R,LOC,Z,H				!选取底平面
APLOT					!选出两平面
AADD,ALL
!
!
!底面下部分（A5）----------------------------
!
allsel,all  
VSEL,R,LOC,Z,H,H+LP/2			!定义连杆径   
VSEL,R,LOC,Y,S/2,S/2-DP			!定义下半
ALLSEL,BELOW,VOLU   
ASEL,R,LOC,Z,H				!选取底平面
APLOT					!选出两平面
AADD,ALL
!
!-------------------------------------------------------------------
!
!
!直线相加（三处）
!
!
!
!1.加中线
!
allsel,all  
VSEL,R,LOC,Z,H,H+LP/2			!定义连杆径   
VSEL,R,LOC,Y,S/2,S/2+DP			!定义上半
ALLSEL,BELOW,VOLU   
ASEL,R,LOC,z,h				!选取底平面
ALLSEL,BELOW,AREA   
LPLOT   
LSEL,R,LOC,Y,s/2			!选中线
ALLSEL,BELOW,LINE   
LPLOT   
LCOMB,ALL, ,0     			!两直线相加
!
!
!2.加上线
!
allsel,all  
VSEL,R,LOC,Z,H,H+LP/2			!定义连杆径   
VSEL,R,LOC,Y,S/2,S/2+DP/2		!定义上半
ALLSEL,BELOW,VOLU   
ASEL,R,LOC,z,h				!选取底平面
ALLSEL,BELOW,AREA   
LPLOT   
LSEL,R,LOC,X,0				!选上线
ALLSEL,BELOW,LINE   
LPLOT   
LCOMB,ALL, ,0  				!两直线相加
!
!3.加下线
!
allsel,all  
VSEL,R,LOC,Z,H,H+LP/2			!定义连杆径   
VSEL,R,LOC,Y,S/2,S/2-DP/2		!定义下半
ALLSEL,BELOW,VOLU   
ASEL,R,LOC,z,h				!选取底平面
ALLSEL,BELOW,AREA   
LPLOT   
LSEL,R,LOC,X,0				!选下线
ALLSEL,BELOW,LINE   
LPLOT   
LCOMB,ALL, ,0  				!两直线相加
!   
!
!-------------------------------------------------------------
!将主轴径及连杆轴径两半相加
!
!主轴径
!
allsel,all  
VSEL,R,LOC,Z,-LJ/2,0			!定义主轴径   
ALLSEL,BELOW,VOLU   
VPLOT
VADD,ALL 				!两体相加
!
!连杆轴径
!
allsel,all  
VSEL,R,LOC,Z,H,H+LP/2			!定义连杆径   
ALLSEL,BELOW,VOLU   
VPLOT
BTOL,0.001				!因不能相加而图放松公差
VADD,ALL 				!两体相加
!
allsel,all  
VPLOT
!
!将主轴径及连杆轴径各两底面相加
!
!连杆轴径
!选体
VSEL,S,LOC,Z,h,h+lp/2   
ALLSEL,BELOW,VOLU   
VPLOT   
!选面
ASEL,R,LOC,Z,h  
ALLSEL,BELOW,AREA   
APLOT   
AADD,ALL   
!
!主轴径
ALLSEL,ALL
!选体
VSEL,S,LOC,Z,-Lj/2,0   
ALLSEL,BELOW,VOLU   
VPLOT   
!选面
ASEL,R,LOC,Z,0  
ALLSEL,BELOW,AREA   
APLOT   
AADD,ALL   
!
ALLSEL,ALL  
VPLOT   
!
!建模完成
!
!==============================================================
!
!现在开始复制（REFLECT）
!
! 1.移动工作平面，生成连杆轴径空心轴
!
KWPAVE,       6 
wpro,,90.000000,
CYL4, , ,1.5, , , ,-6   
!
!
! 2.体相减
!
FLST,2,3,6,ORDE,3   
FITEM,2,1   
FITEM,2,-2  
FITEM,2,9   
VSBV,P51X,       3  
!
!
! 3.移动工作平面，生成主轴径空心轴
KWPAVE,       5 
CYL4, , ,2, , , ,6  
!
!NOW subtract   
FLST,2,3,6,ORDE,3   
FITEM,2,2   
FITEM,2,4   
FITEM,2,-5  
VSBV,P51X,       1  
!
!
!开始映照 1.形成全拐
!
!NOW reflect
FLST,2,2,3,ORDE,2   
FITEM,2,22  
FITEM,2,38  
KWPAVE,P51X 
!
FLST,3,3,6,ORDE,3   
FITEM,3,3   
FITEM,3,-4  
FITEM,3,6   
VSYMM,X,P51X, , , ,0,0  
!
!映照 2.形成两拐
!
!NOW reflect
CSYS,4  
FLST,3,6,6,ORDE,2   
FITEM,3,1   
FITEM,3,-6  
VSYMM,Z,P51X, , , ,0,0  
!
!
!NOW reflect
FLST,2,2,3,ORDE,2   
FITEM,2,110 
FITEM,2,142 
KWPAVE,P51X 
CSYS,4  
FLST,3,12,6,ORDE,2  
FITEM,3,1   
FITEM,3,-12 
VSYMM,Z,P51X, , , ,0,0  
!
!MOVE
!将第二拐向下翻180度，形成两拐
!
CSYS,1  
FLST,3,12,6,ORDE,2  
FITEM,3,13  
FITEM,3,-24 
VGEN, ,P51X, , , ,180, , , ,1   
!
!
!将两拐映照成四拐
!NOW reflect2TO4
!
FLST,2,2,3,ORDE,2   
FITEM,2,212 
FITEM,2,244 
KWPAVE,P51X 
CSYS,0  
CSYS,4  
FLST,3,24,6,ORDE,2  
FITEM,3,1   
FITEM,3,-24 
VSYMM,Z,P51X, , , ,0,0  
!
!