Programmierbeispiel

Programmierbeispiel

Vermessung Werkstück

; touchprobe activtion

T1 D1

; deactivation of the zero offset

G53

; positioning to the starting point

G00 X50 Y20

G00 Z10

#VAR

  ;input parameters

  V.L.SpigotDiameter   = 20

  V.L.ZeroOffsetNumber = 54

  V.L.SafetyDistance   = 3

  V.L.StartAngle       = 20

  V.L.IncrementalAngle = 70

  V.L.CrossOver        = 5

  ;output variables

  V.CYC.SysRetX

  V.CYC.SysRetY

  V.CYC.SysRetDiameter

#ENDVAR

;cycle call

L CYCLE[NAME="SysMeasWcs39.ecy" @P2  = V.L.SpigotDiameter   \

                                @P7  = V.L.ZeroOffsetNumber \

                                @P13 = V.L.SafetyDistance   \

                                @P14 = V.L.StartAngle       \

                                @P15 = V.L.IncrementalAngle \

                                @P33 = V.L.CrossOver        ]

; 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.SysRetDiameter =%f", V.CYC.SysRetDiameter]

G00 Z0

M30

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