modifier un assistant , possible ?

Salut,

Je tombe par hasard sur ton post que je n'avais pas vu.

Oui, les assistants peuvent se modifier de la même manière que Mach3 lui-même ; il faut utiliser MachScreen pour accéder aux écrans et au code de programmation. Dans ce cas, tous le code de programmation est "accroché" au bouton "Post GCode" ... il faut donc que tu t'y connaisse suffisamment en programmation Visual Basic pour le modifier.

Ils sont dans C:\Mach3\Addons ; le fichier à ouvrir sous MachScreen est un fichier .set

voici le code de programmation complet de l'assistant "Surfacing with tool down in X"

Code:

Sub Main()
DoOEMButton (169)
FeedRough = Abs(GetOEMDRO(1070))
FeedFinish = Abs(GetOEMDRO(1083))
ToolDia = Abs(GetOEMDRO(1071))
ToolRad = ToolDia / 2
StepOverPercent = Abs(GetOEMDRO(1096))
 
XPOS = GetOEMDRO(1072)
YPOS = GetOEMDRO(1073)
ZStart = GetOEMDRO(1084)

Tool_Offset_X = Abs(GetOEMDRO(1078))
Tool_Offset_Y = Abs(GetOEMDRO(1082))
SafeZ = Abs(GetOEMDRO(1079))

Length = Abs(GetOEMDRO(1080))
Width = Abs(GetOEMDRO(1081))
Depth = Abs(GetOEMDRO(1075))

StepDepth = Abs(GetOEMDRO(1076))
Clearance = StepDepth * 1.5
FinalCutDepth = Abs(GetOEMDRO(1095))
 ' test inputs

If FinalCutDepth = 0 Then
    Code "(MSG,Final Cut Depth can't be zero)"
End If

If StepOverPercent = 0 Then
    Code "(MSG,Tool Step Over Percentage can't be zero)"
End If

If StepOverPercent > 100 Then
    Code "(MSG,Tool Step Over Percentage can't be > 100%)"
End If

If FinalCutDepth = StepDepth Then
    Code "(MSG,Final Cut Depth can't be equal to Step Depth)"
End If

If FeedRough = 0 Then
    Code "(MSG,Feed Rate can't be zero)"
End If

If StepDepth > Depth Then
    StepDepth = Abs(Depth)
End If

If StepDepth = 0 Then
    Code "(MSG,Step down can't be zero)"
End If

If Length = 0 Then
    Code "(MSG,Length can't be zero)"
End If

If Depth = 0 Then
    Code "(MSG,Depth can't be zero)"
End If

If Width = 0 Then
    Code "(MSG,Width can't be zero)"
End If

If SafeZ <= ZStart Then
    Code "(MSG,********  SafeZ <= ZStart  *******)"
End If

If ToolDia = 0 Then
    Code "(MSG,Tool Diameter can't be zero)"
End If
  
OpenTeachFile "FaceStockX.tap"

XStart = XPOS - Tool_Offset_X + ToolRad
YStart = YPOS - Tool_Offset_Y + ToolRad
XFinal = XPOS + Length + Tool_Offset_X - ToolRad
YFinal = YPOS + Width + Tool_Offset_Y - ToolRad

If Width < ToolDia Then
    YStart = YPOS + ToolRad
    YFinal = YStart
End If

XToolDown = XStart - Tool_Offset_X - ToolDia
YToolDown = YStart

Depth = Depth
StepDepth = StepDepth
StepOverPercent = StepOverPercent / 100

PassNumber = 1
Code "F" & FeedRough

DepthofPass = ZStart - PassNumber * StepDepth
If DepthofPass > ZStart - Depth + FinalCutDepth Then
    Do
        DepthofPass = ZStart - PassNumber * StepDepth
        If DepthofPass <= (ZStart - Depth + FinalCutDepth) Or PassNumber > 2000 Then
            Exit Do
        End If
        
        Code "G00 Z" & SafeZ
        Code "G00 X" & XToolDown & " Y" & YToolDown
        Code "G00 Z" & DepthofPass
        
        PassType = 1
        YpassNo = 0
        Do
            YofPass = YStart + (ToolDia * StepOverPercent * YpassNo)
            If (YofPass >= YFinal) Then
                Exit Do
            End If
            Code "F" & FeedRough
            Code "G01 Y" & YofPass
            Code "G01 X" & XFinal
            
            PassType = PassType * -1
            YpassNo = YpassNo + 1
            
            YofPass = YStart + (ToolDia * StepOverPercent * YpassNo)
            If (YofPass >= YFinal) Then
                Exit Do
            End If
            Code "G01 Y" & YofPass
            Code "G01 X" & XStart
            
            PassType = PassType * -1
            YpassNo = YpassNo + 1
        Loop
        YofPass = YFinal
        Code "G01 Y" & YofPass
        If (PassType = 1) Then
            Code "G01 X" & XFinal
        Else
            Code "G01 X" & XStart
        End If
        PassNumber = PassNumber + 1
    Loop
End If

If FinalCutDepth <> 0 Then
    PassType = 1
    DepthofPass = ZStart - Depth + FinalCutDepth
    
    Code "G00 Z" & SafeZ
    Code "G00 X" & XToolDown & " Y" & YToolDown
    Code "G00 Z" & DepthofPass
    
    YpassNo = 0
    Do
        YofPass = YStart + (ToolDia * StepOverPercent * YpassNo)
        If (YofPass >= YFinal) Then
            Exit Do
        End If
        Code "G01 Y" & YofPass
        Code "G01 X" & XFinal
        
        PassType = PassType * -1
        YpassNo = YpassNo + 1
        
        YofPass = YStart + (ToolDia * StepOverPercent * YpassNo)
        If (YofPass >= YFinal) Then
            Exit Do
        End If
        Code "G01 Y" & YofPass
        Code "G01 X" & XStart
        
        PassType = PassType * -1
        YpassNo = YpassNo + 1
    Loop
    YofPass = YFinal
    Code "G01 Y" & YofPass
    If (PassType = 1) Then
        Code "G01 X" & XFinal
    Else
        Code "G01 X" & XStart
    End If
End If

PassType = 1
DepthofPass = ZStart - Depth

Code "G00 Z" & SafeZ
Code "G00 X" & XToolDown & " Y" & YToolDown
Code "G00 Z" & DepthofPass

YpassNo = 0
Do
    YofPass = YStart + (ToolDia * StepOverPercent * YpassNo)
    If (YofPass >= YFinal) Then
        Exit Do
    End If
    Code "F" & FeedRough
    Code "G01 Y" & YofPass
    Code "G01 X" & XFinal
    
    PassType = PassType * -1
    YpassNo = YpassNo + 1
    
    YofPass = YStart + (ToolDia * StepOverPercent * YpassNo)
    If (YofPass >= YFinal) Then
        Exit Do
    End If
    Code "G01 Y" & YofPass
    Code "G01 X" & XStart
    
    PassType = PassType * -1
    YpassNo = YpassNo + 1
Loop
YofPass = YFinal
Code "G01 Y" & YofPass
If (PassType = 1) Then
    Code "G01 X" & XFinal
Else
    Code "G01 X" & XStart
End If

Code "G00 Z" & SafeZ
Code "G00 X" & XToolDown & " Y" & YToolDown

Code "M30"
CloseTeachFile

Call LoadTeachFile
End Sub



++
David