rongzhoutt 发表于 2006-8-11 11:14

[六面体网格划分]初学者,高手请进!有点难度

这是小弟的几何模型简化后的部分命令流,我第一次划分六面体网格,请各位大虾支招!!

FINI
/CLE
LS=13
WD=11
RR=3
*DIM,RD,ARRAY,4,5
RD(1,1)=0,3,3.5,7.65
RD(1,2)=0,3,3.69,6.69

RD(1,3)=3,3.6,6.6

RD(1,4)=0,1.65,2.01,4.51   

*DIM,H,ARRAY,5,1
H(1,1)=0,3,6,20,13

/PREP7
LOCAL,11,0,0,0,0,0,90,   
WPCSYS,,11
!建立圆柱体
*DO,I,1,2
*DO,J,1,3
CYLIND,RD(J,I),RD(J+1,I),H(I,1),H(I+1,1),180,360
*ENDDO
*ENDDO
!建立长方体
*DO,I,3,3
BLOCK,-RD(1,I),RD(1,I),-RD(1,I),0,H(I,1),H(I+1,1)
*ENDDO

*DO,I,3,3
*DO,J,2,3
BLOCK,-RD(J,I),RD(J,I),-RD(J-1,I),-RD(J,I),H(I,1),H(I+1,1)
*ENDDO
*ENDDO

*DO,I,3,3
*DO,J,2,3
BLOCK,RD(J-1,I),RD(J,I),-RD(J-1,I),0,H(I,1),H(I+1,1)
BLOCK,-RD(J-1,I),-RD(J,I),-RD(J-1,I),0,H(I,1),H(I+1,1)
*ENDDO
*ENDDO




*DO,I,1,2
BLOCK,-LS,LS,-WD,0,H(I,1),H(I+1,1)
*ENDDO

*DO,I,3,3
BLOCK,-LS,LS,-WD,-RD(3,I),H(I,1),H(I+1,1)
*ENDDO
*DO,I,3,3
BLOCK,-RD(3,I),-LS,0,-RD(3,I),H(I,1),H(I+1,1)
BLOCK,RD(3,I),LS,0,-RD(3,I),H(I,1),H(I+1,1)
*ENDDO

ALLS
VPTN,ALL
NUMCMP,ALL
CM,CM_V1,VOLU
SAVE,V1,DB


LOCAL,12,0,RD(1,3),-H(5,1),0,,,90
WPCSYS,,12
*DO,I,1,3
CYLIND,RD(I,4),RD(I+1,4),RD(I,3)-RR,LS-RR,0,90
*ENDDO

VSEL,S,,,ALL
CMSEL,R,CM_V1
VSEL,INVE
CM,CM_V2,VOLU
ALLS
VSBV,CM_V1,CM_V2,,DELETE,DELETE

!重复!!!!!!!!!
WPCSYS,,12
*DO,I,1,3
CYLIND,RD(I,4),RD(I+1,4),RD(I,3)-RR,LS-RR,0,90
*ENDDO
!!!!!!!!!!!!!!!!!!
ALLS
VGLUE,ALL
SAVE,V2,DB

sysh320 发表于 2006-8-11 14:24

六面体网格划分应该不难的,用SWEEP

rongzhoutt 发表于 2006-8-11 14:56

我知道可以用sweep,amap,对应网格,约束方程搞定
不过我以前没有划分过这个东西
现在资料又不多
只好请大侠帮忙了!~
页: [1]
查看完整版本: [六面体网格划分]初学者,高手请进!有点难度