ansys中在任意面施加任意方向任意变化的压力方法

[ANSYS宏]对空间任意曲面施加任意方向压力荷载
在ANSYS中对曲面施加压力荷载时，SFA命令只能实现沿曲面法向施加压力荷载，荷载转换到单元上时方向也是相对单元法向的。

工程中，许多荷载（如屋面恒载、活载等）的方向都是沿着一个方向的，在ANSYS中实现起来就不那么容易了。

下面的宏命令是将此文修改而得，借助它可以方便的进行任意曲面任意方向压力的施加。

!宏文件定义开始
*CREATE,PRESONAREA
!使用说明：将要加载的面置为选中状态，然后调用该宏
!例子：*USE,PRESONAREA,ARG1,ARG2,ARG3,ARG4
! ARG1：1或0，是否进行面积投影
! ARG2: 'X'、'Y'或'Z'，当ARG1=1时有效，指定面积投影方向
! ARG3: 压力荷载值
! ARG4: 'FX'、'FY'或'FZ'，指定压力的加载方向
ESLA,S$NSLA,S,1
*GET,ENMAX,ELEM,,NUM,MAX
DOFSEL,S,FX,FY,FZ
FCUM,ADD
*DO,I,1,ENMAX
*IF,ESEL(I),EQ,1,THEN
*IF,ARG1,EQ,1,THEN
*GET,AE,ELEM,I,APROJ,ARG2 !用单元投影面积
*ELSE
*GET,AE,ELEM,I,AREA !用单元真实面积
*ENDIF
P_E=ARG3 !压力荷载值
F_TOT=P_E*AE
ESEL,S,ELEM,,I
NSLE,S,CORNER
*GET,NN,NODE,,COUNT
F_N=F_TOT/NN
*DO,J,1,NN
!施加节点荷载
F,NELEM(I,J),ARG4,F_N
*ENDDO
*ENDIF
ESLA,S
*ENDDO
FCUM,REPL
DOFSEL,ALL
ALLSEL
!清除临时变量
AE=
ENMAX=
EMAX=
P_E=$F_TOT=$F_N=
NN=
*END
!宏文件结束
提示：由于此宏循环较多，运行时最好通过读入inp文件的方式执行，如果单元数很多直接在命令行执行会较慢。

ANSYS中在任意面施加任意方向任意变化的压力方法
在任意面施加任意方向任意变化的压力
在某些特殊的应用场合，可能需要在结构件的某个面上施加某个坐标方向的随坐标位置变化的压力载荷，当然，这在一定程度上可以通过ANSYS表面效应单元实现。

如果利用ANSYS 的参数化设计语言，也可以非常完美地实现此功能，下面通过一个小例子描述此方法。

在执行如下加载命令之前,请务必用选择命令asel将需要加载的几何面选择出来
finish
/prep7
et,500,shell63
press=100e6
amesh,all
esla,s
nsla,s,1
! 如果载荷的反向是一个特殊坐标系的方向,可在此建立局部坐标系,并将
! 所有节点坐标系旋转到局部坐标系下.
*get,enmax,elem,,num,max
dofsel,s,fx,fy,fz
fcum,add 将力的施加方式设置为"累加",而不是缺省的"替代"
*do,i,1,enmax
*if,esel,eq,1,then
*get,ae,elem,i,area !此命令用单元真实面积，如用投影面积，请用下几条命令
! *get,ae,elem,i,aproj,x !此命令用单元X投影面积，如用真实面积，请用上一条命令
! *get,ae,elem,i,aproj,y !此命令用单元Y投影面积
! *get,ae,elem,i,aproj,z !此命令用单元Z投影面积
xe=centrx !单元中心X坐标(用于求解压力值)
ye=centry !单元中心Y坐标(用于求解压力值)
ze=centrz !单元中心Z坐标(用于求解压力值)
! 下面输入压力随坐标变化的公式,本例的压力随X和Y坐标线性变化. p_e=(xe-10)*press+(ye-5)*press
f_tot=p_e*ae
esel,s,elem,,i
nsle,s,corner
*get,nn,node,,count
f_n=f_tot/nn
*do,j,1,nn
f,nelem(i,j),fx,f_n !压力的作用方向为X方向
! f,nelem(i,j),fy,f_n !压力的作用方向为Y方向
! f,nelem(i,j),fz,f_n !压力的作用方向为Z方向
*enddo
*endif
esla,s
*enddo
aclear,all
fcum,repl 将力的施加方式还原为缺省的"替代"
dofsel,all
allsel。