Inhaltsverzeichnis
Werbung
Eigene Abspanprogramme
14.4 Schnittpunkt zweier Konturelemente (INTERSEC)
Beispiel
Schnittpunkt von Konturelement 3 der Tabelle TABNAME1 und Konturelement 7 der Tabelle
TABNAME2 ermitteln. Die Schnittpunkt-Koordinaten in der aktiven Ebene werden in
SCHNITT (1. Element = Abszisse, 2. Element = Ordinate) abgelegt. Existiert kein
Schnittpunkt, erfolgt ein Sprung zu KEINSCH (kein Schnittpunkt gefunden).
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[16,11],TABNAME2[3,11],ISCOORD, MODE)
N20 IF ISPOINT==FALSE GOTOF KEINSCH
...
14-14
;Konturtabelle 1
;Konturtabelle 2
;Schnittpunkt-Koordinaten bei ISPOINT = 1
;Variable für Schnittpunktstatus
;Bearbeitungsart definieren
;Berechnung unabhängig der aktiven Ebene
;Aufruf Schnittpunkt der Konturelemente
;Sprung zu KEINSCH
Programmierhandbuch, 11/2006, 6FC5398-2BP10-2AA0
Arbeitsvorbereitung
Quicklinks ausblenden:
Werbung
Inhaltsverzeichnis
