Programmierbeispiel

Programmierbeispiel

Messung einer Kugel

; touchprobe activtion

T1 D1

M6

; deactivation of the zero offset

G53

; positioning to the starting point

G00 X100 Y300 Z200

G00 Z10

#VAR

  ;input parameters

  V.L.MeasDistZ        = 100

  V.L.ZeroOffsetNumber = 56

  V.L.SafetyDistance   = 100

  V.L.StartAngle       = 90

  V.L.IncrementalAngle = 45

  V.L.CrossOver        = 100

  V.L.PathDefinition   = 1

  V.L.SphereDiameter   = 400

  ;output variables

  V.CYC.SysRetX

  V.CYC.SysRetY

  V.CYC.SysRetZ

  V.CYC.SysRetDiameter

#ENDVAR

;cycle call

L CYCLE [NAME="SysMeasWcs40.ecy"  @P6  = V.L.MeasDistZ         \

                                  @P7  = V.L.ZeroOffsetNumber  \

                                  @P13 = V.L.SafetyDistance    \

                                  @P14 = V.L.StartAngle        \

                                  @P15 = V.L.IncrementalAngle  \

                                  @P33 = V.L.CrossOver         \

                                  @P64 = V.L.PathDefinition    \

                                  @P87 = V.L.SphereDiameter    ]

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

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

M30

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