[lovocuerbo]

Buenas soy nuevo en esto tengo un problemas tengo mi cnc la compre como hace diez años pero apenas le eche andar pero en días pasados me paro uno de los ejes y empezó a vibrar cambie los ejes en los conectores y el motor funciono bien y el otro eje que funcionaba bien empezó a vibrar lo pague los volví a conectar como es y volvió a vibrar e eje me metí a en el mach 3 para configurar en moto tunig lo acelere y se quito la vibración pero el checar la configuración me marca más distancia lo ajuste peor me volvió a meter la vibración por que le quita velocidad he buscado información pero no encuentro alguna solución no se si alguien aquí haya experimentado algo parecido que me pueda ayudar a configurar o corregir ese problema
Datos del motor de paso
Motores a pasos: 1. Step angle: 1.8 degree 2. Number of Phase: 2 3. Hold torque: 4.4 kg.cm 4. Rated current/Phase: 1.68 amps. 5. Phase resistance: 1.65 ohms 6. Voltage/Phase: 2.77 VDC

[valvulin]

Normalmente el eje X e Y van configurados iguales, el que puede diferir es el Z, en el Mach tenés una función para calibrar la distancia, sino te paso la macro que hice para un Botón

Sub Main()
Begin Dialog GroupSample 31,32,120,96,"Selección Eje"
OKButton 38,75,40,14
GroupBox 12,8,96,62,"Sel. Eje a Calibrar",.GroupBox1
OptionGroup .OptionGroup1
OptionButton 20,24,40,8,"Eje X",.OptionButton1
OptionButton 20,40,40,8,"Eje Y",.OptionButton2
OptionButton 20,56,40,8,"Eje Z",.OptionButton3
OptionButton 67,24,40,8,"Eje A",.OptionButton4
OptionButton 67,40,40,8,"Eje B",.OptionButton5
OptionButton 67,56,40,8,"Eje C",.OptionButton6
End Dialog

Dim Dlg1 As GroupSample
Button = Dialog (Dlg1)
If Button = 0 Then
Exit Sub
End If
AxisNum = Dlg1.OptionGroup1

Select Case AxisNum
Case 0 'HSS
Axis = "StepsPerAxisX"
Axis_Letter = "X"
Case 1 'HSStin
Axis = "StepsPerAxisY"
Axis_Letter =" Y"
Case 2 'Carbide
Axis = "StepsPerAxisZ"
Axis_Letter = "Z"
Case 3 'Carbide
Axis = "StepsPerAxisA"
Axis_Letter = "A"
Case 4 'Carbide
Axis = "StepsPerAxisB"
Axis_Letter = "B"
Case 5 'Carbide
Axis = "StepsPerAxisC"
Axis_Letter = "C"
End Select

Com_Move = Question ("Cuánto desea mover el Eje " & Axis_Letter & " ?")

If COM_Move = 0 Then
MsgBox "No puedo Mover de Zero, Cálculo Eje abortado."
Exit Sub
End If
Code "G0 G91 " & Axis_Letter & Com_Move
While Ismoving()
Wend
Code "G4 P0.5"
Act_Move = Question("Cuánto movió el Eje " & Axis_Letter & " ? (Valor Medido)")
If Act_Move = 0 Then
MsgBox "No puedo Mover de Zero, Cálculo Eje abortado."
Exit Sub
End If


Old_PPR = GetParam(Axis)

New_PPR = Abs((Com_Move/Act_Move) * Old_PPR)
Response = MsgBox ( "Eje " & Axis_Letter & " fue Seteado a " & New_PPR & " Steps x Uni. Acepta el valor ?", 4 , "Set Steps x Uni.")
If Response = 6 Then ' User chose Yes.
Call SetParam(Axis, New_PPR)
MsgBox ("Eje " & Axis_Letter & " fue Seteado")
Else ' User chose No.
MsgBox ("Eje " & Axis_Letter & " NO fue Seteado")
End If

End Sub
Main

Esta Macro te permitirá ajustar la distancia pedida, de la medida y se ajustará automaticamente en el "Motor Tunning"

Contame que drivers tenés o subi una foto, como lo tenes seteados, cuantos micropasos, todo esto puede hacer que vibren.

Saludos Fernando