Hi Guys,
i need some help,
trying to weld multiple linear lines on a circle plate. I've butchered other codes to try make this work, as I'm still a beginner.
i dont know how to reduce the x axis as it gets further out towards the edge of the radius.
well over 800 weld passes are required. this is just the first pass of multiple layers.
please help
Code
.PROGRAM pg998() #14;plate welding
SIGNAL -2111,-2112
GROUP 1
SPEED 400 MM/s ALWAYS
ACCURACY 1 ALWAYS
program = 6
job = 52
W1SET 1 = 10,140,20,20,.4
pitch = 15; weld overlay spacing
POINT .tmp[1] = ni0
JMOVE SHIFT(.tmp[1] BY 0,0,10); Approach datum
swait 1010
swait -1010
JMOVE SHIFT(.tmp[1] BY -784,10,200); Approach pad weld
FOR .tmp.weld = 1 TO 52
JMOVE SHIFT(.tmp[1] BY -784,(pitch*(.tmp.weld-1)),200); Approach
LMOVE SHIFT(.tmp[1] BY -784,(pitch*(.tmp.weld-1)),0); Approach
lws SHIFT(.tmp[1] BY -784,(pitch*(.tmp.weld-1)),0),1; weld
lwe SHIFT(.tmp[1] BY 784,(pitch*(.tmp.weld-1)),0),1; finish weld
END
FOR .tmp.weld = 1 TO 52
JMOVE SHIFT(.tmp[1] BY -784,(-pitch*(.tmp.weld-1)),200); Approach
LMOVE SHIFT(.tmp[1] BY -784,(-pitch*(.tmp.weld-1)),0); Approach
lws SHIFT(.tmp[1] BY -784,(-pitch*(.tmp.weld-1)),0),1; weld
lwe SHIFT(.tmp[1] BY 784,(-pitch*(.tmp.weld-1)),0),1; finish weld
end
Display More