Programmierbeispiel

Programmierbeispiel

Messung einer beliebigen 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.RelativeY1         = 30

  V.L.RelativeY2         = 30

  ;output variables

  V.CYC.SysRetX

  V.CYC.SysRetY

  V.CYC.SysRetC

#ENDVAR

;cycle call

L CYCLE[NAME="SysMeasWcs35.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.RelativeY1\

        @P44=V.L.RelativeY2]

; 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.