Siemens SINUMERIK 840D sl Programming Manual page 816

User stock removal programs
15.4 Determine point of intersection between two contour elements (INTERSEC)
Note
Please note that the variables must be defined before they are used.
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
...
816
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)
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
Programming Manual, 06/2009, 6FC5398-2BP20-0BA0
Job Planning