/FILNAME,join,1
/PREP7
/TITLE,joint
ET,1,SOLID65
ET,2,LINK8
ET,3,LINK8
ET,4,SOLID45
FC=18.9
MP,EX,1,17955
MP,PRXY,1,0.2
MP,DENS,1,2.5E3
MP,EX,2,3.04E5
MP,PRXY,2,0.3
MP,DENS,2,7.8E3
MP,EX,3,2.1E5
MP,PRXY,3,0.3
MP,DENS,3,7800
MP,EX,4,1E5
MP,PRXY,4,0.2
MP,DENS,4,0
TB,MISO,1,,11,
TBPT,,0.0004,1.2E+007

TBPT,,0.0008,2.133E+007
TBPT,,0.0012,2.8E+007

TBPT,,0.0016,3.2E+007

TBPT,,0.002,3.333E+007

TBPT,,0.0024,3.222E+007
TBPT,,0.0026,3.111E+007
TBPT,,0.003,3E+007

TBPT,,0.0036,2.889E+007
TBPT,,0.004,2.833E+007
TBPLOT,MISO,1
TB,BKIN,2,,,,
TBMODIF,2,1,456
TBMODIF,3,1,2.1e3
TBPLOT,BKIN,2
TB,BKIN,3,,,,
TBMODIF,2,1,334
TBMODIF,3,1,2.1e3
TBPLOT,BKIN3
PI=ACOS(-1)
建立模型
R,1,0.25*PI*14*14
定义 real

R,2,0.25*PI*12*12
R,3,0.25*PI*8*8
/PREP7
BLOCK,550,750,0,700,0,25
BLOCK,550,750,0,700,25,175
BLOCK,550,750,0,700,175,200
BLOCK,550,750,700,1150,0,25
BLOCK,550,750,700,1150,25,175
BLOCK,550,750,700,1150,175,200


WPOFF,,50
切分平面
WPROT,,-90
VSBW,ALL
*DO,I,1,5
WPOFF,,,80
VSBW,ALL
*ENDDO
*DO,I,1,5
把中间去掉（梁的切分体）
WPOFF,,,50
VSBW,ALL
*ENDDO

VSBW,ALL
*DO,I,1,5
WPOFF,,,80
VSBW,ALL
*ENDDO


WPCSYS,-1


切分出柱纵筋的位置
WPOFF,,,30
VSBW,ALL
WPOFF,,,14
VSBW,ALL
WPOFF,,,112
VSBW,ALL
WPOFF,,,14
VSBW,ALL
WPROT,,,90
WPOFF,,,580
VSBW,ALL
WPOFF,,,14
VSBW,ALL
WPOFF,,,112
VSBW,ALL
WPOFF,,,14
VSBW,ALL



WPCSYS,-1

! 用坐标平面切割梁体

BLOCK,0,550,450,700,25,175
BLOCK,750,1300,450,700,25,175


WPOFF,,,55

切分出梁纵筋的位置
VSBW, ALL
WPOFF,,,12
VSBW, ALL

WPOFF,,,66
VSBW, ALL
WPOFF,,,12
VSBW,ALL

WPOFF,,450
WPROT,,90
WPOFF,,,-30
VSBW, ALL
WPOFF,,,-12
VSBW, ALL
WPOFF,,,-166
VSBW,ALL
WPOFF,,,-12
VSBW, ALL


WPCSYS,-1
wprot,,,90
WPOFF,,,70
Z 轴移动
*DO,I,1,6
VSBW,ALL

WPOFF,,,80
*ENDDO
WPOFF,,,200
*DO,I,1,7
VSBW,ALL

WPOFF,,,80
*ENDDO
nummrg,all
numcmp,all


! 整理和合并各种编号
WPCSYS,-1

柱钢筋及划分单元
ELEMSIZ=50
LSEL,S,LOC,Z,44
LSEL,R,LOC,X,594
LSEL,R,LOC,Y,0,1150
CM,ZJ1,LINE

latt,,1,2

LESIZE,ALL,ELEMSIZ



lsel,s,loc,z,44

lsel,r,loc,x,706

lsel,r,loc,y,0,1150
CM,ZJ2,LINE

latt,,1,2

LESIZE,ALL,ELEMSIZ


lsel,s,loc,z,156

lsel,r,loc,x,594

lsel,r,loc,y,0,1150
CM,ZJ3,LINE

latt,,1,2

LESIZE,ALL,ELEMSIZ


lsel,s,loc,z,156

lsel,r,loc,x,706

lsel,r,loc,y,0,1150
CM,ZJ4,LINE

latt,,1,2
LESIZE,ALL,ELEMSIZ

ALLSEL,ALL
LSEL,S,TAN1,Y

LSEL,R,LOC,X,580,720
LSEL,R,LOC,Z,30,170
LSEL,U,LOC,Y,0
LSEL,U,LOC,Y,1150
LSEL,U,LOC,X,594
LSEL,U,LOC,X,706
LSEL,U,LOC,Z,44
LSEL,U,LOC,Z,156

CM,GJ-1,LINE
LATT,,3,3
LESIZE,ALL,ELEMSIZ
显示箍筋图形

WPCSYS,-1
梁钢筋划分
ELEMSIZ=50
LSEL,S,LOC,Z,67
LSEL,R,LOC,y,492
LSEL,R,LOC,x,0,1300
CM,XJ1,LINE

latt,,1,2

LESIZE,ALL,ELEMSIZ


lsel,s,loc,z,133

lsel,r,loc,y,492

lsel,r,loc,x,0,1300
CM,XJ2,LINE

latt,,1,2

LESIZE,ALL,ELEMSIZ


lsel,s,loc,z,133

lsel,r,loc,y,658

lsel,r,loc,x,0,1300
CM,XJ3,LINE

latt,,1,2

LESIZE,ALL,ELEMSIZ


lsel,s,loc,z,67

lsel,r,loc,y,658

lsel,r,loc,x,0,1300
CM,XJ4,LINE

latt,,1,2

LESIZE,ALL,ELEMSIZ

ALLSEL,ALL
LSEL,S,TAN1,x

LSEL,R,LOC,z,55,145
LSEL,R,LOC,y,480,670
LSEL,U,LOC,x,0
LSEL,U,LOC,x,1300
LSEL,U,LOC,z,67
LSEL,U,LOC,z,133
LSEL,U,LOC,y,492
LSEL,U,LOC,y,658
CM,GJ-2,LINE
LATT,,3,3
LESIZE,ALL,ELEMSIZ

CMSEL,S,ZJ1
CMSEL,A,ZJ2
CMSEL,A,ZJ3
CMSEL,A,ZJ4
CMSEL,A,GJ-1



CMSEL,S,XJ1
CMSEL,A,XJ2
CMSEL,A,XJ3
CMSEL,A,XJ4
CMSEL,A,GJ-2
LMESH,ALL

LSEL,ALL
/ESHAPE,1
EPLOT