APDL代码实现link180单元的使用

由于不知道怎样使用LINK180单元，故按照相关的教程和理解，整理了一下比较完整的APDL的代码。其中包含的图片的保存和背景颜色的改变。

标签：’LINK180′ ‘ APDL’

目录APDL代码实现link180单元的使用
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

”’

结果图片

结果分别为第一种方法和第二种方法生成的。