正确的:
/PREP7
MP,DENS,1,7800
MP,DENS,2,1000
WPROT,0,-90,0
CONE,1,1.521,0.923,-2.031,0,360
CONE,0.92,1.42,0.923,-1.931,0,360
VSBV,1,2
NUMCMP,VOLU
CONE,0.92,1.3145,0.327,-1.931,0,360
VSEL,S,,,1
VATT,1
VSEL,S,,,2
VATT,2
VSUM
*GET,V2,VOLU,2,VOLU
VSEL,ALL
VDELE,2,,,1
CONE,0.92,1.42,0.923,-1.931,0,360
VSEL,S,,,2
/REPLOT,RESIZE
wpoff,0,0,0.5
wprot,0,0,-20
VPLOT
APLOT
VSBW, 2
APLOT
VDELE, 4, , ,1
CM,_Y,VOLU
VSEL, , , , 3
CM,_Y1,VOLU
CMSEL,S,_Y
VATT,2
VSUM
*DO,I,1,25
NUMCMP,VOLU
WPOFF,0,0,-0.01
VSBW,ALL
VDELE,3,,,1
VATT,2
VSUM
*GET,V4,VOLU,4,VOLU
*IF,ABS(V4-V4),LT,5E-2,THEN
*EXIT
*ELSE
J=1
*ENDIF
*ENDDO
VSEL,ALL
VSUM
FINISH
|