求助：橡胶减振器在ANSYS中应如何定义单元类型和实常数
想在ANSYS做橡胶减振器的模型，不知道选什么样的单元来模拟。solid45似乎不行。 见过采用轴对称平面单元56 模拟橡胶结构、轴对称平面单元42 模拟铁件结构的 转一个例子：使用方法：将宏文件复制到工程目录，起名为isolator.mac，进入ANSYS，在命令窗中输入isolator，则会出现对话框，提示输入隔震支座的力学参数，输入结束后点确定，会出现选择节点对话框（最好是先选好节点，那在这一步直接选择所有当前节点即可）。选择完节点就可以完成橡胶支座的单元及约束设定（不要再加约束了！）
!***********************************建立隔震支座****************************************
! 王建，2004.4，广州大学力学所
!needing update
/PMARCO
/PREP7
MULTIPRO,'start',4
*CSET,1,3,KV,vertical K,0
*CSET,4,6,KHu,K0_before_yield,0
*CSET,7,9,KHd,K1_after_yield,0
*CSET,10,12,Qd,Yielding_Force,0
*CSET,13,15,CC,Damping_coefficient,0
*CSET,61,62,Isolater parameter
MULTIPRO,'end'
*IF,_BUTTON,EQ,1,THEN
/EOF
*ENDIF
ET,14,COMBIN40
ET,15,COMBIN40
ET,16,COMBIN14
KEYOPT,4,3,0 !x方向
KEYOPT,5,3,2 !y方向
KEYOPT,6,1,0 !linear
KEYOPT,6,2,3 !z方向
*GET,MAXRNUM,RCON,,NUM,MAX !最大实常数
R,MAXRNUM+1,KHu-KHd,CC,0,0,Qd
R,MAXRNUM+2,KV
CM,BASEN,NODE
NSEL,R,P
NDNUM=NDINQR(0,13)
*DIM,N_MID,,NDNUM
N_MID(1)=NDNEXT(1)
*DO,I,2,NDNUM,1
N_MID(I)=NDNEXT(N_MID(I-1))
*ENDDO
*DO,I,1,NDNUM,1
D,N_MID(I),,,,,,ROTX,ROTY,ROTZ,,,
XX=NX(N_MID(I))
YY=NY(N_MID(I))
ZZ=NZ(N_MID(I))
N,,XX+0.05,YY,ZZ
*GET,NMAX,NODE,,NUM,MAX
D,NMAX,ALL
TYPE,14
REAL,MAXRNUM+1
E,N_MID(I),NMAX
N,,XX,YY+0.05,ZZ
*GET,NMAX,NODE,,NUM,MAX
D,NMAX,ALL
TYPE,15
REAL,MAXRNUM+1
E,N_MID(I),NMAX
N,,XX,YY,ZZ-0.05
*GET,NMAX,NODE,,NUM,MAX
D,NMAX,ALL
TYPE,16
REAL,MAXRNUM+2
E,N_MID(I),NMAX
*ENDDO
ALLSEL,ALL 谢谢了 我先试试 似乎不行啊，三个弹簧组合的效果跟一个弹簧的效果一样啊
是什么原因呢？ HYPER86单元
页:
[1]