Return to Symbol

Determine if an Object is a Section Line (type 202) Example

This example shows how to determine if an object is a Section Line (type 202).

ENTITY/object

NUMBER/selmsk(3), objtyp, resp

NUMBER/sxdata(36)

$$

crsmod = &VWCURS

&VWCURS = &ANY

$$

$$ set selection masks for Section Line (type 202)

selmsk(1) = 3

selmsk(2) = 5

selmsk(3) = 202

MASK/selmsk

$$

start:

$$ select object

  IDENT/'Select Section Line', object, resp

  IF/resp <= 2, JUMP/finish:

$$

$$ test if true object type is a Section Line (type 202)

  objtyp = &ISSXL(object, IFERR, errdo:)

  IF/objtyp == 202, JUMP/proc:

$$

  MESSG/'Did not select a Section Line.'

  JUMP/start:

$$

errdo:

  MESSG/'Selection error.'

  JUMP/start:

$$

$$ process the Section Line

proc:

  OBTAIN/sxline, sxdata

  .

  .

  JUMP/start:

$$

finish:

  &VWCURS = crsmod

HALT