Biosp,

A maioria dos programas de controle de máquinas pode usar determinados pontos chamados "pontos de fixação" e que são controlados por uma tabela criada pelo operador.

Cada ponto desta tabela é tratado como uma origem de desenho, e se usa o sistema de coordenadas absolutas em relação ao "ponto de Origem Máquina" = G53.
 Se me recordo, é possível usar até 254 pontos diferentes, começando por G55 (até G59) e depois G59.1 até G59.254.

Cada ponto de origem pode ser tratado como uma chamada dentro do programa de corte que é inserida logo no começo do arquivo de corte.

Para automatizar a coisa, é necessário conhecer as coordenadas dos pontos de fixação e o tipo de usinagem para poder apontar alguma solução, seja por macro, sensoriamento automático, seja por variáveis ou subrotinas em arquivo.

Biosp,

O exemplo abaixo usa uma simples rotina de repetição (G52) - não é programação parametrizada nem usa o sistema de coordenadas de fixações.

M3 F500
G52 X0
M98 P01
G52 X 50
M98 P01
G52 X 100
M98 P01
G52 X 150
M98 P01
G52 X 200
M98 P01
G52 Z0
G00 Z25
M30

O1
G0X25.000Y25.000Z25 .000
G1Z-2.000F780.0
G1 X75.000 Y25.000 F2520
Y75.000
X25.000
Y25.000
G0Z25.000
M99

Note que seu programa está depois da chamada "O1" (Letra "O" e não zero )

Seu quadrado vai ser repetido a incrementos de 50mm a cada chamada M98

Mais tarde tento fazer um exemplo de programação parametrizada.

... ele não reconhece os “PO1”  ...

Provavelmente porque voce escreveu PO1  e não P01 ... O Nome da Subrotina é O1, mas a chamada é P01 (pode escrever P1 também)
É preciso também uma linha em branco (CR) no final do arquivo, logo depois do M99

Alias nem o código G52  eu localizei no  manual do G-CODE.

Está no manual - pág 93

.... igualzinho a que vc descreveu, mas que funcione no Mach 3.

E funciona - experimente

Este exemplo que eu escreví faz 5 quadrados um do lado do outro, deslocados apenas em X 50mm.

Fábio;
Com poucas chamadas dá pra editar manualmente as posições, mas quando se necessita usar dezenas ou centenas de vezes a mesma rotina, fica mais complicado.

Criei uma macro para gerar o código com todas as posições (X e Y) equidistantes configuradas pra X e para Y; vc sabe como se faz para inserir o esse código junto com a rotina?

Abraços...

Criei uma macro para gerar o código com todas as posições (X e Y) equidistantes configuradas pra X e para Y; vc sabe como se faz para inserir o esse código junto com a rotina?

Estas posições são as coordenadas da peça ou de uma operação (por exemplo "furar")

Teria como postar um exemplo do código e da sua macro?

Enoch,

Eu fiz um arremedo de código que parece funcionar, mas há algumas restrições:
- O arquivo deve terminar com o comando "M99" no final, e deve se dar uma linha de espaço.
- O arquivo deve estar aberto na tela antes de rodar a macro

A macro - é uma adaptação do seu código, e deve funcionar melhor se dermos uma limpada nele.

'***********************************
'**  Macro for mult-position CNC  **
'**         Experimental          **
'** Mult-P v0.01 - ECM 25/03/2010 **
'***********************************

File = Filename()

X = InputBox ("Repetições em X")
XX = Abs(X)
If XX < 1 Then
 XX = 1
  MsgBox ("Valor Ilegal! Considerado = 1")
End If

DX = InputBox ("Espaçamento em X")
DXX = Abs(DX)
If DXX < 1 Then
 DXX = 1
  MsgBox ("Valor Ilegal! Considerado = 1")
End If

Y = InputBox ("Linhas em Y")
YY = Abs(Y)
If YY < 1 Then
 YY = 1
 MsgBox ("Valor Ilegal! Considerado = 1")
End If

DY = InputBox ("Espaçamento em Y")
DYY = Abs(DY)
If DYY < 1 Then
 DYY = 1
 MsgBox ("Valor Ilegal! Considerado = 1")
End If

XTimes = XX
YTimes = YY
XInc = DXX
YInc = DYY
CurX = GetDRO(0)
CurY = GetDRO(1)
CurZ = GetDRO(2)
SafeZ = GetSafeZ()


OpenTeachFile( "1.tap" )


For y = 1 To YTimes Step 1
  For x = 1 To XTimes Step 1
    If (x > 1) Then
    code "G92 X0"
    End If
    code "M98(" & "-" & File & ")"
    code "G0 Z" & SafeZ
    If x < Xtimes Then
    code "G0 X" & XInc & " Y0"
    Else
    code "G0 X0 Y0"
    End If
  Next
    code "G92 X" & (Xinc * (Xtimes - 1))
    If y < Ytimes Then
    code "G0 X0 Y" & YInc
    code "G92 Y0"
    Else
    code "G92 Y" & (Yinc * (Ytimes - 1))
    code "G0 X0 Y0"
    End If
Next       
    code "M30"

CloseTeachFile
Call LoadTeachFile()
Note que o arquivo final ficará gravado como " 1.tap " na pasta de arquivosd Gcode do Mach3.

Eu sei que dá para fazer uma rotina de gravar um nome (Save as) desse novo arquivo gerado, mas preciso refinar o código porque não ficou consistente da maneira que eu fiz...

Enoch,

Eu não sei nada de VB e meu BASIC é muito primário também...

Eu só testei este código no editor VB e funcionou, mas confesso que não experimentei como macro...

Eu lí que há uns comandos para VB que manipulam os arquivos:

OpenTeachFile, OpenSubroutineFile, AppendTeachFile

O segundo comando (Subroutine) tem informações desencontradas e não são claras.

O terceiro comando -= AppendTeachFile faz mais ou menos o que voce quer, mas o que eu entendí é que ele adiciona comandos a um arquivo aberto.

A sintaxe seria mais ou menos assim:

AppendTeachFile
Code "G01 X..."
Code "....."

Assim se adicionam linhas de código ao arquivo aberto, mas creio que só no tal "TeachFile" que deveria estar aberto na chamada "OpenTeachFile "1.tap" (por exemplo)

Não consegui fazer funcionar de outra forma.
Tentei adicionar um arquivo depois de outro, e o máximo que eu consegui foi anexar um arquivo gerado com as variáveis de repetição depois da parte de subrotina, e deveria ser o contrário (que não consegui)

Se souber de alguma novidade te lafo