以下是命令流,但是总是只有第一层循环的最后一个值被执行
望高手帮忙看一下
FINISH
/CLEAR
/TITLE,CONTACT ANALYSIS OF WARPED WAFER AND WAFER CHUCK
/PREP7
!*
/NERR,0
/UIS,MSGPOP,3
/PAGE,99999,132,99999,240
/HEADER,ON,ON,ON,ON,ON,ON
/FORMAT,7,G,17,9,99999
!F1 = 0.70836801704
!PRES = 0.101
ET,1,PLANE182
!*
ET,2,TARGE169
ET,3,CONTA171
!*
KEYOPT,1,3,2
KEYOPT,3,1,0
KEYOPT,3,2,0
KEYOPT,3,3,0
KEYOPT,3,4,0
KEYOPT,3,5,1
KEYOPT,3,6,0
KEYOPT,3,7,0
KEYOPT,3,8,0
KEYOPT,3,9,0
KEYOPT,3,10,2
KEYOPT,3,11,0
KEYOPT,3,12,0
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,1,,165700
MPDATA,PRXY,1,,0.28
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,MU,1,,0.1
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,EX,2,,363000
MPDATA,PRXY,2,,0.23
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,MU,2,,0.1
R,1,,,20,
!建立模型
K,1,-100,0.3875
K,2,100,0.3875
K,3,100,-0.3875
K,4,-100,-0.3875
L,1,2
L,2,3
L,3,4
L,4,1
AL,ALL
K,5,-110,-0.3875
K,6,110,-0.3875
K,7,110,-10
K,8,-110,-10
L,5,6
L,6,7
L,7,8
L,8,5
AL,5,6,7,8
!网格划分
MAT,1
TYPE,1
LESIZE,1, , ,1000, , , , ,1
LESIZE,3, , ,1000, , , , ,1
LESIZE,2, , ,4, , , , ,1
LESIZE,4, , ,4, , , , ,1
AMESH,1
ALLSEL
MAT,2
TYPE,1
SMRTSIZE,5
AMESH,2
ALLSEL
LSEL,S,LINE,,5
NSLL,S,1
TYPE,2
REAL,1
ESURF
ALLSEL
LSEL,S,LINE,,3
NSLL,S,1
REAL,1
TYPE,3
ESURF
ALLSEL
!施加边界条件,施加载荷,求解
*DO,F1,0.708,0.71,0.001
/CLEAR
SECOND,F1
*ENDDO
SECOND
*DO,PRE,0.061,0.056,-0.005
!大气压力作用
/SOLU
ANTYPE,STATIC,NEW
TIME,1
!设置对称
LSEL,S,LINE, ,5
NSLL,S,1
D,ALL,ALL,0
ALLSEL
NSEL,S,NODE,,3507
D,ALL,UX,0
!设置压力作用范围及大小
ALLSEL
LSEL,S,,,3
NSLL,S,1
CM,PRESSURE,NODE
SF,PRESSURE,PRES,-PRE
!求解
ALLSEL
ANTYPE,0
NLGEOM,1
SOLVE
*CFopen,'D:\ANSYS_WAFER_SIMULATION\Wafer Test Result201005312122_MACRO\MAXDEFORMATION','txt', ,APPEND
*VWRITE,ARG1,PRE
(F6.3,F6.3)
*VWRITE
('第一次求解完成')
*CFclos
!弯曲作用力作用
/SOLU
ANTYPE,STATIC,REST
*CFopen,'D:\ANSYS_WAFER_SIMULATION\Wafer Test Result201005312122_MACRO\MAXDEFORMATION','txt', ,APPEND
*VWRITE,ARG1,PRE
(F6.3,F6.3)
*VWRITE
('第二次求解开始')
TIME,2
*CFopen,'D:\ANSYS_WAFER_SIMULATION\Wafer Test Result201005312122_MACRO\MAXDEFORMATION','txt', ,APPEND
*VWRITE,ARG1,PRE
(F6.3,F6.3)
*VWRITE
('设置作用力')
!设置作用力
NSEL,S,NODE, ,1002
D,ALL,UY,0
F,ALL,FX,-ARG1
ALLSEL
*CFopen,'D:\ANSYS_WAFER_SIMULATION\Wafer Test Result201005312122_MACRO\MAXDEFORMATION','txt', ,APPEND
*VWRITE,ARG1,PRE
(F6.3,F6.3)
*VWRITE
('设置作用力')
NSEL,S,NODE, ,1006
D,ALL,UY,0
F,ALL,FX,ARG1
!求解
ALLSEL
NLGEOM,1
SOLVE
*CFopen,'D:\ANSYS_WAFER_SIMULATION\Wafer Test Result201005312122_MACRO\MAXDEFORMATION','txt', ,APPEND
*VWRITE,ARG1,PRE
(F6.3,F6.3)
*VWRITE
('第二次求解完成')
*CFclos
FINISH
!获取计算结果
ND=1
*DEL,NODES,,NOPR
*DEL,XYZ,,NOPR
*DEL,MAXVALUE,,NOPR
*DIM,NODES,ARRAY,1001
*DIM,XYZ,ARRAY,1001,3
*DO,I,1,1001,1
NODES(I)=ND
XYZ(I,2)=UY(ND)
ND=ND+1
*ENDDO
MAXVALUE = XYZ(1,2)
*DO,I,2,1001,1
*IF,MAXVALUE,LT,XYZ(I,2),THEN
MAXVALUE = XYZ(I,2)
*ENDIF
*ENDDO
MAX2=MAXVALUE-0.000013
*IF,MAX2,GT,0,THEN
*CFopen,'D:\ANSYS_WAFER_SIMULATION\Wafer Test Result201005312122_MACRO\MAXDEFORMATION','txt', ,APPEND
*VWRITE,ARG1,PRE,MAXVALUE
(F6.3,F6.3,F18.15)
*CFclos
*ENDIF
*ENDDO
FINISH
/EOF |