asel,... (要加载荷的面)
esla,,,, (和面相联的单元)
*get,emax,... (最大单元号)
*get,emin,... (最小单元号)
*do,i,emin,emax
*if,esel ,eq,1,then (该句语法请查帮助,这里凭记忆写出)
!!!*do,i,1,N (共N个单元)
csys,2 (激活极坐标系)
esel,,,i (选择第i个单元)
xe=centrx (xe为单元中心X坐标)
ye=centry (ye为单元中心y坐标)
ze=centrz (ze为单元中心z坐标)
*GET,AA,ELEM,I,AREA
f=2*sin(xe)*cos(ye)*cos(ze)
sfe,i,1,pres,,f/AA,,,
*endif (判断结束)
*enddo
|