Use of WZSphDef

jose_djoukap · July 2018

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 · July 2018

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 · July 2018

Thank Soup.

Use of WZSphDef

Comments

Categories

In this Discussion