EXEMPLE MACRO16

Suppression entité

Exemple

 MACRO "delete.mac"
 !
   First_elem=0
   LOOP
 ! Choix de l'élément à supprimer
     DISP "Elément à supprimer ?"
     DIGITIZE X,Y
     SEARCH ELEM X,Y;Num_elem
 ! Sortie si pas d'élément dans le dessin
     IF Num_elem=0 THEN
       ERROR "PAS D'ELEMENT DANS LE DESSIN"
       STOP
     END IF
 ! Test si l'élément a été désigné deux fois
     IF (First_elem=Num_elem) THEN
 ! Suppression de l'élément
       DELETE ELEM Num_elem
       First_elem=0
     ELSE
       IF First_elem THEN PLOT ELEM First_elem
 ! Affichage de l'élément à supprimer
       SHOW ELEM Num_elem
       First_elem=Num_elem
     END IF
   END LOOP
   END
   END MACRO