Нужна помощ с поиском загатовки

[Ostap_2017]

Есть портальная плазма, подключеая к матчу. С двигателями разобрался. Поиск реализован следующим способом.
На input1 приходит сигнал когда носик плазмы касается листа.
Output2 заведен на пускач работающий в роли размыкателя отвечает за размыкание этого контакта при поджиге резке.
Как заставить эту схему работать? На матче сейчас стоит интерфейс идущий в комплекте с THC purelogic.

Моя мысль сделать два макроса из одной строчки к примерк M21 ActivateSignal(Output2)
M22
DeActivateSignal(Output2)
И каждый раз перед M3 вставлять M22 а после M5 вставлять M21
Насколько это адекватное решение? Можно ли его автоматизировать что бы либо матч сам включал защиту перед поджигом и выключал после. Либо SheetCAM каким образом сам добавлял нужное. Прошу помощи. Или думаю есть более оптимальное решение?

[Ostap_2017]

Еще вопрос: как правильна сигнал контакта с заготовкой поиска заводят на Z home?

[Ostap_2017]

Хмм. За сутки не одного ответа. Я спросил что то очень сложное или наоборот простое, что на поверхности? Тогда хоть тките что почитать?

[aftaev]

И каждый раз перед M3 вставлять M22 а после M5 вставлять M21
Насколько это адекватное решение?

Да лижбы работало
А вообще это можно все прописать в M3 и размыкать контакты и поиск G31...


Как то так:

Код: Выделить всё

' macros aftaev
'=== Declaraciones ===
Dim Feed
Const DRO_X = 0
Const DRO_Y = 1
Const DRO_Z = 2

' запоминаем начальную скорость
Feed = FeedRate
' Проверяем включена кнопка поиск меалла on/off
' If GetUserLED(2222) Then
While IsMoving() ' ждем выполнения
Sleep 100
Wend
' Позиционируем датчик металла над проколом Y-10 X-35
Code "G0 Y" & GetDRO(DRO_Y)-10 & "G0 X" & GetDRO(DRO_X)-35 ' ??????????

While IsMoving() ' ждем выполнения
Sleep 100
Wend

Code "m7" 'включаем пнвмопривод
While IsMoving ()
Sleep 100
Wend


' Ищем металл
ActivateSignal(Output2) 
Code "G31 Z-50 F500"
While IsMoving()
Sleep 100
Wend
DeActivateSignal(Output2) 

Code "G92 Z0" ' обнуляем Z
Code "G0 Z4 F200" ' Подымаемся на Z+4
While IsMoving ()
Sleep 100
Wend

Code "m9" ' выключаем пневмопривод
While IsMoving ()
Sleep 100
Wend

' позиционируем резак на место
Code "G0 Y" & GetDRO(DRO_Y)+10 & "G0 X" & GetDRO(DRO_X)+35 ' возврат в точку прожига
' End If
Code "F" & Feed ' возращаем скорость F

While IsMoving()
Sleep 100
Wend

DoSpinCW()'запускаем плазму

[Ostap_2017]

К сожалению ничего не понял. Ни что делает этот код ни куда его вставить. Вы не могли бы ответить более развернуто?

P.S. Уважаемый aftaev когда-то в 2013 г. благодоря Вашим ответам на мои вопросы на этом форуме я перестал относится к чпу станкам как к чемуто недоступно сложному. После этого я обращался за помощью к этому фору несколько раз и получал ответы от Вас. Задав вопрос спустя 4 года отвечаете опять Вы )
У меня складывается впечатление, что больше никого тут нет.

[nkp]

когда-то в 2013 г.

почему с того аккаунта не зашел?

[Ostap_2017]

Не пускает почему-то. И востановление не работает пишет такого емэйла и логина в базе нет. Хотя свои старые сообщения поиском нахожу. Видимо трут непользуемые аккаунты.

[aftaev]

Еще вопрос: как правильна сигнал контакта с заготовкой поиска заводят на Z home?

Сигнал поиска заводят на сигнал Probe в Mach3. Только этот сигнал будет работать с G31

К сожалению ничего не понял. Ни что делает этот код ни куда его вставить. Вы не могли бы ответить более развернуто?

Re: Вопросы по пламенному раскрою металла... #59

[aftaev]

Не пускает почему-то. И востановление не работает пишет такого емэйла и логина в базе нет. Хотя свои старые сообщения поиском нахожу. Видимо трут непользуемые аккаунты.

старый логин напиши.

[Ostap_2017]

Ostap_2013

[FLUKE]

Re: Вопросы по пламенному раскрою металла... #59

Там на фото в скринсете мака на кнопках русский шрифт, у меня кракозябры. как туда поддержку латиницы прикрутить?

[aftaev]

как туда поддержку латиницы прикрутить?

Шрифт нужно зарегистрировать/прописать и кодировку в реестре сменить:
Для ХР работает:

AdobeFont.rar

(303 байт) 322 скачивания

[FLUKE]

кодировку в реестре сменить

Т.е. шрифт надо сделать системным? В редакторе скринсетов, в настройках, можно выбрать шрифт, только там не пробовал менять?
Ааа, шрифтов в архиве нет. Т.е. только смена кодировки. А в редакторе скринсета и в самом маке какой шрифт выбирать? Любой? Прям сейчас не могу проверить.

[aftaev]

Раньше ручками менял в реестре:
"1250"="c_1250.nls"
"1251"="c_1251.nls"
"1252"="c_1251.nls"
"1253"="c_1251.nls"
"1254"="c_1251.nls"

потом нашел этот файлик, а там такое:

REGEDIT4

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage]
"1250"="c_1250.nls"
"1251"="c_1251.nls"
"1252"="c_1251.nls"
"1253"="c_1251.nls"
"1254"="c_1251.nls"

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\CodePage\EUDCCodeRange]
"932"="F040-F9FC"
"936"="AAA1-AFFE,F8A1-FEFE,A140-A7A0"
"949"="C9A1-C9FE,FEA1-FEFE"
"950"="FA40-FEFE,8E40-A0FE,8140-8DFE,C6A1-C8FE"
"Unicode"="E000-F8FF"

А в редакторе скринсета и в самом маке какой шрифт выбирать? Любой?

Этим не заморачивался, что стояло по умолчанию с тем и работал

[FLUKE]

Спс. Попробую.

[Ostap_2017]

Еще вопрос: как правильна сигнал контакта с заготовкой поиска заводят на Z home?

Сигнал поиска заводят на сигнал Probe в Mach3. Только этот сигнал будет работать с G31

К сожалению ничего не понял. Ни что делает этот код ни куда его вставить. Вы не могли бы ответить более развернуто?

Re: Вопросы по пламенному раскрою металла... #59

ОК разобрался поиск начал срабатывать. Вопрос: а можно замыкание защитного реле (output2) написать прямо в начале файла g31 а размыкание в конце? Или я наивен. И прошу подсказать как это написать правильно?

[Ostap_2017]

Сделал макросы m22 и m23 активирующие и деактевирующие защитный пускач

Хочу прописать m23 в m3 а в m5 - m22
Открываю m3 и добавляю Code "m23" перед его содержимым

Код: Выделить всё

Code "m23"

'Turn on torch (and preheat for oxy-fuel)
Sub Main()

  CuttingMode = GetUserDRO(1351)

  If CuttingMode > 0 Then 'OxyFuel Cutting modes
  	 ActivateSignal(9)    'Turn on preheat
  	 DoSpinCW()            'Turn on Oxy
  Else                    'Plasma cutting mode
	 DoSpinCW()
  End If
End Sub

По аналогии попытался сделать с M5

Код: Выделить всё

'Turn off torch (and preheat for Oxy)
Sub Main()
  
  CuttingMode = GetUserDRO(1351)

  If CuttingMode > 0 Then 'OxyFuel Cutting modes
    DeactivateSignal(9)    'Turn off preheat  
  	DoSpinStop()            'Turn off Oxy
  Else                    'Plasma cutting mode
    DoSpinStop()
  End If
End Sub

Code "m22"

Ничего не работает. Всмысле вручную m22 m23 работают, а к m3 m5 не привязываются

[aftaev]

Вопрос: а можно замыкание защитного реле (output2) написать прямо в начале файла g31 а размыкание в конце? Или я наивен.

Яж тебе их сразу в код воткнул
' Ищем металл
ActivateSignal(Output2)
Code "G31 Z-50 F500"
While IsMoving()
Sleep 100
Wend
DeActivateSignal(Output2)

[Ostap_2017]

Все оказалось сложнее G31 у меня не работает.
Скринсет от purelogic-а использует некое M900
Которое у меня тоже не работает и я не могу найти куда там воткнуть свое рэле

Код: Выделить всё

'This routine makes probing (if necessary) and piercing
Sub Main()

Dim PierceHeight, PierceDelay, CuttingHeight
Dim PlungeFeed, CuttingFeed
Dim TipHeight
Dim CurrentAbsInc
Dim ProbeLim
Dim CurrentFeed
Dim PreheatTime
Dim CuttingMode

ProbeLim = 200 '200mm probing distance

PierceHeight  = GetUserDRO(1328)
PierceDelay   = GetUserDRO(1329) * 1000
CuttingHeight = GetUserDRO(1330)
CuttingFeed   = GetUserDRO(1331)
PlungeFeed    = GetUserDRO(1327)
TipHeight     = GetUserDRO(1326)
CurrentFeed   = FeedRate
ProbeDistance = GetUserDRO(1339)
ProbePrevX    = GetUserDRO(1340)
ProbePrevY    = GetUserDRO(1341)
CuttingMode   = GetUserDRO(1351) '0 = Plasma, 1 = OxyFuel with controlled Axis Z, 2 = OxyFuel with external Axis Z
PreheatTime   = GetUserDRO(1352) * 1000


CurrX         = GetDRO(0)
CurrY         = GetDRO(1)
CurrZ         = GetDRO(2)

'Current state of G90/G91 mode
CurrentAbsInc = GetOEMLed(48)


If (CuttingMode < 2) Then 'Execute probing only if current mode is not using external Axis Z
  Distance = (ProbePrevX - CurrX) * (ProbePrevX - CurrX) + (ProbePrevY - CurrY) * (ProbePrevY - CurrY)
  If Distance > (ProbeDistance * ProbeDistance) Then
    SetUserDRO(1340, CurrX)
    SetUserDRO(1341, CurrY)

    'We need to do probing now
    If GetOemLed (825) <> 0 Then 'Check to see if the probe is already grounded or faulty
      Code "(Probe plate is grounded, check connection and try again)"
      Code "M30"
    Else  
      'Probe
      ProbingMaximum = CurrZ - ProbeLim
      Code "G90 G31 Z" &ProbingMaximum & "F" & PlungeFeed
      While IsMoving()'wait for the move to finish
      Wend

      code "G92 Z" &TipHeight
      sleep(500)
    End if
  End If
  'Goto pierce height
  code "G90 G0 Z" &PierceHeight & " F" & CuttingFeed
  While IsMoving() ' Wait for probe move to finish
  Wend
End if

If CuttingMode > 0 Then 'OxyFuel Cutting modes  
  ActivateSignal(9)    'Turn on preheat
  If PreheatTime > 0 Then
     Sleep(PreheatTime)
  End If
  DoSpinCW()            'Turn on Oxy
Else                    'Plasma cutting mode
  DoSpinCW()
End If

If PierceDelay > 0 Then
  code "G04 P" &PierceDelay
End If

If CuttingMode < 2 Then 'Not in External Axis Z Mode
	'Set cutting feed and ABS/REL mode
	'And goto cutting height
	If CurrentAbsInc Then
		code "G90 G0 Z" &CuttingHeight
	Else
		code "G91 G0 Z" &(CuttingHeight-PierceHeight)
	End If
Else
	'Only set cutting feed and ABS/REL mode (External Axis Z Mode)
	If CurrentAbsInc Then
	  Code "G90"
	else
	  Code "G91"
	End If
End If

End Sub

И куда тут что вставлять не поймешь M900 само ищет загатовку и сразу же поджигает дугу

[Ostap_2017]

и почему то у меня на M900 после розжига станок останавливается. т.е. программа как бы идет часы работают, а инструмент не двигается и к следующей команде не переходит