[共建]＜ANSYS命令流实例库＞敬请您的加盟

wuren09

有一本书名叫ansys土木工程应用实例上有的

hefeng902

看了这么多人都这么好心，大家一起进步，贴一个命令流顶一下，希望能加分：
m=7
n=5
s1=3
s2=3
h=2
n1=(m+1)*(n+1)
/prep7
et,1,link8
mp,ex,1,2.1e11
mp,dens,1,7800
r,1,6.2125e-4
r,2,5.1129e-4
*do,j,1,n+1
*do,i,1,m+1
n,(j-1)*(m+1)+i,(i-1)*s1,(j-1)*s2,0
*enddo
*enddo
*do,j,1,n
*do,i,1,m
n,n1+(j-1)*m+i,s1/2+(i-1)*s1,s2/2+(j-1)*s2,0-h
*enddo
*enddo
real,1
*do,j,1,n+1
*do,i,1,m
e,(j-1)*(m+1)+i,(j-1)*(m+1)+i+1
*enddo
*enddo
*do,j,1,n
*do,i,1,m+1
e,(j-1)*(m+1)+i,j*(m+1)+i
*enddo
*enddo
real,1
*do,j,1,n
*do,i,1,m-1
e,n1+(j-1)*m+i,n1+(j-1)*m+i+1
*enddo
*enddo
*do,j,1,n-1
*do,i,1,m
e,n1+(j-1)*m+i,n1+j*m+i
*enddo
*enddo
real,2
*do,j,1,n
*do,i,1,m
e,(j-1)*(m+1)+i,n1+(j-1)*m+i
e,(j-1)*(m+1)+i+1,n1+(j-1)*m+i
*enddo
*enddo
*do,j,1,n
*do,i,1,m
e,j*(m+1)+i,n1+(j-1)*m+i
e,j*(m+1)+i+1,n1+(j-1)*m+i
*enddo
*enddo
*do,j,1,n+1,n
*do,i,1,m+1
d,(j-1)*(m+1)+i,ux,0
d,(j-1)*(m+1)+i,uz,0
*enddo
*enddo
*do,j,1,n+1
*do,i,1,m+1,m
d,(j-1)*(m+1)+i,uy,0
d,(j-1)*(m+1)+i,uz,0
*enddo
*enddo
finish
/solu
antype,model
MODOPT,LANB,10
solve
finish
/post1
pldisp,2

hefeng902

不好意思，忘了说刚才贴的是正放四角锥网架结构命令流

tt-xyf

/prep7
et,1,plane42
et,2,solid65
et,3,solid45
mp,ex,1,2.8e10
mp,prxy,1,0.167
mp,dens,1,2400
mp,ex,2,2e10
mp,prxy,2,0.2
mp,dens,2,2000
k,1
k,2,10
k,3,10,2
k,4,0,2
k,5,2,2
k,6,2,10
k,7,0,10
k,8,8,2
k,9,8,10
k,10,10,10
k,11,-15
k,12,-15,-15
k,13,,-15
k,14,10,-15
k,15,25,-15
k,16,25,0
l,1,2
l,4,3
l,4,5
l,8,3
l,7,6
l,9,10
l,11,1
l,2,16
l,12,13
l,13,14
l,14,15
l,12,11
l,13,1
l,14,2
l,15,16
l,1,4
l,4,7
l,5,6
l,8,9
l,3,10
l,2,3
/pnum,line,on
lplot
al,1,21,2,16
al,3,18,5,17
al,4,20,6,19
al,7,12,9,13
al,1,13,10,14
al,8,14,11,15
/pnum,area,1
aplot
nummrg,all
numcmp,all
lsel,s,,,1,2,1
lesize,all,,,20
lsel,s,,,16,21,5
lesize,all,,,4
amesh,1
aplot
lsel,s,,,3,5,2
lesize,all,,,4
lsel,s,,,17,18,1
lesize,all,,,16
amesh,2
aplot
lsel,s,,,4,6,2
lesize,all,,,4
lsel,s,,,19,20,1
lesize,all,,,16
amesh,3
lsel,s,,,10
lesize,all,,,20
lsel,s,,,13,14,1
lesize,all,,,15,0.25
amesh,5
aplot
lsel,s,,,7,9,2
lesize,all,,,15,0.25
lsel,s,,,12
lesize,all,,,15,0.25
amesh,4
aplot
lsel,s,,,8,11,3
lesize,all,,,15,4
lsel,s,,,15
lesize,all,,,15,0.25
amesh,6
extopt,esize,10
type,2
mat,1
vext,1,3,1,,,-10
extopt,aclear,1
extopt,esize,10
type,3
mat,2
vext,4,6,1,,,-10
extopt,aclear,1
nummrg,all
numcmp,all
/solu
asel,s,loc,x,-15
asel,a,loc,x,25
da,all,ux
allsel
asel,s,loc,z,0
asel,a,loc,z,-10
asel,r,loc,y,-15,0
da,all,uz
allsel
asel,s,loc,y,-15
da,all,all
allsel
acel,0,9.8,0

nsel,s,loc,X,2
nsel,r,loc,y,2+0.1,9-0.1
nsel,r,loc,z,0-0.1,-10+0.1
esln,s
sfgrad,pres,0,y,0,-9800
sfe,all,4,pres,,9800*9

nsel,s,loc,X,8
nsel,r,loc,y,2+0.1,9-0.1
nsel,r,loc,z,0-0.1,-10+0.1
esln,s
sfgrad,pres,0,y,0,-9800   
sfe,all,2,pres,,9800*9

nsel,s,loc,y,2
nsel,r,loc,x,2+0.1,8-0.1
esln,s
sfe,all,3,pres,,9800*9
allsel
solve

tt-xyf

一个水闸的模型

bbbusts

好东西啊 谢谢 :)

gangguanfenxi

为什么都是些简单的例子呀？

lazysky

原帖由 gangguanfenxi 于 2007-8-13 17:49 发表
为什么都是些简单的例子呀？

复杂的就叫实例赏评了

ningfankun

FINISH
/CLEAR
/FILNAME, POST26,1
/TITLE, Transient thermal analyse
/PREP7
ET,1,PLANE55
TOFFST,273
MP,DENS,1,7800
MP,C,1,448
MP,KXX,1,70
PCIRC,0,0.15,0,360
AATT,1,,1
SMRTSIZE,1
AMESH,ALL
SAVE
FINISH
/SOLU
ANTYPE,TRANS
TRNOPT,FULL
NSEL,ALL
IC,ALL,TEMP,900
CSYS,1
LSEL,S,LOC,X,0.15
SFL,ALL,CONV,100,,20
TIME,50
DELTIM,1
KBC,1
OUTRES,ALL,ALL
SAVE
SOLVE
FINISH
/POST1
SET,1,10
PLNSOL,TEMP
FINISH
/POST26
NSOL,2,35,TEMP_V
PLTIME,0,20
PLVAR,2

smitten

finish
/clear
t=10
L=1000
R=100
s=40
/PREP7
ET,1,SHELL93
R,1,t
MP,EX,1,206e3
MP,PRXY,1,0.3
K,1,0,0,0,
K,2,0,0,L
LSTR, 1, 2
circle,1,R
lsel,s,loc,z,0
ADRAG,all,0,0,0,,,1
ldele,1
aesize,all,s
MSHAPE,0,2D
MSHKEY,0
amesh,all
finish
/SOLU
!加约束
lsel,s,loc,z,0
dl,all,,ux
dl,all,,uy
lsel,s,loc,z,L
dl,all,,ux
dl,all,,uy
dl,all,,uz
!加荷载
lsel,s,loc,z,0
SFL,all,PRES,1
allsel,all
PSTRES,ON
SOLVE
FINISH
/SOLU
ANTYPE,1
MXPAND,3,0,0,0,0.001,
BUCOPT,LANB,3
SOLVE
FINISH
/POST1
SET,FIRST
PLDISP,2
finish


[ 本帖最后由 smitten 于 2007-8-31 11:17 编辑 ]

lwd899

finish
/clear,start
/filname,truss
/prep7
et,1,link8
et,2,beam44
mp,ex,1,2.1e11                !钢
mp,prxy,1,0.3
mp,dens,1,7850
r,1,0.10488E-01
!SECTYPE,   1, BEAM, I, , 0  
!SECOFFSET, CENT
!SECDATA,0.302,0.302,0.294,0.012,0.012,0.012,0,0,0,0              !上弦杆
r,2,0.70080E-02
!SECTYPE,   2, BEAM, I, , 0  
!SECOFFSET, CENT
!SECDATA,0.204,0.204,0.200,0.012,0.012,0.012,0,0,0,0               !下弦杆
r,3,0.14256E-01
!SECTYPE,   3, BEAM, I, , 0  
!SECOFFSET, CENT
!SECDATA,0.348,0.348,0.344,0.016,0.016,0.010,0,0,0,0               !斜杆
r,4,0.10488E-01
!SECTYPE,   4, BEAM, I, , 0  
!SECOFFSET, CENT
!SECDATA,0.302,0.302,0.294,0.012,0.012,0.012,0,0,0,0              !吊杆
!
SECTYPE,   5, BEAM, I, , 0  
SECOFFSET, CENT
SECDATA,0.200,0.200,0.294,0.012,0.012,0.008,0,0,0,0              !纵梁
SECTYPE,   6, BEAM, I, , 0  
SECOFFSET, CENT
SECDATA,0.302,0.302,0.294,0.012,0.012,0.012,0,0,0,0              !横梁
r,7,0.49975E-02
!SECTYPE,   7, BEAM, I, , 0  
!SECOFFSET, CENT
!SECDATA,0.175,0.175,0.175,0.011,0.011,0.0075,0,0,0,0              !横撑
r,8,0.49975E-02
!SECTYPE,   8, BEAM, I, , 0  
!SECOFFSET, CENT
!SECDATA,0.175,0.175,0.175,0.011,0.011,0.0075,0,0,0,0               !上平联
r,9,0.29455E-02
!SECTYPE,   9, BEAM, I, , 0  
!SECOFFSET, CENT
!SECDATA,0.125,0.125,0.125,0.009,0.009,0.0065,0,0,0,0              !下平联
n,1,0,0,0
ngen,13,1,1,,,5,,,
n,14,5,5
n,15,10,6.3
n,16,15,7.3
n,17,20,8
n,18,25,8.4
n,19,30,8.5
n,20,35,8.4
n,21,40,8
n,22,45,7.3
n,23,50,6.3
n,24,55,5
n,1000,0,100,0
!real,1
type,1
mat,1
!secnum,2
real,2
*do,i,1,12,1
e,i,i+1,1000
*enddo
!secnum,1
real,1
e,1,14,1000
*do,i,14,23,1
e,i,i+1,1000
*enddo
e,24,13,1000
!secnum,3
real,3
*do,i,3,11,2
e,i,i+13,1000
e,i,i+11,1000
*enddo
!secnum,4
real,4
*do,i,2,12,1
e,i,i+12,1000
*enddo
/view,1,1,1,1
allsel
egen,2,45,1,45,1,,,,,,,,5.6
ngen,7,69,1,13,1,,,0.8
!关键点
nsel,s,,,1,13,1
nsel,a,,,70
nsel,a,,,139
nsel,a,,,208
nsel,a,,,277
nsel,a,,,346
nsel,a,,,415
nsel,a,,,46
ngen,2,1000,all,,,,30,
type,2
mat,1
secnum,5
real,5
*do,i,70,81,1
e,i,i+1,1070
e,i+69,(i+69)+1,1139
e,i+69*2,(i+69*2)+1,1208
e,i+69*3,(i+69*3)+1,1277
e,i+69*4,(i+69*4)+1,1346
e,i+69*5,(i+69*5)+1,1415
*enddo
secnum,6
real,6
*do,i,1,13,1
e,i,i+69,1000+i
e,i+69,i+69*2,1000+i
e,i+69*2,i+69*3,1000+i
e,i+69*3,i+69*4,1000+i
e,i+69*4,i+69*5,1000+i
e,i+69*5,i+69*6,1000+i
e,i+69*6,i+45,1000+i
*enddo
type,1
mat,1
real,7
*do,i,14,24,1
e,i,i+45
*enddo
real,8
*do,i,14,23,1
e,i,i+46
*enddo
*do,i,15,24,1
e,i,i+44
*enddo
real,9
*do,i,1,12,1
e,i,i+46
*enddo
*do,i,2,13,1
e,i,i+44
*enddo

D,1,UX
D,1,UY
D,1,UZ
!D,1,ROTX
!D,1,ROTY
D,13,UY
D,13,UZ
!D,13,ROTX
!D,13,ROTY
d,46,UX
d,46,UY
d,58,UY
save
finish
/solu
antype,static
allsel
acel,,9.8,
solve
finish
/post1
etable,fx,ls,1
PLLS,FX,FX,0.1,0
pretab,fx
etable,myi,smisc,5
etable,myj,smisc,11
plls,myi,myj,0.5
pretab,myi,myj

这座桥的模型就是这样了，但是还是不完善：我想用虚拟纵梁的办法加活载（比如人群荷载），但却不知如何实现，希望斑竹以及各位高手能够继续完善，帮我一下。

自由风

很好，好东西，谢谢

hbw8456

怎么什么白痴帖子都有啊，会不会影响质量啊

hbw8456

馁娘个腿，让我10个积分下了个几吧毛啊

zjz_ce

不错不错，谁有框架结构动力分析的？感谢

晓希

积分太少，能下的肯定不多了，不过可以看看。谢谢

luan_ma

大家把贴的例子最好能做下注释，
这样看起来也方便些，作为参考
学习用啊

dzsky

好多没有注释的，
看起来好麻烦哦
...
收集了第一页的几个，先从简单的学起

fupingtang

初学者，好东西啊，正在找这方面的东西，呵呵，正好就找到了，呵呵。　

lxh076412

原帖由 河砂 于 2005-1-14 16:05 发表
!本文件计算成桥3年后恒荷载+活荷载工况1作用下的结构
/prep7
!--------------------------------------------------------------
ET,1,SOLID187   !定义单元类型,采用10节点四面体单元
!混凝土C40
MP,EX,1,3.2 ...

大哥，你 这个程序很多错误啊！
大哥，你 这个程序很多错误啊！
得不断的调试！本身程序就够复杂了！呵呵