在ANSYS中對曲面施加壓力荷載時，SFA命令只能實現(xiàn)沿曲面法向施加壓力荷載，荷載轉(zhuǎn)換到單元上時方向也是相對單元法向的。工程中，許多荷載（如屋面恒載、活載等）的方向都是沿著一個方向的，在ANSYS中實現(xiàn)起來就不那么容易了。下面的宏命令是將此文修改而得，借助它可以方便的進(jìn)行任意曲面任意方向壓力的施加。

!宏文件定義開始
*CREATE,PRESONAREA
!使用說明：將要加載的面置為選中狀態(tài)，然后調(diào)用該宏
!例子：*USE,PRESONAREA,ARG1,ARG2,ARG3,ARG4
!                ARG1：1或0，是否進(jìn)行面積投影
!                ARG2: 'X'、'Y'或'Z'，當(dāng)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
!施加節(jié)點荷載
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
!宏文件結(jié)束

提示：由于此宏循環(huán)較多，運行時最好通過讀入inp文件的方式執(zhí)行，如果單元數(shù)很多直接在命令行執(zhí)行會較慢。