求助：橡胶减振器在ANSYS中应如何定义单元类型和实常数

奥斯卡

想在ANSYS做橡胶减振器的模型，不知道选什么样的单元来模拟。solid45似乎不行。

AaronSpark

见过采用轴对称平面单元56 模拟橡胶结构、轴对称平面单元42 模拟铁件结构的

AaronSpark

转一个例子：

使用方法：将宏文件复制到工程目录，起名为isolator.mac，进入ANSYS，在命令窗中输入isolator，则会出现对话框，提示输入隔震支座的力学参数，输入结束后点确定，会出现选择节点对话框（最好是先选好节点，那在这一步直接选择所有当前节点即可）。选择完节点就可以完成橡胶支座的单元及约束设定（不要再加约束了！）

1. !***********************************建立隔震支座****************************************
   
2. !    王建，2004.4，广州大学力学所
   
3. !needing update
   
4. /PMARCO
   
5. /PREP7
   
6. MULTIPRO,'start',4
   
7.    *CSET,1,3,KV,vertical K,0
   
8.    *CSET,4,6,KHu,K0_before_yield,0
   
9.    *CSET,7,9,KHd,K1_after_yield,0
   
10.    *CSET,10,12,Qd,Yielding_Force,0
    
11.    *CSET,13,15,CC,Damping_coefficient,0
    
12.    *CSET,61,62,Isolater parameter
    
13. MULTIPRO,'end'
    
14. *IF,_BUTTON,EQ,1,THEN
    
15.     /EOF
    
16. *ENDIF
    
17. ET,14,COMBIN40
    
18. ET,15,COMBIN40
    
19. ET,16,COMBIN14
    
20. KEYOPT,4,3,0   !x方向
    
21. KEYOPT,5,3,2   !y方向
    
22. KEYOPT,6,1,0    !linear
    
23. KEYOPT,6,2,3   !z方向
    
24. *GET,MAXRNUM,RCON,,NUM,MAX        !最大实常数
    
25. R,MAXRNUM+1,KHu-KHd,CC,0,0,Qd
    
26. R,MAXRNUM+2,KV
    
27. CM,BASEN,NODE
    
28. NSEL,R,P
    
29. NDNUM=NDINQR(0,13)
    
30. *DIM,N_MID,,NDNUM
    
31. N_MID(1)=NDNEXT(1)
    
32. *DO,I,2,NDNUM,1
    
33.     N_MID(I)=NDNEXT(N_MID(I-1))
    
34. *ENDDO
    
35. 
    
36. *DO,I,1,NDNUM,1
    
37.     D,N_MID(I),,,,,,ROTX,ROTY,ROTZ,,,
    
38.     XX=NX(N_MID(I))
    
39.     YY=NY(N_MID(I))
    
40.     ZZ=NZ(N_MID(I))
    
41.     N,,XX+0.05,YY,ZZ
    
42.     *GET,NMAX,NODE,,NUM,MAX
    
43.     D,NMAX,ALL
    
44.     TYPE,14
    
45.     REAL,MAXRNUM+1
    
46.     E,N_MID(I),NMAX
    
47.    
    
48.     N,,XX,YY+0.05,ZZ
    
49.     *GET,NMAX,NODE,,NUM,MAX
    
50.     D,NMAX,ALL
    
51.     TYPE,15
    
52.     REAL,MAXRNUM+1
    
53.     E,N_MID(I),NMAX
    
54.    
    
55.     N,,XX,YY,ZZ-0.05
    
56.     *GET,NMAX,NODE,,NUM,MAX
    
57.     D,NMAX,ALL
    
58.     TYPE,16
    
59.     REAL,MAXRNUM+2
    
60.     E,N_MID(I),NMAX
    
61. *ENDDO
    
62. ALLSEL,ALL

复制代码

奥斯卡

谢谢了 我先试试

奥斯卡

似乎不行啊，三个弹簧组合的效果跟一个弹簧的效果一样啊
是什么原因呢？

hrbeu2008

HYPER86单元