其实ansys的复制生成功能很强,如果能找到规律可以使问题大大简化
版主能不能鼓励一下,给个分!别让我的积分总是零!哈哈
/PREP7
B1=5 !X方向
B2=5 !Y方向
B3=3 !圆柱在z方向的定位
B4=20 !长方体的总长度
CL1=8 !大圆柱的高度
CL2=5 !小圆柱的高度
R1=2 !小圆柱的半径
R2=3 !大圆柱的半径
ET,1,SOLID45
K,1,0,0,0
K,2,B1,0,0
K,3,B1,B2,0
K,4,0,B2,0
K,14,0,0,-B3
K,15,0,0,-(B3+CL1)
K,16,0,0,-(B3+CL1+CL2)
K,17,0,0,-B4
L,1,14
L,14,15
L,15,16
L,16,17
CSYS,1
K,5,R1,0,0
K,6,R1,90,0
K,7,R1,45,0
K,8,R2,0,0
K,9,R2,90,0
K,10,R2,45,0
K,11,R1*0.5,0,0
K,12,R1*0.5,90,0
K,13,R1*0.5,45,0
L,6,7
L,7,5
L,9,10
L,10,8
CSYS,0
A,1,12,13,11
A,11,5,7,13
A,13,7,6,12
A,5,8,10,7
A,7,10,9,6
A,8,2,3,10
A,10,3,4,9
AGEN,2,6,7,1,0,0,-B3
AGEN,2,4,7,1,0,0,-(B3+CL1)
AGEN,2,1,7,1,0,0,-(B3+CL1+CL2)
!生成第一段体长度B3
VDRAG,1,2,3,4,5,6,1
VDRAG,7,,,,,,1
!生成大圆柱所在的体CL1
VDRAG,8,9,,,,,2
!生成小圆柱所在的体CL3
VDRAG,10,11,12,13,,,3
!生成另外异端的体
VDRAG,14,15,16,17,18,19,4
VDRAG,20,,,,,,4
CSYS,1
VGEN,2,1,20,1,0,90,0
ESIZE,,4
VMESH,ALL
希望能得到大家的鼓励与支持! |
IP卡
狗仔卡
发表于 2003-6-20 20:11:32
显身卡
