『分享』用ansy/lsdyna做的冲压命令流

/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