Programmierbeispiel

Programmierbeispiel

Berechnungszyklus

; creation of return variables

#VAR

  V.CYC.SysRetNormalX

  V.CYC.SysRetNormalY

  V.CYC.SysRetNormalZ

  V.CYC.SysRetSupVectorX

  V.CYC.SysRetSupVectorY

  V.CYC.SysRetSupVectorZ

#ENDVAR

; calculation of the XY-plane

L CYCLE [NAME=SysCalcPlane.ecy \

@P50 = 1  @P60 = 0  @P70 = 0   \

@P51 = 0  @P61 = 1  @P71 = 0   \

@P52 = 1  @P62 = 1  @P72 = 0   ]

; print result

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

#MSG SAVE ["Normal X = %f", V.CYC.SysRetNormalX    ]

#MSG SAVE ["Normal Y = %f", V.CYC.SysRetNormalY    ]

#MSG SAVE ["Normal Z = %f", V.CYC.SysRetNormalZ    ]

#MSG SAVE ["Point X  = %f", V.CYC.SysRetSupVectorX ]

#MSG SAVE ["Point Y  = %f", V.CYC.SysRetSupVectorY ]

#MSG SAVE ["Point Z  = %f", V.CYC.SysRetSupVectorZ ]

M30