Use of WZSphDef

jose_djoukap

Hi everyone,
I wrote this Rapid code to control TCP position. I want the blue light(Lampe_Bleu) to be on when the TCP reach into the sphere. This code does'nt work. 

       VAR shapedata Sphere;

       CONST num Rayon_sphere :=150;

       VAR pos Centre_Sphere;

       !Zone où la lumière bleue est allumée

       VAR  wztemporary ZoneRetrait_interne:=[0];

       !Zone où la lumière bleue est éteinte

       VAR wztemporary ZoneRetrait_externe:=[0];

       

       !Appel des alias entrées/sorties

       Demonination_entrees_sorties; 

       !Affectation du centre de la sphère à surveiller

       Centre_Sphere:=rRetrait.trans;     

       TPWrite "centre de sphère" \Pos:=Centre_Sphere;

        ! Activation de la lumière bleue à 150 mm de la position rRetrait

        WZFree ZoneRetrait_Interne;

       WZSphDef\Inside,Sphere,Centre_Sphere,Rayon_sphere;

       WZdoset\temp,ZoneRetrait_Interne\Inside,Sphere,Lampe_Bleu,Allume;

        ! Desactivation de la lumière bleue à plus 150 mm de la position rRetrait

        WZFree ZoneRetrait_Externe;

        WZSphDef\Inside,Sphere,Centre_Sphere,Rayon_sphere;

        WZdoset\temp, ZoneRetrait_Externe\inside,Sphere,Lampe_Bleu,Eteint;

        WzEnable ZoneRetrait_interne;

soup

At a glance, the enable code needs to be placed inside procedures and then those procedures need to be called when you want the zone active.

jose_djoukap

Thank Soup.