24小时热门版块排行榜

返回列表

Silentien

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 12
帖子: 6
在线: 4.5小时
虫号: 10533050
注册: 2018-10-03
性别: GG
专业: 制造系统与自动化

[交流] 求助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

回复此楼