[交流] 求助3D打印的命令流 已有1人参与

求助各位大神，3D打印的命令流，做出来总有问题，应该怎么修改。或是有没有大神有类似的可以给我参照的，感激不尽！！ /CLEAR,START /FILNAME,FDMTEMPERTURE,0                  /TITLE,ANSYS OF FDM TEMPERTURE         /UNIT,SI                                     *SET,L1,2E-2 *SET,W1,1.6E-2 *SET,H1,0.15E-2                           *SET,L2,L1/10 *SET,W2,W1/8 *SET,H2,H1/5                            ARG1=L1/L2*W1/W2*H1/H2       /CONFIG,NRES,10000                /PREP7                         ET,1,SOLID70                   MP,KXX,1,0.1700    MP,c,1,1470 MP,dens,1,1150    MP,ALPX,8e-5    MP,NUXY,1,0.4   UIMP,1,REFT,,,25   BLOCK,0,L1,0,W1,0,H1      /PNUM,AREA,1                      VATT,1,,0                              /PNUM,LINE,1 MSHAPE,0,3D                           MSHKEY,1                                  LESIZE,1,W2            LESIZE,4,L2 LESIZE,9,H2                                 VMESH,1            EPLOT               /VIEW,,-1,-2,-3 /IMAGE,SAVE,VMESH,BMP FINISH /SOLU ANTYPE,TRANSIENT,NEW AR21=0                                       AR24=0.02 TIME,AR21                         AUTOTS,ON                         NROPT,FULL,,ON                  TRNOPT,FULL                      LUMPM,OFF                         KBC,1                           DELTIM,AR21/4,AR21/4,AR21/2,0 TIMINT,ON                              MAX_TEMP=220                      NSEL,S,LOC,X,0,L1,L2                SF,ALL,CONV,72,25                NSEL,S,LOC,Y,0,W1,W2 SF,ALL,CONV,72,25 NSEL,S,LOC,Z,0,H1,H2 SF,ALL,CONV,72,25                  /REPLOT,FAST OUTRES,ALL,ALL                      OUTPR,NSOL,ALL                ESEL,S,ELEM,,1,ARG1,1,0 EKILL,ALL ALLSEL,ALL *DO,AR26,1,H1/H2,1                          *DO,AR22,1,L1/L2,1          *DO,AR23,1,W1/W2,2             ESEL,S,ELEM,,(AR26-1)*W1/W2*L1/L2+(AR23-1)*L1/L2+AR22,,,0           EALIVE,ALL        *DO,J,1,8    D,NELEM((AR26-1)*W1/W2*L1/L2+(AR23-1)*L1/L2+AR22,J),TEMP,MAX_TEMP                        *ENDDO       ESEL,S,ELEM,,(AR26-1)*W1/W2*L1/L2+(AR23-1)*L1/L2+AR22,,,0       NSLE,S,1                                           SF,ALL,CONV,72,25       ALLSEL,ALL       SOLVE        ESEL,S,ELEM,,(AR26-1)*W1/W2*L1/L2+(AR23-1)*L1/L2+AR22,,,0        *DO,J,1,8       DDELE,NELEM((AR26-1)*W1/W2*L1/L2+(AR23-1)*L1/L2+AR22,J),TEMP             *ENDDO       ALLSEL,ALL       AR24=AR24+AR21       !*IF,AR24,GT,AR21*ARG1,*EXIT              ANTYPE,TRANSIENT,RESTART          TIME,AR24          *ENDDO *DO,AR25,L1/L2,1,-1 !*IF,AR24,GT,AR21*ARG1,*EXIT ESEL,S,ELEM,,(AR26-1)*W1/W2*L1/L2+AR23*L1/L2+AR25,,,0 EALIVE,ALL     *DO,J,1,8 D,NELEM((AR26-1)*W1/W2*L1/L2+AR23*L1/L2+AR25,J),TEMP,MAX_TEMP *ENDDO ESEL,S,ELEM,,(AR26-1)*W1/W2*L1/L2+AR23*L1/L2+AR25,,,0 NSLE,S,1 SF,ALL,CONV,72,25 ALLSET,ALL SOLVE ESEL,S,ELEM,,(AR26-1)*W1/W2*L1/L2+AR23*L1/L2+AR25,,,0 *DO,J,1,8 DDELE,NELEM((AR26-1)*W1/W2*L1/L2+AR23*L1/L2+AR25,J),TEMP *ENDDO     ALLSET,ALL AR24=AR24+AR21 !*IF,AR24,GT,AR21*ARG1,*EXIT ANTYPE,TRANSIENT,RESTART TIME,AR24 *ENDDO *ENDDO *ENDDO                                                          SAVE /POST1 PLNSOL,TEMP,,1 ANDATA,0.02,1,2,0,0,1,0,0                  FINISH

回复此楼