关于如何使用 ANSYS 节点坐标系的一个例子

htbbzzg

     昨天答复了一个帖子，是有关 ANSYS 节点坐标系如何使用的。该帖的作者要我举个例子，我给出了一个例子的命令流，但是为了让该作者自己也能思考一下问题所在，所以只发布了例子的前半部分。另一半准备今天发布。但是今天来到论坛，却找不到该帖子了，所以只好将整个例子的命令流发布到这个帖子中，希望该帖子的作者能够看到：
     主要内容是说明：在施加节点力载荷时，力载荷的方向都是按照节点坐标系来施加的，与模型的当前坐标系没有直接关系。节点坐标系改变，力载荷的方向也随之改变。
     命令流如下：

fini
/clear
/filn,  test_nsys,  1

!*  
WPSTYLE,,,,,,,,0
!*  
KEYW,PR_SET,1   
KEYW,PR_STRUC,1
!*  
/PREP7  
!*  
ET,1,SOLID185   
!*  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,210000
MPDATA,PRXY,1,,0.3  
!*  
CYL4, , ,16,0,20,90,100
!*  
FLST,5,4,4,ORDE,4   
FITEM,5,2   
FITEM,5,4   
FITEM,5,-5  
FITEM,5,7   
LSEL, , , ,P51X
!*  
LESIZE, all, , ,16, , , , ,1  
!*  
FLST,5,4,4,ORDE,2   
FITEM,5,9   
FITEM,5,-12
LSEL, , , ,P51X
!*  
LESIZE, all, , ,16, , , , ,1  
!*  
FLST,5,4,4,ORDE,4   
FITEM,5,1   
FITEM,5,3   
FITEM,5,6   
FITEM,5,8   
LSEL, , , ,P51X
!*  
LESIZE, all, , ,3, , , , ,1  
!*
allsel,all  
!*   
MSHAPE,0,3d
MSHKEY,1
VMESH,all   
MSHKEY,0
!*  
FLST,3,1,6,ORDE,1   
FITEM,3,1   
VSYMM,X,P51X, , , ,0,0  
!*  
FLST,3,2,6,ORDE,2   
FITEM,3,1   
FITEM,3,-2  
VSYMM,Y,P51X, , , ,0,0  
!*  
NUMMRG,ALL, , , ,LOW
numcmp,all  
!*  
FINISH  
!*  
/SOL
!*  
ANTYPE,0
!*  
csys,1                !  将当前坐标系转换为圆柱坐标系 z
!*  
FLST,2,4,5,ORDE,4   
FITEM,2,1   
FITEM,2,7   
FITEM,2,12  
FITEM,2,17  
DA,P51X,ALL,           !  约束底面所有自由度
!*  
FLST,2,256,1,ORDE,8
FITEM,2,69  
FITEM,2,-136
FITEM,2,1221
FITEM,2,-1284   
FITEM,2,2309
FITEM,2,-2372   
FITEM,2,3393
FITEM,2,-3452   
F,P51X,FX,1             !  在顶面的每个节点施加 Fx=1，但是画出的载荷图，力还是沿总体直角坐标系 x 轴的方向
!*
allsel,all  
!*  
SOLVE   
!*
FINISH  
!*  
/POST1  
!*
rsys,1  
!*  
/VIEW,1,,-1
/ANG,1  
/REP,FAST   
!*  
/EFACET,1   
PLNSOL, U,SUM, 0,1.0       !  变形是沿总体直角坐标系 x 方向的。  
    !  由于前面没有将节点坐标系转换为当前 (圆柱) 坐标系，因而在圆柱坐标系中施加的 Fx 仍然是沿总体直角坐标系的 x 方向，而非径向
/wait,3
!*  
save
!*  
/prep7          !  回到前处理
!*
nrotate,all     !  将所有节点的节点坐标系转换为总体圆柱坐标系 z
                !  现在画出的载荷图，力是沿圆柱坐标系 z 的 x 轴的方向，即径向
!*
FINISH  
!*
/sol  
!*
solve          !  重新求解
!*
FINISH  
!*  
/POST1  
!*
rsys,1  
!*  
/VIEW,1,,-1
/ANG,1  
/REP,FAST   
!*  
/EFACET,1   
PLNSOL, U,SUM, 0,1.0        !  变形是轴对称的
/wait,3
!*  
/VIEW,1,,,-1
/ANG,1  
/REP,FAST