ANSYSY要做移动热源，如何正确使用循环命令？！
悬赏金币：10 zhouyuzhouyu 时间：2016-08-03 20:16
/PREP7
*SET,L,1E-1
*SET,X1,0.008
*SET,X2,0.02
*SET,X3,0.05
*SET,W,5E-2
*SET,H,8E-3
*SET,U,20
*SET,I,160
*SET,V,0.01
*SET,YITA,0.7
*SET,R,0.007
*SET,Q,U*I*YITA
*SET,Qm,3/3.1415/R**2*Q
*SET,TOOLR1,0.004
*SET,TOOLR2,0.008
*SET,TIMEING,1.5
*SET,STATIME,4
*SET,STEPS,60
*SET,SPEED,0.001
ET,1,SOLID70
MPTEMP,,,,,,,,
MPTEMP,1,20
MPTEMP,2,200
MPTEMP,3,500
MPTEMP,4,750
MPTEMP,5,1000
MPTEMP,6,1500
MPTEMP,7,1700
MPTEMP,8,2500
MPDATA,KXX,1,,50
MPDATA,KXX,1,,47
MPDATA,KXX,1,,40
MPDATA,KXX,1,,27
MPDATA,KXX,1,,30
MPDATA,KXX,1,,35
MPDATA,KXX,1,,40
MPDATA,KXX,1,,55
MPDATA,DENS,1,,7820
MPDATA,DENS,1,,7700
MPDATA,DENS,1,,7610
MPDATA,DENS,1,,7550
MPDATA,DENS,1,,7490
MPDATA,DENS,1,,7350
MPDATA,DENS,1,,7300
MPDATA,DENS,1,,7090
MPDATA,C,1,,460
MPDATA,C,1,,480
MPDATA,C,1,,530
MPDATA,C,1,,675
MPDATA,C,1,,670
MPDATA,C,1,,660
MPDATA,C,1,,780
MPDATA,C,1,,820
MPDATA,EX,1,,2.05E11
MPDATA,EX,1,,1.87E11
MPDATA,EX,1,,1.5E11
MPDATA,EX,1,,0.7E11
MPDATA,EX,1,,0.2E11
MPDATA,EX,1,,0.19E2
MPDATA,EX,1,,0.18E2
MPDATA,EX,1,,0.12e2
MPDATA,PRXY,1,,0.28
MPDATA,PRXY,1,,0.29
MPDATA,PRXY,1,,0.31
MPDATA,PRXY,1,,0.35
MPDATA,PRXY,1,,0.4
MPDATA,PRXY,1,,0.45
MPDATA,PRXY,1,,0.48
MPDATA,PRXY,1,,0.5
UIMP,1,REFT,,,20
MPDATA,ALPX,1,,1.1e-5
MPDATA,ALPX,1,,1.22e-5
MPDATA,ALPX,1,,1.39e-5
MPDATA,ALPX,1,,1.48e-5
MPDATA,ALPX,1,,1.34e-5
MPDATA,ALPX,1,,1.33e-5
MPDATA,ALPX,1,,1.32e-5
MPDATA,ALPX,1,,1.31e-5
TB,BISO,1,6,2,
TBTEMP,20
TBDATA,,220e6,0,,,,
TBTEMP,250
TBDATA,,175e6,0,,,,
TBTEMP,500
TBDATA,,80e6,0,,,,
TBTEMP,750
TBDATA,,40E6,0,,,,
TBTEMP,1000
TBDATA,,10E6,0,,,,
TBTEMP,1500
TBDATA,,1E-5,0,,,,
!*
BLC4,0,0,X1,L,H
BLOCK,X1,X2,0,L,0,H,
BLOCK,X2,X3,0,L,0,H,
VGLUE,all
numcmp,all
FLST,5,1,4,ORDE,1
FITEM,5,8
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1,0.001, , , , , , ,1
!*
FLST,5,1,4,ORDE,1
FITEM,5,7
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1,0.001, , , , , , ,1
!*
FLST,5,1,4,ORDE,1
FITEM,5,12
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1,0.0015, , , , , , ,1
!*
FLST,5,1,4,ORDE,1
FITEM,5,24
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1,0.002, , , , , , ,1
!*
FLST,5,1,4,ORDE,1
FITEM,5,28
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1,0.003, , , , , , ,1
!*
CM,_Y,VOLU
VSEL, , , , 1
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
MSHAPE,0,3d
MSHKEY,1
VMESH,_Y1
MSHKEY,0
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
CM,_Y,VOLU
VSEL, , , , 2
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
MSHAPE,0,3d
MSHKEY,1
VMESH,_Y1
MSHKEY,0
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
CM,_Y,VOLU
VSEL, , , , 3
CM,_Y1,VOLU
CHKMSH,'VOLU'
CMSEL,S,_Y
!*
MSHAPE,0,3d
MSHKEY,1
VMESH,_Y1
MSHKEY,0
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
CSYS,0
CSWPLA,11,1,1,1
CSYS,11
ASEL,ALL,
NSEL,ALL,
NSEL,R,LOC,X,0,0.004
NSEL,R,LOC,Y,0,360
NSEL,R,LOC,Z,0.003,0.008
SF,ALL,HFLUX,20
NROPT,FULL
ANTYPE,4
TIME,4
AUTOTS,0
NSUBST,4,12,4,
KBC,1
OUTRES,NSOL,ALL,
CSYS,0
ASEL,ALL,
NSEL,ALL,
CSYS,0
WPOFFS,0,SPEED,0
CSWPLA,11,1,1,1
TIMESTEP=STATIME+TIMEING
*DO,NUM,1,STEPS,1
CSWPLA,11,1,1,1
CSYS,11
NSEL,ALL,
NSEL,R,LOC,X,0,0.004
NSEL,R,LOC,Y,0,360
NSEL,R,LOC,Z,0.003,0.008
SF,ALL,HFLUX,20
ASEL,ALL,
NSEL,ALL,
NROPT,FULL
ANTYPE,4
TIME,TIMESTEP
AUTOTS,0
NSUBST,3,10,3,
KBC,1
OUTRES,NSOL,LAST,
CSYS,0
TIMESTEP=TIMESTEP+TIMEING
*ENDDO
-------------------------------------------------------------------------------------------------------------
这是我的命令流，简述就是做一个搅拌摩擦焊的移动热源模型。
现在已经在坐标原点施加了一个体热源，如何使用循环命令使它移动起来？
我的循环命令哪有问题？！ 谢谢。
回答（1）
-
2016-08-08 09:33 游客
没有循环加载。搅拌摩擦焊在网上可以找到程序例子。 举报
