Re: Re: Tool change also smart/dumb boxes

Message: 1
Date: Mon, 11 Dec 2000 23:24:14 -0000
From: ballendo@...
Subject: Re: Tool change also smart/dumb boxes

Hi.

Snip

There is NO provision for 'telling' a toolchanger mechanism
'which'
tool we want in almost every CNC S/W pkg. mentioned on this
list!


Snip

The Ahha Artisan software deals with tool changes by using a
macro language to make tool changes. If a provision can be
added to both the smart and dumb systems to deal with this,
it will only make the system more valueable. I believe that
the easiest way at first might be to add a serial
communications protocol which can communicate with say an
inexpensive PLC ( www.automationdirect.com) would be robust
and very capable for the commercial guys and someone couold
also develop the software to provide pc based plc
functionality with low cost hardware for the cost conscious
users.

I will paste a sample macro file from ahha below.

Also along these lines, if a serial protocol were developed
to communicate with the PLC Direct stuff, HMI Panels, switch
panels, annunciator panels, I/O etc (see the
www.automationdirect.com site) would be available as well.

Also low cost hardware like din connectors, switches,
inverters, limit switches, proximity switches, etc. are
available at automationdirect as well.

I dont know why I feel that I have to state it, but I am in
no way affiliated with AD in any way other than as a
satisfied customner.

Here is the macro file:

>>>>>>>>>>>> Machine Control Macros

<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<

O%M03 ;SPINDLE ON CW
AOUT 104,0 ;CCW SPINDLE OFF
AOUT 103,1 ;SPINDLE ON CW
M99

O%M04 ;SPINDLE ON CCW
AOUT103,0 ;CW SPINDLE OFF
AOUT104,1 ;SPINDLE ON CW
M99

O%M05 ;SPINDLE ON CCW
AOUT103,0 ;CW SPINDLE OFF
AOUT104,0 ;CCW SPINDLE OFF
M99

O%M21 ;COLLET OPEN
AOUT109,1 ; TOGGLE LINE HIGH
G04 P1.0 ; PAUSE FOR 1 SEC TO ALLOW COLLET TO OPEN
AOUT109,0 ;TOGGLE LINE LOW
M99

O%M22 ;COLLET CLOSE
AOUT109,1 ; TOGGLE LINE HIGH
G04 P1.0 ; PAUSE FOR 1 SEC TO ALLOW COLLET TO CLOSE
AOUT109,0 ;TOGGLE LINE LOW
M99


O%M06
; THIS RT WILL INDEX A TURRET SYSTEM X TIMES, GIVEN THE
CURRENT
; AND PREV TOOL NUMBERS.
; TO CHANGE THE NUMBER OF TOOL STATIONS CHANGE THE
%MXNTL=8.0
; ASSIGNMENT BELOW. CHANGE 8.0 TO THE DESIRED NUMBER. BE
SURE TO
; INCLUDE THE DECIMAL POINT.
;
; Aux out 108 - Controls turret up/down solenoid and the
turret index motor CCW
; Aux out 107 - Controls turret up/down solenoid and the
turret index motor CW
; WTAIN 209 - Turret station sensor

#3720=0 ;DONT INCREMENT COND TEST CTR

%TP1=#3700 ;GET THE RESTART MODE FROM SYSTEM VAR 3700
;
;IF RESTART MODE IS ACTIVE (<>0) SKIP PREVIOUS TOOL N0.
ASSMT
IF (%TP1 NE 0) GOTO %TCH600


#3701=0 ;CLEAR THE MASTER RESTART FLAG

%TP1=#3802 ; GET THE PREV TOOL NO.
%TP2=T ; GET THE CURRENT TOOL NO.
%MXNTL=8.0 ; SET THE MAX NO. OF TOOLS/STATIONS


%HNTLS=%MXNTL/2.0 ; COMPUTE 1/2 NO. OF TOOLS

;
; DETERMINE THE TOOL DELTA
%TP3=%TP2-%TP1
%TP4=%TP3
%CTR1=0
IF (%TP3 GE 0) GOTO %TCH200
%TP4=%TP3+%MXNTL

%TCH200:
IF (%TP4 EQ 0) GOTO %TCH500
IF (%TP4 GT %HNTLS) GOTO %TCH300

%TCH250:
;STROBE THE TOOL CHANGE CCW

AOUT 109,1 ; Raise the turret and turn on
turret rotation motor CCW
WTAIN 209,1 ; Wait for turret station sensor
AOUT 109,0 ; Lower the turret and turn off the
turret rotation motor

%CTR1=%CTR1+1.0
IF (%CTR1 LT %TP4) GOTO %TCH250

GOTO %TCH500

%TCH300:

;STROBE TOOL CHANGE CW

%TP4=%MXNTL-%TP4
%TCH350:

AOUT 110,1 ; Raise the turret and turn on
turret rotation motor CW
WTAIN 209,1 ; Wait for turret station sensor
AOUT 110,0 ; Lower the turret and turn off the
turret rotation motor

%CTR1=%CTR1+1.0 ; increment counter
IF (%CTR1 LT %TP4) GOTO %TCH350 ; check to see number
of indexes completed

%TCH500:
#3701=1.0 ;RESTORE THE MASTER RESTART FLAG

;ASSIGN TOOL N0. TO PREV. TOOL N0. VAR

#3802=%TP2

%TCH600:
#3720=1.0 ;INCREMENT COND TEST CTR
M99 ;return to main program


;>>>>>>>>>>>>>>>>>>> Spindle Speed Control Macro

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

O%S
; Spindle speed control in RPM.
;
%MXSPD=2500.0 ; maximum spindle speed
%MNSPD=0 ; minimum spindle speed

%TP1=S ; assign RPM to var %TP1
%TP2=ABS(%TP1)

IF (%TP2 LT %MXSPD) GOTO %SSC200
%TP2=%MXSPD

%SSC200:

IF (%TP2 GE %MNSPD) GOTO %SSC220
%TP2=%MNSPD

%SSC220:
;
; calculate the percent based on the desired value and the
RPM range
%TP3=(%TP2-%MNSPD) / (%MXSPD-%MNSPD)
%TP3=%TP3 MLT 110.0 ;was 100.0, 110=310rpm when 300
comanded,

;
; if RPM is neg set sign
IF (%TP1 GE 0) GOTO %SSC300
%TP3=-%TP3

%SSC300:
;
; output result to DAC A, device id 701
AOUT 701,%TP3

M99

Bill Griffin
www.grifftek.com/links.htm