Hello Guest it is March 28, 2024, 06:46:12 PM

Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - guiacnc

Pages: 1 2 »
1
VB and the development of wizards / Re: Auto tool zero script problems
« on: October 30, 2017, 07:36:37 AM »
Imitheo,

Feed rate is too high !
(velocidade de avanço está muito alta)

For probing, you will want to use a low feed rate - for example, 200 or 300 mm/min or even lower speed (para este tipo de tarefa seria conveniente usar velocidades de avanço mais baixas - por exemplo 200 ou 300 mm/mim ou até menos)
Dica - quanto menor a velocidade de avanço durante o probing, menos "overshooting" terá

Talvez esteja parando antes por excesso de velocidade

2
VB and the development of wizards / Re: Trouble with ATC Macro
« on: September 25, 2017, 08:10:27 AM »
Wow - 80 visualizations and no one can help me or suggest something!

No problem - I'll find some solution.

Bert regards

Fabio

3
VB and the development of wizards / Trouble with ATC Macro
« on: September 19, 2017, 10:10:26 AM »
Hello, - (Sorry for my poor English)

I'm Fabio, and i'm trying to do a change tool macro for an all pneumatic ATC and i'm stuck in a "for ... next" repetition.

This ATC rotate in one direction only, and it's working quite well (based on a simple routine for origin search - the routine below):

Code: [Select]
'output#4 - avança magazine 'magazine forward
'output#3 - giro magazine 'rotate magazine
'output#1 - trava magazine 'magazine lock

Do While Not GetOEMLED (821)
activatesignal (Output1)
sleep 200
activatesignal (output3)
sleep 200
deactivatesignal (output1)
sleep 1500
deactivatesignal (output3)
Sleep 1000

Loop

End     

I'm trying to count how many stations (or steps) magazine must rotate based on "GetSelectedTool()" , "GetCurrentTool()", and "NTools" (number of slots in magazine), and I created a routine to repeat the counting to position the tool, but it only work just one time - the magazine just run one station and the macro finnish... I.E, If I'm in Tool #1 and ask for Tool #3, it only turn one step...

What I'm doing wrong? (below it's macro, based in one example found in this forum): Can someone help me?

Code: [Select]
Sub Main()
'Global variables declaration

Dim CCWPos As Integer
Dim CWPos As Integer


NewTool = GetSelectedTool()
OldTool = GetCurrentTool()
'OldTool = GetOEMDRO(1200)

While NewTool > 5
NewTool = Question ("Enter New Tool Number up to " & MaxToolNum)
Wend

If NewTool = OldTool Then'Compare between actual tool and requested tool
Else
End If
If NewTool > 5 Then'requested tool higher then tool numbers
Else
End If
If NewTool < 1 Then'tool number to low
Else
End If

code("m05")
Call AtcIn'Activate air cylinder valve to put old tool back to carrousel
Call ZatcPosition
Call Unclamp'Spindle: Tool Unclamp
Call ZatcUp'raises atc
Call Travel'determine the least travel to move and Turns CW or CCW
Call Unclamp'Spindle: Tool Unclamp
Call ZatcDown'lowers atc
Call Clamp'Spindle: Tool Clamp
Call ZAtcUp'raises atc
Call AtcOut'retracts atc
Call SetUserDRO (1200,NewTool)'Store new tool as actual tool value
SetCurrentTool( NewTool )

End Sub

Function ZatcPosition()'Move to Z tool position and wait until position reached
code("G53")'Move in Absolute Machine coordinates
code("G00 Z-35") 'Z value as to be checked for exact match with carrousel height
While(IsMoving())
Sleep(100)'temporisation entre while++
Wend
End Function

Function AtcIn()'Put old tool back to carrousel
ActivateSignal(OUTPUT4)'Move carrousel air cylinder to the tool change position adjust output# to match atc slide
code("g04 p3")
End Function

Function Unclamp()'Spindle: Tool Unclamp
ActivateSignal(OUTPUT5)'Release the tool, adjust output number for drawbar output
code("g04 p01")'pause
End Function

Function ZatcDown()'lowers atc to rotate
ActivateSignal(OUTPUT5)'solonoid to lower atc
code("G04 p01")'pause
End Function

'Determine the travel to move
Function Travel()
NewTool = GetSelectedTool()
OldTool = GetCurrentTool()
NTools = 5 ' Number of tools changer holds
CWPos = NTools - GetSelectedTool()
Call CCW()
End Function

Function CCW()
Dim y As Integer
Dim CTPos As Integer 'Carrousel Tool Position Relative to OldTool Position
CTPos = 0
For y = 0 To CCWPos
Call Roda()
'y=y
Next y

CTPos=y
End Function

Function Roda()
activatesignal (Output1)
sleep 200
activatesignal (output3)
sleep 200
deactivatesignal (output1)
sleep 1500
deactivatesignal (output3)
Sleep 300
End Function

Function ZAtcUp()'lifts atc
code("G53")'Move in Absolute Machine coordinates
code("G00 Z0") 'Z value as to be checked for exact match with carrousel height
While(IsMoving())
Sleep(100)'temporisation entre while++
Wend

End Function

Function Clamp()'power drawbar unactivated
DeactivateSignal(OUTPUT5)'unactivating drawbar relay
End Function

Function AtcOut()'retracts atc
deActivateSignal(OUTPUT4)'atc retract cylinder relay
code("g04 p01")
End Function

Best regards,

Fabio

4
Finished Screens / Re: CNC Cut to length Saw Screen and Wizards......
« on: July 20, 2012, 09:39:38 AM »
Hello Guys,

Maybe someone can help me (give me discount for my poor English)

I'm trying to do a kind of control similar to Scott's idea - it's a Cut to Length saw and i'm stuck on a routine.

The main screen has 10 pairs of fields for orders entry - one is lenght to cut, other is quantity

First I need to make the machine execute (for example) 3 cuts of 100mm each (first pair of input fields), and them proceed to the next order entry, but I don't know how to make system wait for the blade finnish a cut, advance another increment (of the same batch) restart to cut till the end of that Batch, and then jumps to a new order and so one.

I tryed to do the code below, and will apreciate if someone can point me some ideas.

I inagine to put a sensor at the end of the cut, when the Disc goes below table signaling Mach3 that cut reached end and at this moment a pressure clamp releases wood plate, X advances to next lenght of cut at same time blade returns to start position and process beguins with new lenght increment.


First part it's a kind of control like if blade thick is = 0 shows an error message...

Second part I used M3 for start motor blade (and for example activate signal 1 for pneumatic pressure clamp) - M5 to stop blade.

Tanks,
Fabio

Code: [Select]

'*********************************
'calcula e executa cortes

Sub Main ()

Esp_serra=GetUserDRO (1300)
  If Esp_serra=0 Then
  Message ("Largura da Serra não pode ser 0")
  Exit Sub
End If

Avanco=GetUserDRO (1301)
  If Avanco=0 Then
  Message ("Velocidade de Avanço não pode ser 0")
  Exit Sub
End If

Tam_chapa=GetUserDRO (1000)
  If Tam_chapa=0 Then
  Message ("Tamanho da Chapa não pode ser 0")
  Exit Sub
End If

'************************************

Comp_corte=GetUserDRO (1001)
Vezes=GetUserDRO (1101)
Dist=GetDRO (0)
Andar=(Dist-(Comp_corte+Esp_serra))

If vezes>0 Then
  Code "M3"
  Code "G90"
  Code "G01 F" & Avanco & "X" & Andar
  Code "M5"
  vezes=(vezes-1)
  SetUserDRO (1101,vezes)
  End If
End Sub


5
VB and the development of wizards / Re: CNC CamGrinder (;-)
« on: July 19, 2012, 01:08:17 PM »
Sorry my poor English.

Here is a mechanical one made by a germal guy - I think it's not very difficult to create a cnc solution for.

http://www.metallmodellbau.de/Nockenwellenschleifmaschine.php

6
General Mach Discussion / Re: Floating head dives in to material
« on: June 09, 2010, 12:34:36 PM »
Mrpeja,

I had the same idea - to eliminate the "leadout" part...

Today we are using Lazycam - Will use Sheetcam too!

Thanks and best regards.

7
General Mach Discussion / Re: Floating head dives in to material
« on: June 09, 2010, 10:48:26 AM »
Sorry for the "bump"

Found another thread where seems a colleague solved the problem using a "brain" solution.

http://www.machsupport.com/forum/index.php/topic,8202.msg56660.html#msg56660

8
General Mach Discussion / Re: Floating head dives in to material
« on: June 09, 2010, 10:33:17 AM »
Hello,

Sorry if this message resurrects this old post, but I have the same problem using Sound Logic's THC300D and Hypertherm Powermax 1250 being controlled by Mach3 (plasma mode)

Tried to leave anti dive on and off and the same occurs - torch insist to dive and touch material at the end of cut.

I hope someone can give me a clue.

Thanks

Fabio Gilii

9
Simpson36,

I don't know if I understood correctly, but maybe if you use some kind of sensor at the brake lever system cappable to stop the program execution using "feedhold"...

Maybe using two microswithes connected in a way that the cnc is in feedhold when the lever is in transit - the command is free only at the end of each move - braking or not.

10
General Mach Discussion / Re: Continually incorrect thread pitch
« on: October 01, 2009, 07:24:30 PM »
Kdoney,

If the lathe is set (geared) to 70 rpm, but it runs at 86, maybe you are running a 50Hz lathe motor at a 60 Hz frequency ...

Pages: 1 2 »