Return to Statement

Verify Layout Example

This example demonstrates the use of the verify layout statement to obtain the parameters of an active layout. These parameters are then used to create a new layout using some of the obtained parameters.

$$
$$ Declarations
$$
   ENTITY/CSYS(2)
   NUMBER/LOC(4,4),MAT(12)
   STRING/VNAME(4,30),WVNAME(30)
   CSYS(1)=&WCS
   MAT=MATRIX/XYROT,45
   CSYS(2)=TRANSF/MAT,CSYS(1),MOVE
   VIEWC/'VIEW1',CSYS(2),IFERR,L10:
   .
   .
   .
   LAYV/VNAME,LOC,,WVNAME,IFERR,L20:
   LAYE/REPL,WVNAME,'VIEW1',SAVE,'LAYOUT2'
   JUMP/TERM:
   L10:MESSG/'CANNOT CREATE VIEW'
   JUMP/TERM:
   L20:MESSG/'CANNOT VERIFY LAYOUT'
   TERM:

LAYOUT2 is created by editing the current layout and replacing the work view with VIEW1 and saving (SAVE) it.

The Edit Layout statement does not refer to the layout name because it is active.