# Programmierbeispiel

Messung einer rechtwinkligen Außenecke

; touchprobe activtion

T1 D1

; deactivation of the zero offset

G53

; positioning to the starting point

G0 X0 Y0

G0 Z-10

#VAR

;input parameters

V.L.MeasDistX = 5

V.L.MeasDistY = 5

V.L.ZeroOffsetNumber = 54

V.L.PositioningX = 10

V.L.PositioningY = 10

V.L.RelativeX1 = -30

V.L.RelativeX2 = -30

V.L.RelativeY = 30

;output variables

V.CYC.SysRetX

V.CYC.SysRetY

V.CYC.SysRetC

#ENDVAR

;cycle call

L CYCLE[NAME="SysMeasWcs34.ecy"\

@P4=V.L.MeasDistX\

@P5=V.L.MeasDistY\

@P7=V.L.ZeroOffsetNumber\

@P17=V.L.PositioningX\

@P18=V.L.PositioningY\

@P41=V.L.RelativeX1\

@P42=V.L.RelativeX2\

@P43=V.L.RelativeY]

; print result

#FILE NAME [MSG="SysMeasWcsResult.txt"]

#MSG SAVE ["V.CYC.SysRetX =%f", V.CYC.SysRetX]

#MSG SAVE ["V.CYC.SysRetY =%f", V.CYC.SysRetY]

#MSG SAVE ["V.CYC.SysRetC =%f", V.CYC.SysRetC]

G00 Z10

M30

Ein weiteres Beispiel zur Handhabung der SysMeasWcs-Zyklen ist im Übersichtskapitel im Unterpunkt Programmierung zu finden.