51
Show"N"Tell ( Your Machines) / Re: Yet another Retrofit. Hardinge HXL-S
« on: September 11, 2008, 02:13:45 PM »
Here's the Clamp/UnClamp macro's just in case anyone could use them.
I think the Sleep() command takes it's Argument in milliseconds??
Wayne...
'M20 Collet Clamp Macro for Hardinge HXL-S and Cubloc CUSB36R
'11th September 2008
Call setmodoutput (16,0) 'deactivate Unclamp Valve just in case
sleep (200) 'wait 0.2 secs
Call SetmodOutput (17,1) 'Cubloc P17 Actuate Valve
sleep(200)
Call SetmodOutput (17,0) 'Deactuate Valve No need for coil to remain on
Message ("Collet/Chuck Clamped OK") 'OK Status Msg
'M21 Collet UnClamp Macro for Hardinge HXL-S and Cubloc CUSB36R
'11th September 2008
DoSpinStop() 'Spindle OFF
While Getoemdro(817) > 100 'Bypassed To S Value DRO (817) For bench testing.
'While Getoemdro(39) > 100 'oemdro(39) (Spindle true) for final setup.
message ("Waiting for spindle to Slow")
Wend 'Wait for spindle to slow to < 100 rpm
Call setmodputput (17.0) 'Deactivate Clamp valve just in case
sleep (200)
Call SetModOutput (16,1) 'Cubloc P16 high (Unclamp)
sleep(200) 'wait 0.2 secs
Call setmodoutput (16,0) 'Deactuate Valve No need for coil to remain on
Message ("Collet/Chuck UnClamped OK") 'OK Status Msg
I think the Sleep() command takes it's Argument in milliseconds??
Wayne...
'M20 Collet Clamp Macro for Hardinge HXL-S and Cubloc CUSB36R
'11th September 2008
Call setmodoutput (16,0) 'deactivate Unclamp Valve just in case
sleep (200) 'wait 0.2 secs
Call SetmodOutput (17,1) 'Cubloc P17 Actuate Valve
sleep(200)
Call SetmodOutput (17,0) 'Deactuate Valve No need for coil to remain on
Message ("Collet/Chuck Clamped OK") 'OK Status Msg
'M21 Collet UnClamp Macro for Hardinge HXL-S and Cubloc CUSB36R
'11th September 2008
DoSpinStop() 'Spindle OFF
While Getoemdro(817) > 100 'Bypassed To S Value DRO (817) For bench testing.
'While Getoemdro(39) > 100 'oemdro(39) (Spindle true) for final setup.
message ("Waiting for spindle to Slow")
Wend 'Wait for spindle to slow to < 100 rpm
Call setmodputput (17.0) 'Deactivate Clamp valve just in case
sleep (200)
Call SetModOutput (16,1) 'Cubloc P16 high (Unclamp)
sleep(200) 'wait 0.2 secs
Call setmodoutput (16,0) 'Deactuate Valve No need for coil to remain on
Message ("Collet/Chuck UnClamped OK") 'OK Status Msg