Positions vergleich vor Rückzugs fahrt

Beispiel:

If ($axis_act.a1>= 5) AND ($axis_act.a1<= 10) then
Rückzug Variante 1
Endif

Absotutvergleich:

If (Abs(Wert1-Wert2))>15 Then
mach was
Endif

Hallo,

zum Beispiel Phytagoras im Raum

bas(#initmov,0)
ptp $pos_act
if (sqrt(ABS(x1-x2) + ABS(y1-y2) + ABS(z1-z2)) < 10) then
;---
endif

kan in bestimmten situatione zu problemen fuehren (dann wenn kein tool definirt ist)

Gruss Stefan

Hi,

...
if (sqrt((x1-x2) * (x1-x2) + (y1-y2) * (y1-y2) + (z1-z2) *(z1-z2)) < 10) then
...

So wird da ein Schuh draus.

Gruss Hermann

na sowas!

Hallo

Wir machen das immer so

IF (($POS_ACT.X+10)>=POSITION.X) AND (($POS_ACT.X-10)<=POSITION.X) THEN
IF (($POS_ACT.Y+10)>=POSITION.Y) AND (($POS_ACT.Y-10)<=POSITION.Y) THEN
IF (($POS_ACT.Z+10)>=POSITION.Z) AND (($POS_ACT.Z-10)<=POSITION.Z) THEN
IF (($POS_ACT.A+1)>=POSITION.A) AND (($POS_ACT.A-1)<=POSITION.A) THEN
IF (($POS_ACT.B+1)>=POSITION.B) AND (($POS_ACT.B-1)<=POSITION.B) THEN
IF (($POS_ACT.C+1)>=POSITION.C) AND (($POS_ACT.C-1)<=POSITION.C) THEN
RETURN(TRUE)
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
ENDIF
RETURN(FALSE)

Musst beim Auslesen der $POS_ACT beachten das gleiches Tool und Base wie beim Vergleichspunkt.
Toleranz hier X,Y,Z 10mm
A,B,C 1 Grad

Gruss

warum reicht dir die $NEAR_POSRET nicht ?

Mit $NEAR_POSRET kannst Du natürlich auf die Bahn zurückfahren - aber dann eine Rückwärtsfahrt über AutExt ist mir nicht bekannt.

Oder wenn das Programm abgewählt wurde und ein Neustart eine Grundstellungsfahrt auslösen soll, da hilft POSRET gar nix.

Ach so, fehlt noch Min und Max

;;==========================================================
;;                    MAX-Wert Bestimmung
;;==========================================================
GLOBAL DEFFCT REAL MAX(Wert1:IN, Wert2:IN)
REAL Wert1, Wert2


  If Wert1 > Wert2 Then
    Return Wert1
  Else
    Return Wert2
  Endif


ENDFCT


;;==========================================================
;;                    MIN-Wert Bestimmung
;;==========================================================
GLOBAL DEFFCT REAL MIN(Wert1:IN, Wert2:IN)
REAL Wert1, Wert2


  If Wert1 < Wert2 Then
    Return Wert1
  Else
    Return Wert2
  Endif


ENDFCT

Natürlich geht das ganze noch eleganter, indem man bei dem Vergleich auf
ABS(StartPos.Componente - ZielPos.Componente) > rTolComponente abfrägt.