14
Eigene Abspanprogramme
14.6 Kreisdaten berechnen - CALCDAT
Programmierbeispiel
Von den drei Punkten soll ermittelt werden, ob sie
auf einem Kreisabschnitt liegen.
N10 DEF REAL
PKT[3,2]=(20,50,50,40,65,20)
N20 DEF REAL ERG[3]
N30 DEF BOOL STATUS
N40 STATUS = CALCDAT(PKT,3,ERG)
N50 IF STATUS == FALSE GOTOF ERROR
14-584
Y
60
50
40
30
20
ERG [1]
10
10
Punkte-Definition
Ergebnis
Variable für Status
Aufruf der ermittelten Kreisdaten
Sprung zu Fehler
SINUMERIK 840D/840Di/810D Programmieranleitung Arbeitsvorbereitung (PGA) - Ausgabe 03.04
03.04
(20,50)
(50,40)
20
30
40
50
60
ERG [0]
Siemens AG 2004 All rights reserved.
14
(65,20)
X
70