目錄

• APDL代碼實現link180單元的使用
• 結果圖片

APDL代碼實現link180單元的使用

由於不知道怎樣使用LINK180單元，故按照相關的教程和理解，整理了一下比較完整的APDL的代碼。其中包含的圖片的保存和背景顏色的改變。

標簽：'LINK180' ' APDL'

APDL代碼
FINISH
/CLEAR
/PREP7

ET,1,LINK180            !選擇link180單元

SECTYPE,1,LINK, ,link1      !創建Sections，link，編號為1，名字為link1
SECDATA,7.8E-5,             !定義界面尺寸，10mm直徑為
SECCONTROL,0,1              !定義屬性為拉伸，壓縮為2，拉壓為0

!定義材料屬性
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,9.8e10         !彈性模型9.8E10
MPDATA,PRXY,1,,0            !泊松比為0
MPDATA,DENS,1,,4848         !密度4848

!創建兩個點
FLST,3,2,8  
FITEM,3,0,0,0   !點的坐標
FITEM,3,1,0,0   !點的坐標

!創建直線 
K, ,P51X
LSTR, 1, 2 

!設置網格屬性
TYPE,   1               !單元類型
MAT,       1            !材料1
REAL,                   !實常數，未定義
ESYS,       0               !坐標系
SECNUM,   1             !Sections

!打開網格工具
FLST,5,1,4,ORDE,1   
FITEM,5,1   
CM,_Y,LINE  
LSEL, , , ,P51X 
CM,_Y1,LINE 
CMSEL,,_Y   
LESIZE,_Y1, , ,10, , , , ,1         !設置等分為10份
LMESH,       1              !劃分網格

ANTYPE,0                !分析類型為結構分析，2為模態分析

!設置載荷：點1為固定約束
FLST,2,1,3,ORDE,1   
FITEM,2,1   
/GO 
DK,P51X, , , ,0,ALL, , , , , ,  
        
!設置載荷：點2x方向力為1000N
FLST,2,1,3,ORDE,1   
FITEM,2,2   
/GO 
FK,P51X,FX,1000 

!求解
FINISH  
/SOL
/STATUS,SOLU
SOLVE 

!進入後處理，
FINISH  
/POST1  
SET,FIRST       !讀取第一個數據

/EFACET,1           !顯示X方向的節點位移雲圖
PLNSOL, U,X, 0,1.0 

!設置背景為白色
/RGB,INDEX,100,100,100,0
/RGB,INDEX,80,80,80,13
/RGB,INDEX,60,60,60,14
/RGB,INDEX,0,0,0,15
/REPLOT

!將圖片保存，方法1
!此種方法不可以設置圖片路徑和名稱，導出框內的圖
/SHOW,JPEG,,1   
JPEG,QUAL,75,   
JPEG,ORIENT,HORIZ   
JPEG,COLOR,2
JPEG,TMOD,1 
/GFILE,800, 
/REPLOT 
/SHOW,CLOSE 
/DEVICE,VECTOR,0

!將圖像導出，方法2，導出的是一個大圖，有很大的空白的地方
/image,save,name1,jpg

!界面調回黑色
/RGB,INDEX,0,0,0,0
/RGB,INDEX,60,60,60,13
/RGB,INDEX,80,80,80,14
/RGB,INDEX,100,100,100,15
/REPLOT

'''

結果圖片

結果分別為第一種方法和第二種方法生成的。