这是我的流
finish
/clear
/filname,caculation,1
/title,bushing
csys,5
*dim,length1,,27,,,,,,5
*dim,length2,,27,,,,,,5
*dim,radius,,27,,,,,,5
length1(1,1)=0
length2(1,1)=18750
radius(1)=252,265.8505096,280.0935145,294.7115851,309.6848522,324.9909872,340.6051974,356.5002376
radius(9)=372.6464396,389.0117578,405.5618349,422.2600842,439.0677918,455.944236,472.8468267,489.7312611
radius(17)=506.5516976,523.2609465,539.8106757,556.1516313,572.2338718,588.0070134,603.4204864,618.4237993
radius(25)=632.9668097,647,705
*do,i,1,25
length1(i+1,1)=length1(i,1)+108
length2(i+1,1)=length2(i,1)-340
*enddo
length1(27,1)=length1(26,1)+500
length2(27,1)=length2(26,1)-500
/prep7
*do,i,1,27
k,i,radius(i,1),0,length1(i,1)
*enddo
*do,i,28,54
k,i,radius(i-27,1),0,length2(i-27,1)
*enddo
*do,i,1,27
l,i,i+27
*enddo
*do,i,1,26
l,i,i+1
l,i+27,i+28
*enddo
k,55,0,0,5
k,56,0,0,0
*do,i,1,27
arotat,i,,,,,,55,56
*enddo
*do,i,28,79
lsel,s,line,,i
arotat,i,,,,,,55,56
*enddo
*do,i,1,26
asel,s,loc,x,radius(i,1),radius(i+1,1)
aglue,all
va,all
*enddo
sphere,1e7,,0,360
allsel,all
vovlap,all
numcmp,all
mp,perx,1,1
mp,perx,2,4
et,1,123
*do,i,1,26
vsel,s,volu,,i
vatt,1,,1
具体就是,先建立若干条线,然后旋转成面,之后对一定范围内的面glue,而后由这些面生成体
但是模型建立之后却无法划分网格
求指导 |