发一个ansys的混凝土预应力的算例，原创的哈，为了积分。不会附件，直接贴了
/prep7et,1,45
mp,ex,1,3.45e10
mp,prxy,1,0.2
mp,dens,1,2600
ET,2,LINK8
R,2,6126
MP,EX,2,2e5
MP,PRXY,2,0.3
MP,ALPX,2,2e-5
k,2,6.70 ,0.00
k,3,5.00 ,0.00
k,4,4.20 ,0.00
k,5,3.60 ,0.00
k,6,2.80 ,0.00
k,7,1.10 ,0.00
k,8,0.30 ,0.00
k,9,-0.30 ,0.00
k,10,-1.10 ,0.00
k,11,-2.80 ,0.00
k,12,-3.60 ,0.00
k,13,-4.20 ,0.00
k,14,-5.00 ,0.00
k,15,-6.70 ,0.00
k,16,-7.50 ,0.00
k,17,-7.50 ,-0.15
k,18,-6.70 ,-0.35
k,19,-6.70 ,-0.90
k,20,-5.00 ,-0.90
k,21,-5.00 ,-0.35
k,22,-4.20 ,-0.20
k,23,-3.60 ,-0.20
k,24,-2.80 ,-0.35
k,25,-2.80 ,-0.90
k,26,-1.10 ,-0.90
k,27,-1.10 ,-0.35
k,28,-0.30 ,-0.20
k,29,0.30 ,-0.20
k,30,1.10 ,-0.35
k,31,1.10 ,-0.90
k,32,2.80 ,-0.90
k,33,2.80 ,-0.35
k,34,3.60 ,-0.20
k,35,4.20 ,-0.20
k,36,5.00 ,-0.35
k,37,5.00 ,-0.90
k,38,6.70 ,-0.90
k,39,6.70 ,-0.35
k,40,7.50 ,-0.15
k,1,7.50 ,0.00
a,1,2,39,40
a,2,3,36,39
a,36,37,38,39
a,3,4,35,36
a,4,5,34,35
a,5,6,33,34
a,6,7,30,33
a,30,31,32,33
a,7,8,29,30
a,8,9,28,29
a,9,10,27,28
a,10,11,24,27
a,24,25,26,27
a,11,12,23,24
a,12,13,22,23
a,13,14,21,22
a,14,15,18,21
a,18,19,20,21
a,15,16,17,18
a,20,25,24,23,22,21
a,26,31,30,29,28,27
a,32,37,36,35,34,33
VEXT,all, , ,0,0,-30
WPSTYLE,,,,,,,,1
KWPAVE, 1
wprota,,,61.9+90
vsbw,all
wprota,,,-61.9
wpoffs,20.323
wprota,,,61.9
vsbw,all
!删除体
FLST,2,22,6,ORDE,4
FITEM,2,23
FITEM,2,-41
FITEM,2,61
FITEM,2,-63
VDELE,P51X, , ,1
FLST,2,22,6,ORDE,4
FITEM,2,1
FITEM,2,-19
FITEM,2,83
FITEM,2,-85
VDELE,P51X, , ,1
vsel,s,,,86,88,1
aslv,s
lsla,s
ksll,s
vplot
!**********生成横隔板
!右端横隔板
wprota,,,-61.9
wpoffs,-0.2267
wprota,,,61.9
vsbw,all
wprota,,,-61.9
wpoffs,-0.2267
wprota,,,61.9
vsbw,all
!左端横隔板
wprota,,,-61.9
wpoffs,-19.8696
wpoffs,0.2267
wprota,,,61.9
vsbw,all
wprota,,,-61.9
wpoffs,0.2267
wprota,,,61.9
vsbw,all
!****生成中横隔梁
wprota,,,-61.9
wpoffs,13.7127-0.1
wprota,,,90
vsbw,all
wpoffs,,,0.2
vsbw,all
!*****删除多余横隔板
FLST,2,12,6,ORDE,8
FITEM,2,4
FITEM,2,-6
FITEM,2,13
FITEM,2,-15
FITEM,2,17
FITEM,2,19
FITEM,2,23
FITEM,2,-26
VDELE,P51X, , ,1
!***************************生成预应力筋
allsel
WPSTYLE,,,,,,,,1
WPCSYS,-1 !将wp与总体坐标重合
wprota,,,90
wpave,-6.45
vsbw,all
wpave,-6.21
vsbw,all
wpave,-5.97
vsbw,all
wpave,-5.73
vsbw,all
wpave,-5.49
vsbw,all
wpave,-5.25
vsbw,all
!****************
wpave,-2.55
vsbw,all
wpave,-2.31
vsbw,all
wpave,-2.07
vsbw,all
wpave,-1.83
vsbw,all
wpave,-1.59
vsbw,all
wpave,-1.35
vsbw,all
!****************
wpave,1.35
vsbw,all
wpave,1.59
vsbw,all
wpave,1.83
vsbw,all
wpave,2.07
vsbw,all
wpave,2.31
vsbw,all
wpave,2.55
vsbw,all
!****************
wpave,5.25
vsbw,all
wpave,5.49
vsbw,all
wpave,5.73
vsbw,all
wpave,5.97
vsbw,all
wpave,6.21
vsbw,all
wpave,6.45
vsbw,all
!***************1-12号钢束张拉位置确定
KWPAVE, 1
wpoffs,0.2267
wprota,,,61.9
vsbw,all
wprota,,,-61.9
wpoffs,4.5345
wprota,,,61.9
vsbw,all
wprota,,,-61.9
wpoffs,10.8006
wprota,,,61.9
vsbw,all
wprota,,,-61.9
wpoffs,3.8543
wprota,,,61.9
vsbw,all
!*********************1a-12a号钢束张拉位置确定
wprota,,,-61.9
wpoffs,0.6802
wprota,,,61.9
vsbw,all
wprota,,,-61.9
wpoffs,-6.8017
wprota,,,61.9
vsbw,all
wprota,,,-61.9
wpoffs,-6.2661
wprota,,,61.9
vsbw,all
wprota,,,-61.9
wpoffs,-6.1216
wprota,,,61.9
vsbw,all
!****************
wpave,,-0.4
wprota,,90
vsbw,all
wpave,,-0.8
vsbw,all
!***********绘制钢束(需重新确认一遍）
!第11号钢束
lsel,s,loc,x,-6.45
ksll,s
lplo
FLST,3,4,3
FITEM,3,1271
FITEM,3,1643
FITEM,3,1741
FITEM,3,1281
BSPLIN, ,P51X
!第7号钢束
allsel
lsel,s,loc,x,-6.21
ksll,s
lplo
FLST,3,4,3
FITEM,3,1274
FITEM,3,1648
FITEM,3,1742
FITEM,3,1338
BSPLIN, ,P51X
!第3号钢束
allsel
lsel,s,loc,x,-5.97
ksll,s
lplo
FLST,3,4,3
FITEM,3,1275
FITEM,3,1649
FITEM,3,1737
FITEM,3,1339
BSPLIN, ,P51X
!第3a号钢束
allsel
lsel,s,loc,x,-5.73
ksll,s
lplo
FLST,3,4,3
FITEM,3,1514
FITEM,3,1677
FITEM,3,1676
FITEM,3,1486
BSPLIN, ,P51X
!第7a号钢束
allsel
lsel,s,loc,x,-5.49
ksll,s
lplo
FLST,3,4,3
FITEM,3,1371
FITEM,3,1581
FITEM,3,1563
FITEM,3,1484
BSPLIN, ,P51X
!第11a号钢束
allsel
lsel,s,loc,x,-5.25
ksll,s
lplo
FLST,3,4,3
FITEM,3,1372
FITEM,3,1583
FITEM,3,1564
FITEM,3,1381
BSPLIN, ,P51X
!**************************
!第9号钢束
allsel
lsel,s,loc,x,-2.55
ksll,s
lplo
FLST,3,4,3
FITEM,3,1292
FITEM,3,1658
FITEM,3,1739
FITEM,3,1433
BSPLIN, ,P51X
!第5号钢束
allsel
lsel,s,loc,x,-2.31
ksll,s
lplo
FLST,3,4,3
FITEM,3,1293
FITEM,3,1657
FITEM,3,1738
FITEM,3,1431
BSPLIN, ,P51X
!第1号钢束
allsel
lsel,s,loc,x,-2.07
ksll,s
lplo
FLST,3,4,3
FITEM,3,1315
FITEM,3,1736
FITEM,3,1827
FITEM,3,1432
BSPLIN, ,P51X
!第1a号钢束
allsel
lsel,s,loc,x,-1.83
ksll,s
lplo
FLST,3,4,3
FITEM,3,1508
FITEM,3,1705
FITEM,3,1706
FITEM,3,1480
BSPLIN, ,P51X
!第5a号钢束
allsel
lsel,s,loc,x,-1.59
ksll,s
lplo
FLST,3,4,3
FITEM,3,1513
FITEM,3,1663
FITEM,3,1666
FITEM,3,1478
BSPLIN, ,P51X
!第5a号钢束
allsel
lsel,s,loc,x,-1.35
ksll,s
lplo
FLST,3,4,3
FITEM,3,1469
FITEM,3,1664
FITEM,3,1665
FITEM,3,1335
BSPLIN, ,P51X
!*************************
!第10号钢束
allsel
lsel,s,loc,x,1.35
ksll,s
lplo
FLST,3,4,3
FITEM,3,1288
FITEM,3,1654
FITEM,3,1740
FITEM,3,1408
BSPLIN, ,P51X
!第6号钢束
allsel
lsel,s,loc,x,1.59
ksll,s
lplo
FLST,3,4,3
FITEM,3,1289
FITEM,3,1608
FITEM,3,1728
FITEM,3,1409
BSPLIN, ,P51X
!第2号钢束
allsel
lsel,s,loc,x,1.83
ksll,s
lplo
FLST,3,4,3
FITEM,3,1332
FITEM,3,1609
FITEM,3,1729
FITEM,3,1439
BSPLIN, ,P51X
!第2a号钢束
allsel
lsel,s,loc,x,2.07
ksll,s
lplo
FLST,3,4,3
FITEM,3,1535
FITEM,3,1671
FITEM,3,1672
FITEM,3,1474
BSPLIN, ,P51X
!第6a号钢束
allsel
lsel,s,loc,x,2.31
ksll,s
lplo
FLST,3,4,3
FITEM,3,1534
FITEM,3,1673
FITEM,3,1674
FITEM,3,1472
BSPLIN, ,P51X
!第10a号钢束
allsel
lsel,s,loc,x,2.55
ksll,s
lplo
FLST,3,4,3
FITEM,3,1245
FITEM,3,1675
FITEM,3,1538
FITEM,3,1234
BSPLIN, ,P51X
!****************
!第12号钢束
allsel
lsel,s,loc,x,5.25
ksll,s
lplo
FLST,3,4,3
FITEM,3,1304
FITEM,3,1628
FITEM,3,1598
FITEM,3,1457
BSPLIN, ,P51X
!第8号钢束
allsel
lsel,s,loc,x,5.49
ksll,s
lplo
FLST,3,4,3
FITEM,3,1348
FITEM,3,1627
FITEM,3,1751
FITEM,3,1425
BSPLIN, ,P51X
!第4号钢束
allsel
lsel,s,loc,x,5.73
ksll,s
lplo
FLST,3,4,3
FITEM,3,1349
FITEM,3,1633
FITEM,3,1750
FITEM,3,1422
BSPLIN, ,P51X
!第4a号钢束
allsel
lsel,s,loc,x,5.97
ksll,s
lplo
FLST,3,4,3
FITEM,3,1531
FITEM,3,1696
FITEM,3,1697
FITEM,3,1420
BSPLIN, ,P51X
!第8a号钢束
allsel
lsel,s,loc,x,6.21
ksll,s
lplo
FLST,3,4,3
FITEM,3,1530
FITEM,3,1693
FITEM,3,1695
FITEM,3,1413
BSPLIN, ,P51X
!第12a号钢束
allsel
lsel,s,loc,x,6.45
ksll,s
lplo
FLST,3,4,3
FITEM,3,1637
FITEM,3,1692
FITEM,3,1694
FITEM,3,1385
BSPLIN, ,P51X
页:
[1]