Re: Вопросы по пламенному раскрою металла...
Добавлено: 27 июн 2013, 10:13
вот и вчом вопрос насколтко я понял по прочитаном есть всть емкосный есть контактний
например
например
Статьи, обзоры, цены на станки и комплектующие.
https://cnc-club.ru/forum/
это не ТНС, а прописывание проколов и подпрыжек если этого не было сделано в GCodevitaliy_tex писал(а):а вот етот вариант как работает
ТНС и следить. Вот только ему нужно "сказать" на какой высоте держать плазматрон, и некоторым плазморезками можно управлять силой тока.vitaliy_tex писал(а):а если можно попдробние а что следит за высотой
мой станок работает уже года 4 без ТНСvitaliy_tex писал(а):а могу я пока пробовать без нево
Предыдущий вопрошающий тоже обещал видео снять, год как уже...vitaliy_tex писал(а):с меня
это уже не ТНС это поиск металла. Для этого нужно написать макросvitaliy_tex писал(а):а если зделать датчик контакта плазматрона з металом
например
1команда от мача вниз
2сработал датчик касания остановка
3 мач подносит на висоту пробивки
4 мач опускает на висоту резки
5 резка
6 мач подносит на 0
7конец програми подносит к концев home
Код: Выделить всё
' Макрос написал Афтаев А.А 2012
Option Explicit
'=== Declaraciones ===
Dim Feed
Dim ZZ ' начальная Z
Const DRO_X = 0
Const DRO_Y = 1
Const DRO_Z = 2
' Read the Z axis DRO
' запоминаем начальную скорость
Feed = FeedRate
ZZ = GetDRO(DRO_Z) ' запоминаем начальную Z
' Проверяем включена кнопка поиск меалла on/off
' If GetUserLED(2222) Then
' Подымаемся на всоту Z +20
Code "G0 Z " & GetDRO(DRO_Z)+20
While IsMoving() ' ждем выполнения
Sleep 100
Wend
' Позиционируем датчик металла над проколом Y-25 X+45
Code "G0 Y" & GetDRO(DRO_Y)-25 & "G0 X" & GetDRO(DRO_X)+45 ' ??????????
Code "G0 Z " & GetDRO(DRO_Z)-10
While IsMoving() ' ждем выполнения
Sleep 100
Wend
' Ищем металл
Code "G31 Z-50 F500"
While IsMoving()
Sleep 100
Wend
Code "G92 Z0" ' обнуляем Z
Code "G0 Z20 F200" ' Подымаемся на Z+20
While IsMoving ()
Sleep 100
Wend
' позиционируем резак на место
Code "G0 Z " & GetDRO(DRO_Z)+GetUserLabel(2104)
Code "G0 Y" & GetDRO(DRO_Y)+25 & "G0 X" & GetDRO(DRO_X)-45 ' ??????????
Code "G0 Z " & ZZ ' Встаем на начальную Z
' End If
Code "F" & Feed ' возращаем скорость F
DoSpinCW()'запускаем плазмуКод: Выделить всё
' Макрос написал Афтаев А.А 2012
Option Explicit
'=== Declaraciones ===
Dim Feed
Dim ZZ ' начальная Z
Const DRO_X = 0
Const DRO_Y = 1
Const DRO_Z = 2
' Read the Z axis DRO
' запоминаем начальную скорость
Feed = FeedRate
ZZ = GetDRO(DRO_Z) ' запоминаем начальную Z
' Проверяем включена кнопка поиск меалла on/off
If GetUserLED(2222) Then
' Подымаемся на всоту Z +20
Code "G0 Z " & GetDRO(DRO_Z)+20
While IsMoving() ' ждем выполнения
Sleep 100
Wend
' Позиционируем датчик металла над проколом Y-25 X+45
Code "G0 Y" & GetDRO(DRO_Y)-25 & "G0 X" & GetDRO(DRO_X)+45 ' ??????????
Code "G0 Z " & GetDRO(DRO_Z)-10
While IsMoving() ' ждем выполнения
Sleep 100
Wend
' Ищем металл
Code "G31 Z-50 F500"
While IsMoving()
Sleep 100
Wend
Code "G92 Z0" ' обнуляем Z
Code "G0 Z20 F200" ' Подымаемся на Z+20
While IsMoving ()
Sleep 100
Wend
' позиционируем резак на место
Code "G0 Z " & GetDRO(DRO_Z)+GetUserLabel(2104)
Code "G0 Y" & GetDRO(DRO_Y)+25 & "G0 X" & GetDRO(DRO_X)-45 ' ??????????
Code "G0 Z " & ZZ ' Встаем на начальную Z
End If
Code "F" & Feed ' возращаем скорость F
DoSpinCW()'запускаем плазму