24小时热门版块排行榜    

CyRhmU.jpeg
查看: 756  |  回复: 3
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

Silentien

新虫 (初入文坛)

[交流] 求助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
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

346507037

铁虫 (正式写手)


小木虫: 金币+0.5, 给个红包,谢谢回帖
命令流问题很多啊
4楼2019-06-02 22:10:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 4 个回答
普通表情 高级回复(可上传附件)
信息提示
请填处理意见