Window :
- correzione parametri attacco profilature di testa.
This commit is contained in:
@@ -42,24 +42,24 @@ function Profiling.Make( Proc, Part)
|
||||
Machining.LeadIn.nType = MCH_MILL_LI.LINEAR
|
||||
Machining.LeadOut.nType = MCH_MILL_LO.LINEAR
|
||||
Machining.LeadIn.dTangentDistance = 0
|
||||
Machining.LeadIn.dPerpDistance = (TOOLS[ToolInfo.nToolIndex].dTotDiameter / 2) + 30
|
||||
Machining.LeadIn.dPerpDistance = TOOLS[ToolInfo.nToolIndex].dTotDiameter / 2 + 30
|
||||
Machining.LeadOut.dTangentDistance = 0
|
||||
Machining.LeadOut.dPerpDistance = (TOOLS[ToolInfo.nToolIndex].dTotDiameter / 2) + 30
|
||||
Machining.LeadOut.dPerpDistance = TOOLS[ToolInfo.nToolIndex].dTotDiameter / 2 + 30
|
||||
elseif Proc.bHeadProfile then
|
||||
Machining.nWorkside = MCH_MILL_WS.LEFT
|
||||
Machining.bInvert = true
|
||||
Machining.LeadIn.nType = MCH_MILL_LI.TANGENT
|
||||
Machining.LeadOut.nType = MCH_MILL_LO.TANGENT
|
||||
Machining.LeadIn.dTangentDistance = (TOOLS[ToolInfo.nToolIndex].dTotDiameter / 2) + 1
|
||||
Machining.LeadIn.dPerpDistance = -(TOOLS[ToolInfo.nToolIndex].dTotDiameter / 2) + 1
|
||||
Machining.LeadOut.dTangentDistance = (TOOLS[ToolInfo.nToolIndex].dTotDiameter / 2) + 30
|
||||
Machining.LeadIn.dTangentDistance = TOOLS[ToolInfo.nToolIndex].dTotDiameter / 2 + 1
|
||||
Machining.LeadIn.dPerpDistance = - ( TOOLS[ToolInfo.nToolIndex].dTotDiameter / 2 + 1)
|
||||
Machining.LeadOut.dTangentDistance = TOOLS[ToolInfo.nToolIndex].dTotDiameter / 2 + 30
|
||||
Machining.LeadOut.dPerpDistance = 0
|
||||
else
|
||||
Machining.LeadIn.nType = MCH_MILL_LI.TANGENT
|
||||
Machining.LeadOut.nType = MCH_MILL_LO.TANGENT
|
||||
Machining.LeadIn.dTangentDistance = (TOOLS[ToolInfo.nToolIndex].dTotDiameter / 2) + 30
|
||||
Machining.LeadIn.dTangentDistance = TOOLS[ToolInfo.nToolIndex].dTotDiameter / 2 + 30
|
||||
Machining.LeadIn.dPerpDistance = 0
|
||||
Machining.LeadOut.dTangentDistance = (TOOLS[ToolInfo.nToolIndex].dTotDiameter / 2) + 30
|
||||
Machining.LeadOut.dTangentDistance = TOOLS[ToolInfo.nToolIndex].dTotDiameter / 2 + 30
|
||||
Machining.LeadOut.dPerpDistance = 0
|
||||
end
|
||||
Machining.Geometry = Proc.id
|
||||
|
||||
Reference in New Issue
Block a user