Return to Statement

Select Objects Example 1

This example demonstrates the use of the IDENT statement to delete up to 25 user selected objects.

$$
$$ Declarations
$$
    ENTITY/OBJ(25)
    L10:
    IDENT/'SELECT OBJECTS TO DELETE',OBJ,CNT,NUM,$
    CURSOR,X,Y,Z,RSP
    JUMP/L10:,L20:,,RSP
    DELETE/OBJ(1..NUM)
    L20:

NOTE: If the number of objects selected exceeded the object array size, the system displays the following message in a dialog box when you choose OK:

Too Many Objects

To continue, choose OK again and a zero (0) value returns in the RESP variable.