I just finished an APDL code, but it was taking too long to rebuild the nodal model:
!maximum node number
*get,n_max,node,,num,maxd
!temporary array
list_tmp=
*dim,list_tmp,array,n_max,11
!status of selection (masking vector)
*vget,list_tmp(1,1),node,,nsel
!filling array with node numbers
*vfill,list_tmp(1,2),ramp,1,1
!####################
!# geting locations #
!####################
!node coordinates (X , Y , Z)
!X
*vmask,list_tmp(1,1)
*vget,list_tmp(1,3),node,,loc,x
!Y
*vmask,list_tmp(1,1)
*vget,list_tmp(1,4),node,,loc,y
!##################
!# geting results #
!##################
*vmask,list_tmp(1,1)
*vget,list_tmp(1,6),node,,U,x
*vmask,list_tmp(1,1)
*vget,list_tmp(1,7),node,,U,y
!#########################
!# cALc. New Coordinates #
!#########################
!X
*VOPER,list_tmp(1,9),list_tmp(1,3),ADD,list_tmp(1,6), , ,
!Y
*VOPER,list_tmp(1,10),list_tmp(1,4),ADD,list_tmp(1,7), , ,
*CREATE,ansuitmp
*CFOPEN,'juju','txt',' '
*VWRITE,list_tmp(1,2),list_tmp(1,9),list_tmp(1,10),list_tmp(1,11)
(7F10.3,7F10.5)
*CFCLOS
*END
/INPUT,ansuitmp
!*
!Delete all mesh and solid model manually
*do,o_,1,n_max,1
n,list_tmp(o_,1),list_tmp(o_,9),list_tmp(o_,10),
*enddo
The UPGEOM command works very well, but it needs the .rst file. The UPCOORD command instead works the same way using the current ANSYS database.
The problem is Solved!
Thanks Brian and Alex for the replies!