
Собственные программы обработки резаньем
15.4 Определить точку пересечения между двумя элементами контура (INTERSEC)
Расширенное программирование
Справочник по программированию, 02/2011, 6FC5398-2BP40-1PA0
737
Для передачи контуров необходимо соблюдать определенные с CONTPRON значения:
Пример
Определить точку пересечения элемента контура 3 таблицы TABNAME1 и элемента
контура 7 таблицы TABNAME2. Координаты точки пересечения в активной плоскости
сохраняются в переменной SCHNITT (1-ый элемент = абсцисса, 2-ой элемент =
ордината). Если точки пересечения не существует, то выполняется переход на
KEINSCH (точка пересечения не найдена).
Параметры Значение
2 Кодировка режима контура для движения
3 Начальная точка контура абсцисса
4 Начальная точка контура ордината
5 Конечная точка контура абсцисса
6 Конечная точка контура ордината
9 Координата центра для абсциссы (только для кругового контура)
10 Координата центра для ординаты (только для кругового контура)
Программный код Комментарий
DEF REAL TABNAME1[12,11] ; Таблица контура 1
DEF REAL TABNAME2[10,11] ; Таблица контура 2
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 KEINSCH ; Переход на KEINSCH.
…