Siemens Sinumerik 840D sl Programming Manual page 737

The values defined with CONTPRON must be observed when transferring the contours:
Parameter
2
3
4
5
6
9
10
Example
Calculate the intersection of contour element 3 in table TABNAME1 and contour element 7 in
table TABNAME2. The intersection coordinates in the active plane are stored in the variables
ISCOORD (1st element = abscissa, 2nd element = ordinate). If no intersection exists, the
program jumps to NOCUT (no intersection found).
Program code
DEF REAL TABNAME1[12,11]
DEF REAL TABNAME2[10,11]
DEF REAL ISCOORD [2]
DEF BOOL ISPOINT
DEF INT MODE
...
MODE=1
N10 ISPOINT=INTERSEC(TABNAME1[3],TABNAME2[7],ISCOORD,MODE)
N20 IF ISPOINT==FALSE GOTOF NOCUT
...
Job planning
Programming Manual, 02/2011, 6FC5398-2BP40-1BA0
15.4 Determine point of intersection between two contour elements (INTERSEC)
Significance
Coding of contour mode for the movement
Contour start point abscissa
Contour start point ordinate
Contour end point abscissa
Contour end point ordinate
Center point coordinates for abscissa (only for circle contour)
Center point coordinates for ordinate (only for circle contour)
User stock removal programs
Comments
; Contour table 1
; Contour table 2
; Variable for the point of
intersection coordinates.
; Variable for the intersection
status.
; Variable for machining type.
; Calculation independent of the
active plane.
; Call point of intersection of
the contour elements.
; Jump to NOCUT
737