本帖最后由 牛小贱 于 2015-3-15 18:48 编辑
那能不能教教我怎么在我这种体上加弯矩?我想弄个盖板只起到传力作用、想在盖板中心弄一个mass21加弯矩(动态)而且我这个题上有洞、我用实体单元划分的网格以下是命令流:新手说的具体点儿!谢谢了
- /BATCH
- /COM,ANSYS RELEASE 14.0 UP20111024 09:36:43 06/15/2014
- /input,menust,tmp,'',,,,,,,,,,,,,,,,1
- /GRA,POWER
- /GST,ON
- /PLO,INFO,3
- /GRO,CURL,ON
- /CPLANE,1
- /REPLOT,RESIZE
- WPSTYLE,,,,,,,,0
- /PREP7
- K,1,1972,-2540,,
- K,2,2000,-2540,,
- K,3,1957,1780,,
- K,4,1929,1780,,
- L, 1, 2
- L, 2, 1
- L, 2, 3
- L, 3, 4
- L, 4, 1
- FLST,2,4,4
- FITEM,2,1
- FITEM,2,2
- FITEM,2,3
- FITEM,2,4
- AL,P51X
- K,5,0,1780,,
- K,6,0,-2540,,
- FLST,2,1,5,ORDE,1
- FITEM,2,1
- FLST,8,2,3
- FITEM,8,5
- FITEM,8,6
- VROTAT,P51X, , , , , ,P51X, ,360, ,
- K,7,1957,1780,,
- K,7,1957,2780,,
- K,7,1957,2780,,
- K,200,1957,2780,,
- K,201,0,2780,,
- L, 201, 200
- FLST,2,1,4,ORDE,1
- FITEM,2,33
- FLST,8,2,3
- FITEM,8,201
- FITEM,8,6
- AROTAT,P51X, , , , , ,P51X, ,360, ,
- APLOT
- /VIEW,1,1,1,1
- /ANG,1
- /REP,FAST
- FLST,2,4,6,ORDE,2
- FITEM,2,1
- FITEM,2,-4
- VADD,P51X
- FLST,2,4,5,ORDE,2
- FITEM,2,21
- FITEM,2,-24
- AADD,P51X
- !*
- VOFFST,1,40, ,
- FLST,3,1,6,ORDE,1
- FITEM,3,1
- VGEN, ,P51X, , , ,-1000, , , ,1
- SAVE
- K,300,0,1820,,
- !*
- ET,1,SOLID185
- !*
- MSHKEY,0
- MSHAPE,1,3d
- CM,_Y,VOLU
- VSEL, , , , 5
- CM,_Y1,VOLU
- CHKMSH,'VOLU'
- CMSEL,S,_Y
- !*
- VMESH,_Y1
- !*
- CMDELE,_Y
- CMDELE,_Y1
- CMDELE,_Y2
- !*
- MSHKEY,0
- MSHAPE,1,3d
- CM,_Y,VOLU
- VSEL, , , , 1
- CM,_Y1,VOLU
- CHKMSH,'VOLU'
- CMSEL,S,_Y
- !*
- VMESH,_Y1
- !*
- CMDELE,_Y
- CMDELE,_Y1
- CMDELE,_Y2
-
- /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,,temp
- ! MP,MU,1,
- ! MAT,1
- ! MP,EMIS,1,7.88860905221e-031
- ! R,3
- ! REAL,3
- ! ET,2,170
- ! ET,3,174
- ! R,3,,,1.0,0.1,0,
- ! RMORE,,,1.0E20,0.0,1.0,
- ! RMORE,0.0,0,1.0,,1.0,0.5
- ! RMORE,0,1.0,1.0,0.0,,1.0
- ! KEYOPT,3,4,0
- ! KEYOPT,3,5,0
- ! KEYOPT,3,7,0
- ! KEYOPT,3,8,0
- ! KEYOPT,3,9,0
- ! KEYOPT,3,10,2
- ! KEYOPT,3,11,0
- ! KEYOPT,3,12,5
- ! KEYOPT,3,2,0
- ! KEYOPT,2,5,0
- ! Generate the target surface
- ASEL,S,,,15
- CM,_TARGET,AREA
- ! TYPE,2
- NSLA,S,1
- ESLN,S,0
- ESLL,U
- ESEL,U,ENAME,,188,189
- NSLE,A,CT2
- ! ESURF
- CMSEL,S,_ELEMCM
- ! Generate the contact surface
- ASEL,S,,,20
- ASEL,A,,,25
- ASEL,A,,,30
- ASEL,A,,,35
- CM,_CONTACT,AREA
- ! TYPE,3
- NSLA,S,1
- ESLN,S,0
- NSLE,A,CT2 ! CZMESH patch (fsk qt-40109 8/2008)
- ! ESURF
- ALLSEL
- ESEL,ALL
- ESEL,S,TYPE,,2
- ESEL,A,TYPE,,3
- ESEL,R,REAL,,3
- /PSYMB,ESYS,1
- /PNUM,TYPE,1
- /NUM,1
- EPLOT
- ESEL,ALL
- ESEL,S,TYPE,,2
- ESEL,A,TYPE,,3
- ESEL,R,REAL,,3
- 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
- CMDEL,_CONTACT
- /COM, CONTACT PAIR CREATION - END
- EPLOT
- SAVE
复制代码
|