螺栓连接分析命令流

1、/FILNAME,Bolt,1 /TITLE, Bolt Analysis /PREP7 !定义单元。ET,1,SOLID95!定义材料属性。MPTEMP,!定义材料属性。MPTEMP,1,0 MPDATA,EX,1,1e5 MPDATA,PRXY,1,0.35 MPTEMP, !定义螺栓材料属性。MPTEMP,1,0 MPDATA,EX,2,2.06e5 MPDATA,PRXY,2,0.3 MPTEMP, MPTEMP,1,0 UIMP,2,REFT,0 MPDATA,ALPX,2,2e-5 wpro,-90.000000,!调整工作平面。! 建立几何模型。CYLIND,71, 45,0,1

2、2,-22.5,22.5,!建立上管道。CYLIND,52, 45,12,50,-22.5,22.5, ADRAG, 16, , , , , , 12!体分割。VSBA, 1, 13 CYL4,61, ,5.2, , , ,12 !螺栓孔。VSBV, 3, 1 !体布尔操作。CYL4,61, ,4, , , ,24 !建立螺栓模型。FLST,3,1,6,ORDE,1 !调整螺栓位置。FITEM,3,1 VGEN, ,P51X, , , ,-12, , , ,1CYL4,61, ,8.3, , , ,8!建立螺母模型。FLST,3,1,6,ORDE,1!调整螺母位置。FITEM,3,3 VGEN

3、, ,P51X, , , ,12, , , ,1FLST,3,1,6,ORDE,1!复制螺母。FITEM,3,3 VGEN,2,P51X, , , ,-32, , ,0 FLST,2,4,4,ORDE,2!螺母分割。FITEM,2,46 FITEM,2,-49 ADRAG,P51X, , , , , , 61 FLST,3,4,5,ORDE,2 FITEM,3,32 FITEM,3,-35 VSBA, 3,P51X !上管道螺母分割。FLST,2,4,4,ORDE,2 FITEM,2,42 FITEM,2,-45 ADRAG,P51X, , , , , , 71 FLST,3,4,5,ORDE

4、,4 FITEM,3,24 FITEM,3,-25 FITEM,3,39 FITEM,3,-40 VSBA, 6,P51X!下管道螺母分割完成。! 以上模型建立完成。! 网格划分。FLST,5,41,4,ORDE,2!管道网格密度控制。FITEM,5,1 FITEM,5,-41 CM,_Y,LINE LSEL, , , ,P51X CM,_Y1,LINE CMSEL,_Y LESIZE,_Y1,4, , , , , , ,1 FLST,5,3,6,ORDE,3!管道网格划分。FITEM,5,2 FITEM,5,4 FITEM,5,-5 VSEL,R, , ,P51X ALLSEL,BELOW,

5、VOLU VPLOT TYPE, 1 MAT, 1REAL, ESYS, 0 SECNUM, FLST,5,3,6,ORDE,3 FITEM,5,2 FITEM,5,4 FITEM,5,-5 CM,_Y,VOLU VSEL, , , ,P51X CM,_Y1,VOLU CHKMSH,'VOLU' CMSEL,S,_Y VSWEEP,_Y1 CMDELE,_Y CMDELE,_Y1 CMDELE,_Y2 !上管道网格划分完成。FLST,3,3,6,ORDE,3!通过镜像产生下管道。FITEM,3,2 FITEM,3,4 FITEM,3,-5 VSYMM,Y,P51X, , , ,

6、0,0 ALLSEL,ALL!选择所有元素。FLST,5,46,4,ORDE,2!螺栓网格密度控制。 FITEM,5,42 FITEM,5,-87 CM,_Y,LINE LSEL, , , ,P51X CM,_Y1,LINE CMSEL,_Y LESIZE,_Y1,1.6, , , , , , ,1TYPE, 1! 螺栓网格划分。MAT, 2REAL, ESYS, 0 SECNUM, FLST,5,5,6,ORDE,4 FITEM,5,1 FITEM,5,3 FITEM,5,7 FITEM,5,-9 CM,_Y,VOLU VSEL, , , ,P51X CM,_Y1,VOLU CHKMSH,&

7、#39;VOLU' CMSEL,S,_Y VSWEEP,_Y1 CMDELE,_Y CMDELE,_Y1 CMDELE,_Y2 ! 以下建立接触对。/COM, CONTACT PAIR CREATIONSTART! 建立上管道与螺栓接触对开始。CM,_NODECM,NODE CM,_ELEMCM,ELEM CM,_KPCM,KP CM,_LINECM,LINE CM,_AREACM,AREA CM,_VOLUCM,VOLU /GSAV,cwz,gsav,tempMP,MU,1,MAT,1 MP,EMIS,1,7.88860905221e-031R,3 REAL,3 ET,2,170ET

8、,3,174R,3,1.0,0.1,0,RMORE,1.0E20,0.0,1.0, RMORE,0.0,0,1.0,1.0,0.5RMORE,0,1.0,1.0,0.0,1.0KEYOPT,3,4,0KEYOPT,3,5,0KEYOPT,3,7,0KEYOPT,3,8,0KEYOPT,3,9,0KEYOPT,3,10,1 KEYOPT,3,11,0 KEYOPT,3,12,5 KEYOPT,3,2,0KEYOPT,2,5,0! Generate the target surface!产生目标面。ASEL,S,23 CM,_TARGET,AREA TYPE,2 NSLA,S,1ESLN,S,0E

9、SURF CMSEL,S,_ELEMCM ! Generate the contact surface !产生接触面。ASEL,S,37 CM,_CONTACT,AREATYPE,3 NSLA,S,1ESLN,S,0ESURF ALLSEL ESEL,ALLESEL,S,TYPE,2 ESEL,A,TYPE,3 ESEL,R,REAL,3 /PSYMB,ESYS,1 /PNUM,TYPE,1/NUM,1 EPLOT ESEL,ALLESEL,S,TYPE,2 ESEL,A,TYPE,3 ESEL,R,REAL,3 CMSEL,A,_NODECM CMDEL,_NODECM CMSEL,A,_E

10、LEMCM CMDEL,_ELEMCM CMSEL,S,_KPCM CMDEL,_KPCM CMSEL,S,_LINECM CMDEL,_LINECM CMSEL,S,_AREACM CMDEL,_AREACM CMSEL,S,_VOLUCM CMDEL,_VOLUCM /GRES,cwz,gsav CMDEL,_TARGET CMDEL,_CONTACT /COM, CONTACT PAIR CREATION - END! 建立上管道与螺栓接触对完成。/COM, CONTACT PAIR CREATION - START! 建立下接触对。CM,_NODECM,NODE CM,_ELEMCM,

11、ELEM CM,_KPCM,KP CM,_LINECM,LINE CM,_AREACM,AREA CM,_VOLUCM,VOLU /GSAV,cwz,gsav,tempMP,MU,1,0 MAT,1 MP,EMIS,1,7.88860905221e-031R,4 REAL,4 ET,4,170ET,5,174R,4,1.0,0.1,0,RMORE,1.0E20,0.0,1.0, RMORE,0.0,0,1.0,1.0,0.5RMORE,0,1.0,1.0,0.0,1.0KEYOPT,5,4,0KEYOPT,5,5,0KEYOPT,5,7,0KEYOPT,5,8,0KEYOPT,5,9,0KEY

12、OPT,5,10,1 KEYOPT,5,11,0 KEYOPT,5,12,5 KEYOPT,5,2,0KEYOPT,4,5,0! Generate the target surface!产生目标面。ASEL,S,56 CM,_TARGET,AREA TYPE,4 NSLA,S,1ESLN,S,0ESURF CMSEL,S,_ELEMCM ! Generate the contact surface !产生接触面。ASEL,S,42 CM,_CONTACT,AREATYPE,5 NSLA,S,1ESLN,S,0ESURF ALLSEL ESEL,ALLESEL,S,TYPE,4 ESEL,A,T

13、YPE,5 ESEL,R,REAL,4 /PSYMB,ESYS,1 /PNUM,TYPE,1/NUM,1 EPLOT ESEL,ALLESEL,S,TYPE,4 ESEL,A,TYPE,5 ESEL,R,REAL,4 CMSEL,A,_NODECM CMDEL,_NODECM CMSEL,A,_ELEMCM CMDEL,_ELEMCM CMSEL,S,_KPCM CMDEL,_KPCM CMSEL,S,_LINECM CMDEL,_LINECM CMSEL,S,_AREACM CMDEL,_AREACM CMSEL,S,_VOLUCM CMDEL,_VOLUCM /GRES,cwz,gsav

14、CMDEL,_TARGET CMDEL,_CONTACT /COM, CONTACT PAIR CREATION - END! 建立下接触对完成。 /COM, CONTACT PAIR CREATION - START! 建立中间接触对。 CM,_NODECM,NODE CM,_ELEMCM,ELEM CM,_KPCM,KP CM,_LINECM,LINE CM,_AREACM,AREA CM,_VOLUCM,VOLU /GSAV,cwz,gsav,tempMP,MU,1,0 MAT,1 R,5 REAL,5 ET,6,170ET,7,174KEYOPT,7,9,0KEYOPT,7,10,1

15、R,5,RMORE, RMORE,0RMORE,0 ! Generate the target surface !产生目标面。ASEL,S,18 ASEL,A,22 CM,_TARGET,AREA TYPE,6 NSLA,S,1ESLN,S,0ESURF CMSEL,S,_ELEMCM ! Generate the contact surface!产生接触面。ASEL,S,50 ASEL,A,58 CM,_CONTACT,AREATYPE,7 NSLA,S,1ESLN,S,0ESURF ALLSEL ESEL,ALLESEL,S,TYPE,6 ESEL,A,TYPE,7 ESEL,R,REAL

16、,5 /PSYMB,ESYS,1 /PNUM,TYPE,1/NUM,1 EPLOT ESEL,ALLESEL,S,TYPE,6 ESEL,A,TYPE,7 ESEL,R,REAL,5 CMSEL,A,_NODECM CMDEL,_NODECM CMSEL,A,_ELEMCM CMDEL,_ELEMCM CMSEL,S,_KPCM CMDEL,_KPCM CMSEL,S,_LINECM CMDEL,_LINECM CMSEL,S,_AREACM CMDEL,_AREACM CMSEL,S,_VOLUCM CMDEL,_VOLUCM /GRES,cwz,gsav CMDEL,_TARGET CMD

17、EL,_CONTACT /COM, CONTACT PAIR CREATION - END ! 建立中间接触对完成。 !施加载荷。 FLST,2,16,2,ORDE,16 ! 选择施加温度载荷的螺栓单元。FITEM,2,2014FITEM,2,2029FITEM,2,2044FITEM,2,2059FITEM,2,2074FITEM,2,2089FITEM,2,2104FITEM,2,2119FITEM,2,2134FITEM,2,2149FITEM,2,2164FITEM,2,2179FITEM,2,2194FITEM,2,2209FITEM,2,2224FITEM,2,2239BFE,P5