Linguagem parametrizada e Sub Rotinas

[joebrabo]

Galera

Relativo ao Mach 3

alguem de vcs sabem se aceita linguagem parametrizada e/ ou sub rotinas?
Se sim, alguém pode postar algum programa para testar.

[fgilii]

Sim, funciona com as duas, mas é preciso escrever as macros ou as variáveis com os formatos que o Mach3 entenda para executar qualquer coisa...

[joebrabo]

grande gilli....

Vc poderia (ou alguem que tenha), anexar,um programa gerado (txt)qualquer ,para eu entender melhor essa linguagem...

No + fico agradecido...

[fgilii]

Aqui um exemplo de programação paramétrica, onde se podem alterar certos valores para que se obtenha uma certa reação - trata-se de uma macro parametrizada para fazer ciclos de roscas.

Código: Voce nao tem permissao p/ ver este link. Registre-se ou faca Login

' Tapping Parametric Macro
' M9000 with P R Q params
' P Depth of thread   positive or negative number
' Q ThreadsPerInch' R RetractZ
' NOTE uses swapaxis from A to B axis
' Commented out for testing

Dim DepthOfThread As Double
Dim TotalDegreeRotation As Double
Dim ThreadsPerInch As Double
Dim RetractZ As Double

DepthOfThread  = Param1() 'P
ThreadsPerInch = Param2() 'Q
RetractZ           = Param3() 'R

DepthOfThread = Abs(DepthOfThread)  'make sure thread is positive
TotalDegreeRotation=((DepthOfThread/(1/ThreadsPerInch))*360)

Message "Cut to " & DepthOfThread & " rotation " & TotalDegreeRotation
SwapAxis(4,5)
sleep(100)
Code "G91"
sleep(100)
Code "G1 Z-" & DepthOfThread & "A" & TotalDegreeRotation
While (IsMoving())
sleep(100)
Wend
Code "G4P.5"
Code "G1 Z" & DepthOfThread & "A-" & TotalDegreeRotation
While (IsMoving())
sleep(100)
Wend
Code "G90"
sleep(100)
Code "G0Z" & RetractZ
ResetAxisSwap()
sleep(100)

Message "Completed " & ThreadsPerInch & " TPI to " & DepthOfThread & " depth"
End

Este é apenas um exemplo de programação - o programa precisa ser debugado e faz uso de parametrização sem chamada de subrotinas