在ANSYS中對(duì)曲面施加壓力荷載時(shí)，SFA命令只能實(shí)現(xiàn)沿曲面法向施加壓力荷載，荷載轉(zhuǎn)換到單元上時(shí)方向也是相對(duì)單元法向的。工程中，許多荷載(如屋面恒載、活載等)的方向都是沿著一個(gè)方向的，在ANSYS中實(shí)現(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時(shí)有效，指定面積投影方向

　　! 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 !用單元真實(shí)面積

　　*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é)點(diǎn)荷載

　　F,NELEM(I,J),ARG4,F_N

　　*ENDDO

　　*ENDIF

　　ESLA,S

　　*ENDDO

　　FCUM,REPL

　　DOFSEL,ALL

　　ALLSEL

　　!清除臨時(shí)變量

　　AE=

　　ENMAX=

　　EMAX=

　　P_E=$F_TOT=$F_N=

　　NN=

　　*END

　　!宏文件結(jié)束

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