667 Руководство SIEMENS SINUMERIK 840D sl / 828D Расширенное программирование Стр.667

Руководство SIEMENS 2013 840D Расширенное программирование Стр. 667 0667 Lab2u

Собственные программы обработки резаньем 17.4 Определить точку пересечения между двумя элементами контура (NNTERSEC) Для передачи контуров необходимо соблюдать определенные с contpron значения: Параметры Значение 2 Кодировка режима контура для движения 3 Начальная точка контура абсцисса 4 Начальная точка контура ордината 5 Конечная точка контура абсцисса 6 Конечная точка контура ордината 9 Координата центра для абсциссы (только для кругового контура) 10 Координата центра для ординаты (только для кругового контура) Пример Определить точку пересечения элемента контура 3 таблицы TABNAME1 и элемента контура 7 таблицы TABNAME2. Координаты точки пересечения в активной плоскости сохраняются в переменной SCHNITT (1-ый элемент = абсцисса, 2-ой элемент = ордината). Если точки пересечения не существует, то выполняется переход на KEINSCH (точка пересечения не найдена). Программный код Комментарий 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 KEINSCH ; Таблица контура 1 ; Таблица контура 2 ; Переменная для координат точки пересечения. ; Переменная для состояния точки пересечения. ; Переменная для режима обработки. ; Вычисление независимо от активной плоскости. ; Вызов точки пересечения элементов контура. ; Переход на KEINSCH. Расширенное программирование Справочник по программированию, 03/2013, 6FC5398-2BP40-3PA1 667