Marco helps Please

[Tinhman]

Good morning all

Control Fusion 640M

We just want to make sure that we dont have any tool in side the magazine(120 tools) is shorter 3" or longer 25".

 

Code

---------------------------------

O9996

(CHECK TOOL LENGHT LIMIT MARCO)

#1=1

WHILE[#1LT120]DO1

IF[#[60000+#1]LT3.]GOTO1

IF[#[60000+#1]GT25.]GOTO1

#1=#1+1

END1

GOTO2

N1#3000=1(CHECK-TOOL-LENGHT)

N2M30

---------------------------------

But this marco did not work and i dont know why.

Please help.

Thanks and have a good day

[3R!< W3NG3R]

what error does it give you?

 

Does your controller have macros enabled?

[Zoober]

Eric, he's trying to write a marco....

Firstly, I would close the IF statements like so...

 

IF[#[60000+#1]LT3.]GOTO1 <------ yours

IF[#[60000+#1]]LT3.GOTO1 <------what I would do

[Tony35]

O9996

(CHECK TOOL LENGTH LIMIT MARCO)

#1=1 (TOOL NUMBER)

WHILE[#1LE120]DO1

IF[[#60000+#1]LT3.]GOTO1

IF[[#60000+#1]GT25.]GOTO1

#1=#1+1 (TOOL NUMBER COUNTER)

END1

#1=#0 (CLEAR VARIABLE 1)

GOTO2

N1#3000=1(CHECK-TOOL-LENGTH)

N2M30

 

this is what i would start with

 

HTH

[3R!< W3NG3R]

quote:

---

Eric, he's trying to write a marco.... [bonk]

---

I know, but my machine wouldn't do macros until we got it enabled, thats why I asked.

 

I didn't notice the bracket issue.

[Zoober]

J/K Eric.... mARco....

[3R!< W3NG3R]

LOL, I didn't even notice that. Sometimes I am convinced I am dyslexic or something.

 

POLO.

[Tinhman]

Thanks for the input. I am going to try it after lunch.

By the way, i use this macro to check my tool on the spindle and it work very well.

Code

------------------------------

O00009997(MACRO TOOL LENGHT CHECK)

N1 IF[#[60000+#51999]GT3.]GOTO99

N10 #3000=21(CHECK TOOL LENGHT)

N99M99

-------------------------------

[Tinhman]

Tony35

I tried yours and i got alarm.

 

-------------------------------------------

846 DESIGNATED NUMBER NOT FOUND (1235,0,5)

-------------------------------------------

any other idea???, PLEASE

Thanks

[Tony35]

O9996

(CHECK TOOL LENGTH LIMIT MARCO)

#1=1 (TOOL NUMBER)

#2=60000 (SET TOOL OFFSET)

WHILE[#1LE120]DO1

#3=#2+#1 (TOOL OFFSET ADD)

IF[#3 LT3.]GOTO1

IF[#3 GT25.]GOTO1

#1=#1+1 (TOOL NUMBER COUNTER)

END1

#1=#0 (CLEAR VARIABLE 1)

GOTO2

N1#3000=1(CHECK-TOOL-LENGTH)

N2M30

 

try that

[Tinhman]

Thanks Tony35

well, i need to modified it a little bit to make it work.

Here is the two macro that work for me

Macro 1

------------------------------------

O00001235

(CHECK TOOL LENGHT LIMIT MARCO)

#1=1

WHILE[#1LE120]DO1

IF[#[60000+#1]LT3.]GOTO100

IF[#[60000+#1]GT25.]GOTO100

#1=#1+1

END1

#1=#0

GOTO2

N100#3000=21(CHECK*TOOL*LENGHT)

N2M30

---------------------------------

 

Macro 2

---------------------------------

O00001236

(CHECK TOOL LENGTH LIMIT MARCO)

#1=1 (TOOL NUMBER)

#2=60000 (SET TOOL NUMBER)

WHILE[#1LE120]DO1

#3=#2+#1 (TOOL OFFSET ADD)

#4=#[#3]

IF[#4 LT3.]GOTO1

IF[#4 GT25.]GOTO1

#1=#1+1 (TOOL NUMBER COUNTER)

END1

#1=#0 (CLEAR VARIABLE 1)

GOTO2

N1#3000=21(CHECK*TOOL*LENGTH)

N2M30

-----------------------------------

 

But, i do need alittle more out of it. Is there any way i can point it out the pocket number of the tool?(tools that have the lenght shorter 3" or longer 25")

[Tony35]

glad you got it to work,with macros whatever it takes to make them work

 

not 100% sure where you are going with this?

but i will take a stab at it

 

is the machine tool magazine random or fixed pot?

 

well you would have to be able to check the pot number if random TC magazine, not sure if there is a variable for that off the top of my head

 

if its fixed, the pot number will be the tool number so you could check it against that

 

plus i would clear all the variables in your macro above (if i have a lot of them to clear i will make a while statement) but you only have 4 so no big deal

 

O00001236

(CHECK TOOL LENGTH LIMIT MARCO)

#1=1 (TOOL NUMBER)

#2=60000 (SET TOOL NUMBER)

WHILE[#1LE120]DO1

#3=#2+#1 (TOOL OFFSET ADD)

#4=#[#3]

IF[#4 LT3.]GOTO1

IF[#4 GT25.]GOTO1

#1=#1+1 (TOOL NUMBER COUNTER)

END1

#1=#0 (CLEAR VARIABLES)

#2=#0

#3=#0

#4=#0

GOTO2

N1#3000=21(CHECK*TOOL*LENGTH)

N2M30

[Mike-T]

Tony,Could you show an example of clearing your varibles with a while ?

[Tony35]

mike t

i would be glad to show you, but im not at work and wont be back till monday and i will post it then for ya

 

im going huntin

[Tim Johnson]

You shouldn't have to clear the local variables (#1 thru #33) in the program. They will clear themselves when you leave the specific program in which they were brought in/created.

[Tony35]

tim

yes you are correct but you can set parameters to hold them if you want i just always clear them to be sure

 

mike t

here it is for ya (use at your own risk) just had to remember how i had it

 

#33=1

WHILE[#33LE149]DO1

#[#33]=#0

#33=#33+1

END1

[Mike-T]

Thanks Tony, I'm just getting started using macros and have lots to learn.

Good luck and shoot straight !!