Of course, feel free to post anything you think helps anyone with anything..,
its really hard to find K40 or any laser info on wiring or specs , so Id like as much as possible
stored here for future wonderer...
Art





Code: Select all
m3 (start pulse engine)
g20 (set for imperial)
M103 (air blow on)
{
x=0.4;y=0;z=0;a=0;f=0;p=0;
for( j = 0; j < 10; j+=1 )
{
p+=10;
GlobalSet("LaserMaxPower",p);
block("MotionStill");
for( k = 0; k < 20; k+=1 )
{
f+=10;
GlobalSet("Feedrate",f);
Engine.FeedTo(x,y,z,a);
block("MotionStill");
y+=0.03;
x2=(x-0.4);
print("feed= "+f);
Engine.RapidTo(x2,y,z,a);
block("MotionStill");
}
x+=.5;f=0;y=0;
print("power= "+p + "\t\t x= "+x+"\t\t x2= "+x2);
Engine.RapidTo(x-.4,y,z,a);
block("MotionStill");
}
};
m105 (air blow off)
g0x0y0
m30




