! =========================================
! Shen-Yeh Chen
! 06/19/2003
! www.FEA-Optimization.com
! =========================================
! This macro will set cross-section view normal to the 
! working plane X-Y
!
!
! Syntax :
!  x_xsview,_WIN, _WP
!           _WIN   : window ID
!           _WP =1 : normal to working plane
!           _WP =0 : reset all setting
!
! =========================================
*IF,ARG1,EQ,0.0,THEN
AR11=1.0
*ELSE
AR11=ARG1
*ENDIF
!
*IF,ARG2,EQ,0.0,THEN
/TYPE
/CPLANE
*ELSE
/TYPE,AR11,ZCAP
/CPLANE,1
*ENDIF
!
/REPLOT