Return to Symbol

Determine if an Object is a Section Edge (type 199) Example

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

  

    
ENTITY/object
NUMBER/selmsk(5), objtyp, resp
$$
crsmod = &VWCURS
&VWCURS = &ANY
$$
$$ set selection masks for Section Edge (type 199)
selmsk(1) = 3
selmsk(2) = 5
selmsk(3) = 6
selmsk(4) = 9
selmsk(5) = 199
MASK/selmsk
$$
start:
$$ select object
  IDENT/'Select Section Edge', object, resp
  IF/resp <= 2, JUMP/finish:
$$
$$ test if true object type is a Section Edge (type 199)
  objtyp = &ISSXED(object, IFERR, errdo:)
  IF/objtyp == 199, JUMP/proc:
$$
  MESSG/'Did not select a Section Edge.'
  JUMP/start:
$$
errdo:
  MESSG/'Selection error.'
  JUMP/start:
$$
$$ process the Section Edge
proc:
  .
  .
  JUMP/start:
$$
finish:
  &VWCURS = crsmod
HALT