/prep7
NUMSTR,KP,1
NUMSTR,LINE,1
NUMSTR,AREA,1
NUMSTR,VOLU,1
CSYS,0

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!先建立模型：
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

k, 1  ,105.683,43.743,2.800,
k, 2  ,105.983,43.743,2.800,
l, 1  ,2
k, 3  ,107.183,43.743,2.800,
l, 2  ,3
k, 4  ,108.383,43.743,2.800,
l, 3  ,4
k, 5  ,109.583,43.743,2.800,
l, 4  ,5
k, 6  ,110.783,43.743,2.800,
l, 5  ,6
k, 7  ,111.983,43.743,2.800,
l, 6  ,7
k, 8  ,113.183,43.743,2.800,
l, 7  ,8
k, 9  ,113.483,43.743,2.800,
l, 8  ,9
k, 10  ,113.183,43.743,.000,
l, 8  ,10
k, 11  ,111.983,43.743,.000,
l, 7  ,11
k, 12  ,110.783,43.743,.000,
l, 6  ,12
k, 13  ,109.583,43.743,.000,
l, 5  ,13
k, 14  ,108.383,43.743,.000,
l, 4  ,14
k, 15  ,107.183,43.743,.000,
l, 3  ,15
k, 16  ,105.983,43.743,.000,
l, 2  ,16

kgen,2,2,8,1,,-1,      !复制点2（复制1个，原来1个），从点2到点8，增量1，（,,-1,）表示y轴向下方向

*do,i,1,6,1            !这个循环把10-16全部连线起来
l,9+i,10+i
*enddo

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!定义单元和属性：
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

et,1,188
mp,ex,1,2.06e11
mp,prxy,1,0.3
mp,dens,1,7850

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!以下定义的梁截面：
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

sectype,1,beam,T,,3    !定义截面1，梁截面，T型梁，没设名字，精细程度3
secdata,0.12,0.2,0.01,0.01

sectype,2,beam,T,,3    !定义截面2，梁截面，T型梁，没设名字，精细程度3
secdata,0.12,0.112,0.01,0.01

sectype,3,beam,hrect,,3    !定义截面3，梁截面，空心矩形截面，没设名字，精细程度3
secdata,0.25,0.25,0.012,0.012,0.012,0.012

sectype,4,beam,ctube,,3    !定义截面4，梁截面，圆管截面，没设名字，精细程度3
secdata,0.016,0.02

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!以下定义的变截面：（思路：先定义一个，然后通过循环得到全部）
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

sectype,6,taper            !定义截面6，变截面，起始截面是1，坐标，终止截面2，坐标
secdata,1,kx(8),ky(8),kz(8)
secdata,2,kx(10),ky(10),kz(10)

lsel,s,,,9,,               !选择9号线，分格50mm，赋值属性，材料类型1，单元类型1，方向点23号点，截面为6
lesize,all,0.05
latt,1,,1,,23,,6
lmesh,all


*do,i,1,6,1
sectype,6,taper            !通过循环得到全部
secdata,1,kx(8-i),ky(8-i),kz(8-i)
secdata,2,kx(10+i),ky(10+i),kz(10+i)

lsel,s,,,9+i,,               
lesize,all,0.05
latt,1,,1,,23-i,,6
lmesh,all
*enddo