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

'''

结果图片

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

APDL link180单元-LMLPHP

APDL link180单元-LMLPHP

05-07 15:35