/PREP7

！創建關鍵點

K, ,-0.15,0.01,,

K, ,-0.12,0.01,,

K, ,-0.1,0,,

K, ,0,0,,

！創建直線

LSTR, 1, 2

LSTR, 2, 3

LSTR, 3, 4

！創建倒角

LFILLT,1,2,0.005, ,

LFILLT,2,3,0.005, ,

！線相加

FLST,2,5,4,ORDE,2

FITEM,2,1

FITEM,2,-5

LCOMB,P51X, ,0

！創建關鍵點

K, ,0,0.0105,,

！選擇生成面（沖床）

FLST,2,1,4,ORDE,1

FITEM,2,1

FLST,8,2,3

FITEM,8,5

FITEM,8,4

AROTAT,P51X, , , , , ,P51X, ,360, ,

！復制生成面（沖模）

FLST,3,4,5,ORDE,2

FITEM,3,1

FITEM,3,-4

AGEN,2,P51X, , , ,0.011, , ,0

！創建關鍵點

K,30,-0.15,0.0105

！生成線

LSTR, 30, 5

！生成面（板坯）

FLST,2,1,4,ORDE,1

FITEM,2,17

FLST,8,2,3

FITEM,8,5

FITEM,8,4

AROTAT,P51X, , , , , ,P51X, ,360, ,

！選擇單元

ET,1,SHELL163

！設置單元屬性

KEYOPT,1,1,10

KEYOPT,1,2,0

KEYOPT,1,3,0

KEYOPT,1,4,0,

！生成實常數

R,1,5/6,5,0.005, , , ,

！生成材料模型（沖床）

EDMP,RIGI,1,7,7

MP,DENS,1,7850

MP,EX,1,2.1e11

MP,NUXY,1,0.3

！生成材料模型（板坯）

MP,DENS,2,7850

MP,EX,2,1.17e11

MP,NUXY,2,0.36

TB,BISO,2,,,,

TBDAT,1,2e8

TBDAT,2,10e8

！生成材料模型（沖模）

EDMP,RIGI,3,6,7

MP,DENS,3,7850

MP,EX,3,2.1e11

MP,NUXY,3,0.3

！設置SHEET屬性

EDSHELL,20,-1,1,2,1,1

！選擇只能劃分

SMRT,5

！設置單元材料模型

MAT, 1

！設置單元尺寸

ESIZE,0.003,0,

！設置單元形狀

MSHAPE,0,2D

MSHKEY,0

！劃分單元（沖床）

AMESH,1

AMESH,2

AMESH,3

AMESH,4

！設置單元材料模型

MAT, 2

！劃分單元（板坯）

AMESH,9

AMESH,10

AMESH,11

AMESH,12

！設置單元材料模型

MAT, 3

！劃分單元（沖模）

AMESH,5

AMESH,6

AMESH,7

AMESH,8

！創建PART

EDPART,CREATE

！定義接觸

EDCGEN,FSTS, 2, 1,0.2,0.1,0,0,10, , , , ,0,10000000,0,0

EDCGEN,FSTS, 2, 3,0.2,0.1,0,0,10, , , , ,0,10000000,0,0

！定義時間變量

*DIM,time,ARRAY,8,1,1, , ,

!定義壓下量

*DIM,deflection,ARRAY,8,1,1, , ,

!賦值時間變量

*SET,TIME(2,1,1) , 0.006

*SET,TIME(3,1,1) , 0.007

*SET,TIME(4,1,1) , 0.009

*SET,TIME(5,1,1) , 0.011

*SET,TIME(6,1,1) , 0.012

*SET,TIME(7,1,1) , 0.014

*SET,TIME(8,1,1) , 0.015

！賦值壓下量

*SET,DEFLECTION(2,1,1) , -0.008

*SET,DEFLECTION(3,1,1) , -0.01

*SET,DEFLECTION(4,1,1) , -0.012

*SET,DEFLECTION(5,1,1) , -0.014

*SET,DEFLECTION(6,1,1) , -0.017

*SET,DEFLECTION(7,1,1) , -0.021

*SET,DEFLECTION(8,1,1) , -0.021

！施加荷載

EDLOAD,ADD,RBUY,0, 3,TIME,DEFLECTION, 0, , , , ,

！進入求解器

FINISH

/SOL

！定義結束時間

TIME,0.014,

！定義輸出格式

EDOPT,ADD,blank,BOTH

！定義輸入步數

EDRST,20,

EDHTIME,50,

！保存文件

SAVE

！選擇所有

ALLSEL,ALL

！求解

SLOVE