EXTRACT CONTOUR

EXTRACT CONTOUR De,A;Nb,[Err]

Cette fonction extrait les contours extérieur et intérieur définis entre les deux entités en paramètre. Attention, cette instruction réorganise les entités dans l'ordre des contours et boucles trouvées. S'il est important de ne pas modifier le dessin original, il est nécessaire de faire une copie des entités prisent en compte a la fin du dessin avant l'exécution de l'instruction EXTRACT CONTOUR.

Paramètres d'entrée

De	:	Première entité du dessin à traiter
A	:	Dernière entité du dessin à traiter

Paramètres de sortie

Nb	:	Nombre de contour fermés trouvés.
Err	:	Numéro de l'erreur
		0 = Pas d'erreur
		64 = Valeur fausse ou hors limites

Exemple

! Extraction des contours fermés du dessin et modification

! de la couleur de chaque contour.

...

From=1

To=NB_ELEM

! Extraction des contours fermés et réorganisation de

! l'ordre des entités du dessin.

EXTRACT CONTOUR From,To;Nb,Err

PRINT From,To,Nb,Err

! Retourne le nombre de contour fermés

EXTRACT CONTOUR NB Nb,Err

Clr=3

FOR I=1 TO Nb

! Retourne le nombre de boucle d'un contour fermé.

EXTRACT CONTOUR BOUCLE I;Nbb,Err

FOR J=1 TO Nbb

! Retourne les entités du dessin de la boucle.

EXTRACT CONTOUR GET I,J;F,T,Err

FOR N=F TO T

MODIFY N,#COLOR,Clr

NEXT N

Clr=Clr+1

NEXT J

NEXT I

END

END MACRO

...

Rubriques connexes
EXTRACT CONTOUR NB, EXTRACT CONTOUR BOUCLE, EXTRACT CONTOUR GET