ansys怎么批量输入点坐标_Ansys APDL 读取所有节点坐标及其应变值并写入文件

修改自网络上某不具名代码

! /post1

/UIS, MSGPOP, 3 ! Disable warning messages

! file,geom_complex_PP,rst ! Read file

*get,NodeNum,NODE,0,COUNT ! Get the number of nodes

*get,nd,NODE,0,NUM,MIN ! Get label of the first node

*dim,nodes,array,NodeNum ! Define an array to store nodes

*dim,xyz,array,NodeNum,3 ! Define an array to store coordinates

*dim,epsilon,array,NodeNum,3 ! Define an array to store strains

! set,4,1 ! Read step

*do,i,1,NodeNum,1

nodes(i)=nd ! Store the node label

xyz(i,1)=NX(nd) ! Store the coordinate x

xyz(i,2)=NY(nd) !

xyz(i,3)=NZ(nd) !

*Get,epsilon(i,1),NODE,nodes(i),EPTO,X ! Store the strain

*Get,epsilon(i,2),NODE,nodes(i),EPTO,Y

*Get,epsilon(i,3),NODE,nodes(i),EPTO,Z

nd=NDNEXT(nd) ! Select the next node

*enddo

*cfopen,node_results,dat ! output file