cnc-club.ru

Код: Выделить всё

%
G90
G21
#1=50 (width of box)
#2=2 (tool radius)
#3=4 (height of box)
#4=5 (resolution in degrees)
#5=#4 (counter)
#6=[[#1/2]+#2] (actual radius of circle - cutter radius + radius)
G01 X0 Y0
o140 do
#8 = [[SIN[#5]*#6]*SIN[45]] ( X and Y position)
#9 = [0-[[1-COS[#5]]*#6]] (Z position)
G1 X[#8] Y[#8]
Z[#9]
G18 G02 X[0-#8] Z[#9] I[0-#8] K[0-[#9+[#6]]]
G19 G03 Y[0-#8] Z[#9] J[0-#8] K[0-[#9+[#6]]]
G18 G03 X[#8] Z[#9] I[#8] K[0-[#9+[#6]]]
G19 G02 Y[#8] Z[#9] J[#8] K[0-[#9+[#6]]]
#5 = [#5+#4]
o140 while [#8 LT [#1/2-#2-#3]]
G1 Z1
X0 Y0
%

Код: Выделить всё

'General
Sub OnAppStart()
  'MsgBox "OnAppStart"
  'set command = Cmd.create()
  'command.flood = true
  'command.mist = true
  'CmdBuffer.add(command)
End Sub

Sub OnOpen()
  'MsgBox "OnOpen: Units=" & State.Units & " X=" & State.X & " Y=" & State.Y & " Z=" & State.Z
End Sub

'Machine
Sub OnMachineStart()
  'MsgBox "OnMachineStart"

  'turn spindle on
  'Set command = Cmd.Create()
  'command.SpindleCW = true
  'CmdBuffer.Add(command)
  
  'wait 1 second
  'Set command = command.Create()
  'command.Dwell = 1
  'CmdBuffer.Add(command)

  'turn flood and mist on 
  'Set command = command.Create()
  'command.Flood = true
  'command.Mist = true
  'CmdBuffer.Add(command)
End Sub

Sub OnMachineStartLoop(LoopCount)
  'MsgBox "OnMachineStartLoop: " & LoopCount
  'move to X0 Y0 Z20 at start of every loop
  'Set command = Cmd.Create()
  'command.UseFeedRate()
  'command.X = 0
  'command.Y = 0
  'command.Z = 20
  'CmdBuffer.Add(command)
End Sub

Sub OnMachineEnd()
  'MsgBox "OnMachineEnd"
  'move Z to 100 at end
  'Set command = Cmd.Create()
  'command.UseTraverseRate()
  'command.Z = 100
  'CmdBuffer.Add(command)
End Sub

Sub OnMachineStop(EStop, UserStop) 'CmdBuffer is not valid in this event
  'MsgBox "OnMachineStop: EStop=" & EStop & " UserStop=" & UserStop
  If (not EStop And not UserStop) Then
    'If program stoped without user intervention start it again. 
    'This makes endless loop until user stops program manualy
    'Cmd.Start
  End If
End Sub

'G-Code
Function OnCommand(LineNo, Line, CommandType, AxisDir)
  'MsgBox "OnCommand LineNo: " & LineNo & " Line: '" & Line & "' CmdType: " & CommandType & " AxisDir: " & AxisDir

  If (CommandType = 1) Then 'Mist - also turn flood on/off
    'Set commandBefore = Cmd.Create()
    'commandBefore.Flood = CmdNext.Mist
    'CmdBufferBefore.Add(commandBefore) 
    'OnCommand = False 'leave original mist command to execute  
  End If 
  
  If (CommandType = 2) Then 'Flood - replace with mist
    'Set commandBefore = Cmd.Create()
    'commandBefore.Mist = CmdNext.Flood
    'CmdBufferBefore.Add(commandBefore) 
    'OnCommand = True 'remove original flood command from execute  
  End If 
   
  If (CommandType = 3) Then 'Spindle - turn mist and flood on/off
    'Set commandBefore = Cmd.Create()
    'commandBefore.Flood = CmdNext.SpindleCW Or CmdNext.SpindleCCW
    'commandBefore.Mist = CmdNext.SpindleCW Or CmdNext.SpindleCCW
    'CmdBufferBefore.Add(commandBefore) 
    'OnCommand = False 'leave original Spindle command to execute  
  End If 
  
  If ((CommandType = 4) Or (CommandType = 5)) Then 'MoveFeed or MoveTraverse
	Dim dx, dy, dz
	dx = CmdNext.X - Cmd.X 
	dy = CmdNext.Y - Cmd.Y 
	dz = CmdNext.Z - Cmd.Z 
	'MsgBox "dx: " & dx & " dy: " & dy & " dz: "& dz & " AxisDir: " & AxisDir
	
	'if Z axis is moved we will replace move with spindle  
	If (AxisDir = 32) Then
	  'move up will turn spindle off
	  'Set commandBefore = Cmd.Create()
	  'commandBefore.SpindleCW = False
	  'CmdBufferBefore.Add(commandBefore) 
	  'OnCommand = True 'remove original Z move command from execution 
	ElseIf (AxisDir = 16) Then
	  'move down will turn spindle on
	  'Set commandBefore = Cmd.Create()
	  'commandBefore.SpindleCW = True
	  'CmdBufferBefore.Add(commandBefore) 
	  'OnCommand = True 'remove original Z move command from execution
	Else
	  'OnCommand = False 'leave original move command    
	End If

  End If 
  
  If (CommandType = 8) Then 'ToolChange
    'Set commandBefore = Cmd.Create()
    'CmdBufferBefore.Add(commandBefore) 
    'OnCommand = True 'remove original toolchange command from execution   
  End If

End Function