Exemple
MACRO "axes.mac"
!
WHILE 1
! Entrée de la position du cercle
DISP "Cercle ?"
DIGITIZE X,Y
! Recherche de l'élément le plus proche
SEARCH ELEM X,Y;Num
! Test si l'élément est un cercle
REQUEST Num,#CODE;C
IF C=#CIRCLE THEN
! Lecture des valeurs du cercle
REQUEST Num,#X;X
REQUEST Num,#Y;Y
REQUEST Num,#R;R
! Calcul de la longueur des axes
R=R*1.2
! Tracé des axes en plume 2 et ligne 4
PEN 2
LINE TYPE 4
LINE X-R,Y,X+R,Y
LINE X,Y-R,X,Y+R
LINE TYPE
PEN
ELSE
! Affichage d'une erreur
ERROR "L'ELEMENT N'EST PAS UN CERCLE"
END IF
END WHILE
END
END MACRO
|
