H= 6000     !立柱高度 mm

shuiping_li= -1.761   !水平力 N/mm



/PREP7  

et,1,beam188 
mp,ex,1,2.06e5   !钢、不锈钢
mp,nuxy,1,0.3
mp,dens,1,7850e-9

!导入截面10
SECTYPE,   10, BEAM, HREC, , 3   
SECOFFSET, CENT 
SECDATA,80,160,4,4,4,4,0,0,0,0,0,0 

k,1,0,0,0
k,2,0,H,0
l,1,2

allsel            !选择所有号线，分格50mm，赋值属性，材料类型1，单元类型1，，截面为10
lesize,all,50
latt,1,,1,,,,10
lmesh,all


/solu

dk,1,ux,,,,,uz,roty
dk,2,ux,,,,uy,uz

lsel,s,,,1,1,1
cm,la,line     !施加幕墙传递过来的荷载     
SFBEAM,la,1,PRES,shuiping_li


allsel
solve


/POST1 
!显示第一主应力
/EFACET,1   
PLNSOL, S,1, 0,1.0

!显示挠度
/EFACET,1   
!PLNSOL, U,SUM, 0,1.0

!打开显示
/SHRINK,0   
/ESHAPE,1.0 
/EFACET,1   
/RATIO,1,1,1
/CFORMAT,32,0   
/REPLOT 

!消网格
/EDGE,1,0,45
/GLINE,1,-1 
/AUTO,1 
/REP,FAST