Is it possible to create a Post Processor for Aerotech's A3200, and Automation1 software.
These are mostly used to control laser processing machines.
They can use G Codes for moves
A sample code looks like the cut and paste below. The BASIC commands don't need to be used (FOR Loops etc), and neither do a lot of the variables etc. As long as I can link to my own subroutines via a Pass Through Command, that would be OK
' 2021-04-29 9:43:19 PM
#define CoordinatedMotionTransitionFeedrate 20
#define ShapeFeedrate 50
DVAR $forLoopCounterDepth1
' Program Initialization
G90
G71
G76
#include "O:\MainInitCode.pgm"
#include "O:\PSO_InitializationCode.pgm"
#include "O:\IFOV_InitializationCode.pgm"
G90
G71
G76
G16 xx yy Z
G17
' Root Group
' Movew Z to Cut position
' Waypoint 389
G0 xx 0.0000 yy 0.0000
G0 Z0
' Outlines
FOR $forLoopCounterDepth1 = 1 TO 5
' Shape 25 - Copy
G0 xx 81.2749 yy 40.6401
F ShapeFeedrate
G3 xx 81.2749 yy 40.6401 I -43.1750 J 0.0000
' Shape 25 - Copy
G0 xx 81.2749 yy 139.7001
G3 xx 81.2749 yy 139.7001 I -43.1750 J 0.0000
' Shape 25 - Copy
G0 xx 81.2749 yy 238.7601
G3 xx 81.2749 yy 238.7601 I -43.1750 J 0.0000
' Shape 25 - Copy
G0 xx 81.2749 yy 337.8201
G3 xx 81.2749 yy 337.8201 I -43.1750 J 0.0000
' Shape 25 - Copy
G0 xx 157.4749 yy 90.1701
G3 xx 157.4749 yy 90.1701 I -43.1750 J 0.0000
' Shape 25 - Copy
G0 xx 157.4749 yy 189.2301
G3 xx 157.4749 yy 189.2301 I -43.1750 J 0.0000
' Shape 25 - Copy
G0 xx 157.4749 yy 288.2901
G3 xx 157.4749 yy 288.2901 I -43.1750 J 0.0000
' Shape 25 - Copy
G0 xx 233.6749 yy 40.6401
G3 xx 233.6749 yy 40.6401 I -43.1750 J 0.0000
' Shape 25 - Copy
G0 xx 233.6749 yy 139.7001
G3 xx 233.6749 yy 139.7001 I -43.1750 J 0.0000
' Shape 25 - Copy
G0 xx 233.6749 yy 238.7601
G3 xx 233.6749 yy 238.7601 I -43.1750 J 0.0000
' Shape 25 - Copy
G0 xx 233.6749 yy 337.8201
G3 xx 233.6749 yy 337.8201 I -43.1750 J 0.0000
NEXT $forLoopCounterDepth1
' Program Termination
'This file is called at the end of all the code. It is the main teardown program
VELOCITY OFF
IFOV OFF
' Turn off appropriate laser
IF $global[DEF_WHICH_LASER] == IS_IR_LASER THEN
' IR Laser shutdown
$DO[0].xx = 0 ' Disable Laser
$DO[3].xx = 0 ' Disable Laser Emission Gate
ELSEIF $global[DEF_WHICH_LASER] == IS_UV_LASER THEN
' Shurdown UV laser
' Only shut Gate - leave laser on - long warm up time
UV_LAS_IO_GATE = 0
ENDIF
SET_VAC_OFF
END PROGRAM
Can't find what you're looking for? Ask the community or share your knowledge.