Nicola Pievani
65dee8bf4c
-> aggiornamento automatico della lista "PartList"; -> verifica funzionamento ultima versione.
1746 lines
80 KiB
VB.net
1746 lines
80 KiB
VB.net
Imports EgtUILib
|
|
Imports System.Collections.ObjectModel
|
|
|
|
Friend Module CamAuto
|
|
|
|
Private m_sCamAutoDir As String = String.Empty
|
|
Friend Sub SetCamAutoDir(sCamAutoDir As String)
|
|
m_sCamAutoDir = sCamAutoDir
|
|
End Sub
|
|
|
|
Private m_RawPartList As New List(Of InfoRawPart)
|
|
|
|
Public Class InfoRawPart
|
|
|
|
Public ptOrig As Point3d
|
|
Public m_IdRaw As Integer
|
|
Public m_Lenght As Double
|
|
Public m_Width As Double
|
|
Public m_Height As Double
|
|
Public m_Color3d As Color3d
|
|
Public m_InfoPartList As New List(Of InfoPart)
|
|
|
|
Sub New(nIdRaw As Integer, Orig As Point3d, dLenght As Double, dWidth As Double, dHeight As Double, cColor3d As Color3d, InfoPartList As List(Of InfoPart))
|
|
m_IdRaw = nIdRaw
|
|
ptOrig = Orig
|
|
m_Lenght = dLenght
|
|
m_Width = dWidth
|
|
m_Height = dHeight
|
|
m_Color3d = cColor3d
|
|
m_InfoPartList = InfoPartList
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
Public Class InfoPart
|
|
|
|
Public ptOrig As Point3d
|
|
Public m_IdPart As Integer
|
|
Public m_DegC As Double
|
|
|
|
Sub New(Orig As Point3d, IdPart As Integer, DegC As Double)
|
|
ptOrig = Orig
|
|
m_IdPart = IdPart
|
|
m_DegC = DegC
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
'Friend Function AddMachinings(nPartId As Integer) As Boolean
|
|
' Dim nWarn As Integer = 0
|
|
' Return AddMachinings(nPartId, nWarn)
|
|
'End Function
|
|
|
|
'Friend Function AddMachinings(nPartId As Integer, ByRef nWarn As Integer) As Boolean
|
|
' Dim bDripOk As Boolean = VerifyVacuumsForDrip(nPartId)
|
|
' If Not bDripOk Then nWarn = 1
|
|
' EgtLuaCreateGlobTable("CAM")
|
|
' SetLuaStandardCamParams(bDripOk)
|
|
' EgtLuaSetGlobIntVar("CAM.PARTID", nPartId)
|
|
' Dim nErr As Integer = 999
|
|
' Dim bOk As Boolean = EgtLuaExecFile(m_sCamAutoDir & "\CamAuto.lua")
|
|
' bOk = bOk AndAlso EgtLuaGetGlobIntVar("CAM.ERR", nErr) AndAlso nErr = 0
|
|
' bOk = bOk AndAlso EgtLuaCallFunction("CAM.Add")
|
|
' EgtLuaGetGlobIntVar("CAM.ERR", nErr)
|
|
' EgtLuaResetGlobVar("CAM")
|
|
' If nErr <> 0 Then
|
|
' bOk = False
|
|
' EgtOutLog("Error in CamAuto : " & nErr.ToString())
|
|
' End If
|
|
' ResetOrderMachiningFlag()
|
|
' Return bOk
|
|
'End Function
|
|
|
|
'Friend Function AddWaterJetMachining( nOperId As Integer, ByRef nWarn As Integer) As Boolean
|
|
' EgtLuaCreateGlobTable("CAM")
|
|
' SetLuaStandardCamParams()
|
|
' EgtLuaSetGlobIntVar("CAM.OPERID", nOperId)
|
|
' Dim nErr As Integer = 999
|
|
' Dim bOk As Boolean = EgtLuaExecFile(m_sCamAutoDir & "\CamAuto.lua")
|
|
' bOk = bOk AndAlso EgtLuaGetGlobIntVar("CAM.ERR", nErr) AndAlso nErr = 0
|
|
' bOk = bOk AndAlso EgtLuaCallFunction("CAM.AddWaterJet")
|
|
' EgtLuaGetGlobIntVar("CAM.ERR", nErr)
|
|
' EgtLuaResetGlobVar("CAM")
|
|
' If nErr <> 0 Then
|
|
' bOk = False
|
|
' EgtOutLog("Error in CamAuto : " & nErr.ToString())
|
|
' End If
|
|
' Return bOk
|
|
'End Function
|
|
|
|
'Friend Function EraseMachinings(nPartId As Integer) As Boolean
|
|
' EgtLuaCreateGlobTable("CAM")
|
|
' EgtLuaSetGlobIntVar("CAM.PARTID", nPartId)
|
|
' Dim nErr As Integer = 999
|
|
' Dim bOk As Boolean = EgtLuaExecFile(m_sCamAutoDir & "\CamAuto.lua")
|
|
' bOk = bOk AndAlso EgtLuaGetGlobIntVar("CAM.ERR", nErr) AndAlso nErr = 0
|
|
' bOk = bOk AndAlso EgtLuaCallFunction("CAM.Erase")
|
|
' EgtLuaGetGlobIntVar("CAM.ERR", nErr)
|
|
' EgtLuaResetGlobVar("CAM")
|
|
' If nErr <> 0 Then
|
|
' bOk = False
|
|
' EgtOutLog("Error in CamAuto : " & nErr.ToString())
|
|
' End If
|
|
' ResetOrderMachiningFlag()
|
|
' Return bOk
|
|
'End Function
|
|
|
|
'Friend Function ResetAllMachinings() As Boolean
|
|
' Dim nWarn As Integer = 0
|
|
' Return ResetAllMachinings(nWarn)
|
|
'End Function
|
|
|
|
'Friend Function ResetAllMachinings(ByRef nWarn As Integer) As Boolean
|
|
' ' Cancello tutte le lavorazioni
|
|
' EraseMachinings(GDB_ID.NULL)
|
|
' ' Reinserisco tutte le lavorazioni piane (non sono previste le lavorazioni delle cornici)
|
|
' AddMachinings(GDB_ID.NULL, nWarn)
|
|
' Return True
|
|
'End Function
|
|
|
|
Friend Function RemoveFinalEmptyPhases() As Boolean
|
|
Dim nOpeId As Integer = EgtGetLastOperation()
|
|
While nOpeId <> GDB_ID.NULL
|
|
Dim nPrevOpeId As Integer = EgtGetPrevOperation(nOpeId)
|
|
If EgtGetOperationType(nOpeId) = MCH_OY.DISP AndAlso EgtIsOperationEmpty(nOpeId) Then
|
|
EgtRemoveLastPhase()
|
|
Else
|
|
Exit While
|
|
End If
|
|
nOpeId = nPrevOpeId
|
|
End While
|
|
Return True
|
|
End Function
|
|
|
|
Friend Function RemoveLastPhase() As Boolean
|
|
' Non posso eliminare la prima fase
|
|
Dim nLastPhase As Integer = EgtGetPhaseCount()
|
|
If nLastPhase = 1 Then Return False
|
|
' Sposto le lavorazioni in coda a quelle della fase precedente
|
|
Dim nDispId As Integer = EgtGetPhaseDisposition(nLastPhase)
|
|
Dim nMachId As Integer = EgtGetNextOperation(nDispId)
|
|
While nMachId <> GDB_ID.NULL
|
|
EgtChangeOperationPhase(nMachId, nLastPhase - 1)
|
|
nMachId = EgtGetNextOperation(nDispId)
|
|
End While
|
|
' Rimuovo l'ultima fase
|
|
Return EgtRemoveLastPhase()
|
|
End Function
|
|
|
|
'Friend Function UpdateAllMachiningsToolpaths() As Boolean
|
|
' EgtLuaCreateGlobTable("CAM")
|
|
' SetLuaStandardCamParams()
|
|
' Dim nErr As Integer = 999
|
|
' Dim bOk As Boolean = EgtLuaExecFile(m_sCamAutoDir & "\CamAuto.lua")
|
|
' bOk = bOk AndAlso EgtLuaGetGlobIntVar("CAM.ERR", nErr) AndAlso nErr = 0
|
|
' bOk = bOk AndAlso EgtLuaCallFunction("CAM.UpdateAllTp")
|
|
' EgtLuaGetGlobIntVar("CAM.ERR", nErr)
|
|
' EgtLuaResetGlobVar("CAM")
|
|
' If nErr <> 0 Then
|
|
' bOk = False
|
|
' EgtOutLog("Error in CamAuto : " & nErr.ToString())
|
|
' End If
|
|
' Return bOk
|
|
'End Function
|
|
|
|
'Friend Function SortAllMachinings() As Boolean
|
|
' EgtLuaCreateGlobTable("CAM")
|
|
' SetLuaStandardCamParams()
|
|
' Dim nErr As Integer = 999
|
|
' Dim bOk As Boolean = EgtLuaExecFile(m_sCamAutoDir & "\CamAuto.lua")
|
|
' bOk = bOk AndAlso EgtLuaGetGlobIntVar("CAM.ERR", nErr) AndAlso nErr = 0
|
|
' bOk = bOk AndAlso EgtLuaCallFunction("CAM.Sort")
|
|
' EgtLuaGetGlobIntVar("CAM.ERR", nErr)
|
|
' EgtLuaResetGlobVar("CAM")
|
|
' If nErr <> 0 Then
|
|
' bOk = False
|
|
' EgtOutLog("Error in CamAuto : " & nErr.ToString())
|
|
' End If
|
|
' Return bOk
|
|
'End Function
|
|
|
|
'Friend Function SpecialApplyDisposition(nDispId As Integer, bRecalc As Boolean) As Boolean
|
|
' EgtLuaCreateGlobTable("CAM")
|
|
' EgtLuaSetGlobIntVar("CAM.DISPID", nDispId)
|
|
' EgtLuaSetGlobBoolVar("CAM.RECALC", bRecalc)
|
|
' Dim nErr As Integer = 999
|
|
' Dim bOk As Boolean = EgtLuaExecFile(m_sCamAutoDir & "\CamAuto.lua")
|
|
' bOk = bOk AndAlso EgtLuaGetGlobIntVar("CAM.ERR", nErr) AndAlso nErr = 0
|
|
' bOk = bOk AndAlso EgtLuaCallFunction("CAM.SpecApplyDisp")
|
|
' EgtLuaGetGlobIntVar("CAM.ERR", nErr)
|
|
' EgtLuaResetGlobVar("CAM")
|
|
' If nErr <> 0 Then
|
|
' bOk = False
|
|
' EgtOutLog("Error in CamAuto : " & nErr.ToString())
|
|
' End If
|
|
' ResetOrderMachiningFlag()
|
|
' Return bOk
|
|
'End Function
|
|
|
|
'Friend Function VerifyVacuumsForDrip(nPartId As Integer) As Boolean
|
|
' ' Se un pezzo
|
|
' If nPartId <> GDB_ID.NULL Then
|
|
' ' Verifico contenga layer per lavorazioni da sotto con entità
|
|
' If EgtGetGroupObjs(EgtGetFirstNameInGroup(nPartId, NAME_DRIPCUT)) = 0 And
|
|
' EgtGetGroupObjs(EgtGetFirstNameInGroup(nPartId, NAME_UNDERDRILL)) = 0 Then
|
|
' Return True
|
|
' End If
|
|
' ' Se tutti i pezzi
|
|
' Else
|
|
' ' Salvo fase attualmente corrente
|
|
' Dim nOriPhase As Integer = EgtGetCurrPhase()
|
|
' ' Ciclo su tutti i pezzi presenti nei grezzi dell'ultima fase di lavorazione
|
|
' EgtSetCurrPhase(EgtGetPhaseCount())
|
|
' Dim bFound As Boolean = False
|
|
' Dim nRawId As Integer = EgtGetFirstRawPart()
|
|
' While nRawId <> GDB_ID.NULL
|
|
' If EgtVerifyRawPartCurrPhase(nRawId) Then
|
|
' Dim nMyPartId As Integer = EgtGetFirstPartInRawPart(nRawId)
|
|
' While nMyPartId <> GDB_ID.NULL
|
|
' ' se ci sono lavorazioni da sotto
|
|
' If EgtGetGroupObjs(EgtGetFirstNameInGroup(nMyPartId, NAME_DRIPCUT)) > 0 Or
|
|
' EgtGetGroupObjs(EgtGetFirstNameInGroup(nMyPartId, NAME_UNDERDRILL)) > 0 Then
|
|
' bFound = True
|
|
' End If
|
|
' nMyPartId = EgtGetNextPartInRawPart(nPartId)
|
|
' End While
|
|
' End If
|
|
' nRawId = EgtGetNextRawPart(nRawId)
|
|
' End While
|
|
' ' Ripristino fase corrente originale
|
|
' EgtSetCurrPhase(nOriPhase)
|
|
' ' Se non trovate lavorazioni da sotto, esco
|
|
' If Not bFound Then Return True
|
|
' End If
|
|
' ' Verifico che il diametro della lama installata permetta l'utilizzo della ventosa
|
|
' Dim dSawDiam As Double
|
|
' If EgtTdbSetCurrTool(CurrentMachine.sCurrSaw) AndAlso
|
|
' EgtTdbGetCurrToolParam(MCH_TP.DIAM, dSawDiam) Then
|
|
' Return (dSawDiam <= CurrentMachine.dMaxSawDiamForVac)
|
|
' End If
|
|
' Return False
|
|
'End Function
|
|
|
|
Friend Function UpdateVacuumsForDrip() As Boolean
|
|
Dim bOk As Boolean = True
|
|
' Salvo fase attualmente corrente
|
|
Dim nOriPhase As Integer = EgtGetCurrPhase()
|
|
' Carico le ventose
|
|
LoadVacuumCups()
|
|
' Box complessivo dei pezzi con tagli da sotto
|
|
Dim b3Tot As New BBox3d
|
|
' Ciclo su tutti i pezzi presenti nei grezzi dell'ultima fase di lavorazione
|
|
EgtSetCurrPhase(EgtGetPhaseCount())
|
|
Dim nRawId As Integer = EgtGetFirstRawPart()
|
|
While nRawId <> GDB_ID.NULL
|
|
If EgtVerifyRawPartCurrPhase(nRawId) Then
|
|
Dim nPartId As Integer = EgtGetFirstPartInRawPart(nRawId)
|
|
While nPartId <> GDB_ID.NULL
|
|
' reset eventuali vecchie informazioni
|
|
RemoveOneMoveInfo(nPartId)
|
|
' se ci sono lavorazioni da sotto nel pezzo si processa
|
|
If EgtGetGroupObjs(EgtGetFirstNameInGroup(nPartId, NAME_DRIPCUT)) > 0 Or
|
|
EgtGetGroupObjs(EgtGetFirstNameInGroup(nPartId, NAME_UNDERDRILL)) > 0 Then
|
|
Dim rmData As New RawMoveData
|
|
Dim b3Part As New BBox3d
|
|
If PutVacuumCupsOnPart(nPartId, rmData, b3Part) Then
|
|
SaveOneMoveInfo(nPartId, rmData)
|
|
b3Tot.Add(b3Part)
|
|
Else
|
|
bOk = False
|
|
EgtOutLog("Error on UpdateVacuumsForDrip in Part " & nPartId.ToString())
|
|
End If
|
|
End If
|
|
nPartId = EgtGetNextPartInRawPart(nPartId)
|
|
End While
|
|
End If
|
|
nRawId = EgtGetNextRawPart(nRawId)
|
|
End While
|
|
' Scarico le ventose
|
|
RemoveVacuumCups()
|
|
' Salvo box complessivo
|
|
Dim nMGrpId As Integer = EgtGetCurrMachGroup()
|
|
If b3Tot.IsEmpty Then
|
|
Return EgtRemoveInfo(nMGrpId, INFO_DRIPBBOX)
|
|
Else
|
|
Return EgtSetInfo(nMGrpId, INFO_DRIPBBOX, b3Tot)
|
|
End If
|
|
' Ripristino fase corrente originale
|
|
EgtSetCurrPhase(nOriPhase)
|
|
Return bOk
|
|
End Function
|
|
|
|
Private PartListMax As New List(Of Part)
|
|
Private PartListMedium As New List(Of Part)
|
|
Private PartListMin As New List(Of Part)
|
|
|
|
' posizionamento vetnotose TavoloScarico-Tappeto
|
|
Friend Function MyUpdateVacuumsForUnloading() As Boolean
|
|
EgtOutLog("Inizio calcolo ventose")
|
|
Map.refUnloadingAreaVM.ClearOutputMessage()
|
|
Map.refUnloadingAreaVM.SetOutputMessage("Started loading project.")
|
|
Map.refMainWindowVM.MainWindowM.ProjIndList(Map.refMainWindowVM.MainWindowM.ProjIndList.Count - 1).enStatus = StatusProj.LOADING
|
|
' ripulisco gli elenchi
|
|
PartListMax.Clear()
|
|
PartListMedium.Clear()
|
|
PartListMin.Clear()
|
|
' lista dei pezzi manuali del progetto corrente
|
|
Dim PartsListManual As New List(Of Part)
|
|
Dim bOk As Boolean = True
|
|
Dim nIndex As Integer = 1
|
|
|
|
' Salvo fase attualmente corrente
|
|
Dim nOriPhase As Integer = EgtGetCurrPhase()
|
|
' Carico le ventose
|
|
LoadVacuumCups()
|
|
' Ciclo su tutti i pezzi presenti nei grezzi dell'ultima fase di lavorazione
|
|
EgtSetCurrPhase(EgtGetPhaseCount())
|
|
' recupero l'Id del porgetto in lattura
|
|
Dim nProjId As Integer = Map.refMainWindowVM.MainWindowM.nProjInd
|
|
Dim nRawId As Integer = EgtGetFirstRawPart()
|
|
While nRawId <> GDB_ID.NULL
|
|
' ottengo il grezzo (per il calcolo dell'altezza)
|
|
Dim b3RawPart As New BBox3d
|
|
EgtGetRawPartBBox(nRawId, b3RawPart)
|
|
Dim InfoPartList As New List(Of InfoPart)
|
|
If EgtVerifyRawPartCurrPhase(nRawId) Then
|
|
Dim nPartId As Integer = EgtGetFirstPartInRawPart(nRawId)
|
|
While nPartId <> GDB_ID.NULL
|
|
' reset eventuali vecchie informazioni
|
|
RemoveOneMoveInfo(nPartId)
|
|
' creo le variabili per il posizionamento delle ventose sul tavolo 1
|
|
Dim rmData As New RawMoveData
|
|
Dim b3Part As New BBox3d
|
|
' verifico di posizionare le ventose correttamente
|
|
If MyPutVacuumCupsOnPart(nPartId, rmData, b3Part, VACUUM_HEAD) Then
|
|
SaveOneMoveInfo(nPartId, rmData)
|
|
Dim TmpPart As New Part(nPartId, nProjId)
|
|
' recupero le dimensioni del minimo rettangolo -> dal vettore che unisce il centro pezzo con il vertice in alto a sinistra
|
|
TmpPart.MinRectY = rmData.m_vtRect.y * 2
|
|
TmpPart.MinRectX = rmData.m_vtRect.x * 2
|
|
Dim ptCenT As New Point3d
|
|
If EgtGetPartCenter(nPartId, ptCenT) Then
|
|
' defnisco da subiot i pezzi manuali
|
|
Dim nStat As Integer = GDB_ST.ON_
|
|
EgtGetStatus(nPartId, nStat)
|
|
' aggiorno la lista dei pezzi dal più grande al più piccolo
|
|
If nStat = GDB_ST.SEL Then
|
|
TmpPart.enUnloading = Unloading.MANUAL
|
|
TmpPart.nLayer = -2
|
|
End If
|
|
' salvo le posizioni delle ventose
|
|
TmpPart.SetInfoTable1(rmData, b3RawPart.DimZ)
|
|
' salvo il punto ptCent del pezzo rispetto al centro tavola1
|
|
TmpPart.SetCenterPartTable(ptCenT)
|
|
|
|
' ruoto il pezzo e lo posziono in alto a sinistra (per il prelievo del secondo manipolatore)
|
|
EgtRotate(nPartId, rmData.m_ptCenMinRect, Vector3d.Z_AX, -TmpPart.MoveTable1.m_dAngRotDeg, GDB_RT.GLOB)
|
|
' ruoto il versore Y del rettangolo
|
|
rmData.m_vtOrtoDirX.Rotate(Vector3d.Z_AX, -TmpPart.MoveTable1.m_dAngRotDeg)
|
|
Dim vtMove As New Vector3d
|
|
' calcolo l'offset in alto a sinistra del rettangolo di riferimento
|
|
Dim vtRectTopLeft As New Vector3d(rmData.m_vtRect)
|
|
vtRectTopLeft.Rotate(rmData.m_vtOrtoDirX, 180)
|
|
Dim vtRuller As Vector3d = New Vector3d(Map.refUnloadingAreaVM.OffsetRullerX, Map.refUnloadingAreaVM.OffsetRullerY, 0)
|
|
' definisco il centro del rettangolo sul pezzo
|
|
vtMove = vtRuller - (TmpPart.GetPointOnTable1(rmData.m_ptCenMinRect) - Point3d.ORIG + vtRectTopLeft)
|
|
vtMove.z = 0
|
|
EgtMove(nPartId, vtMove)
|
|
|
|
' reset eventuali vecchie informazioni
|
|
RemoveOneMoveInfo(nPartId)
|
|
' creo le variabili per il posizionamento delle ventose sul tavolo 2
|
|
Dim rmData2 As New RawMoveData
|
|
Dim b3Part2 As New BBox3d
|
|
If MyPutVacuumCupsOnPart(nPartId, rmData2, b3Part2, VACUUM_HEAD_PALLET) And TmpPart.enUnloading <> Unloading.MANUAL Then
|
|
' salvo le posizioni delle ventose
|
|
TmpPart.SetInfoTable2(rmData2)
|
|
Else
|
|
EgtOutLog("Error on UpdateVacuums in Part Table2 " & nPartId.ToString())
|
|
' coloro il pezzo non prelevabile dal pallettizzatore di fuxia
|
|
Dim nIdCurrRegion As Integer = GeomCalc.GetRegionFromPart(nPartId)
|
|
If nIdCurrRegion > 0 Then
|
|
EgtSetColor(nIdCurrRegion, New Color3d(255, 255, 0, 80))
|
|
EgtDraw()
|
|
End If
|
|
' e diventa scarico manuale
|
|
TmpPart.enUnloading = Unloading.MANUAL
|
|
TmpPart.nLayer = -2
|
|
End If
|
|
|
|
' riposiziono tutto come all'inizio (per avere la disposizione corretta)
|
|
EgtMove(nPartId, -vtMove)
|
|
EgtRotate(nPartId, rmData.m_ptCenMinRect, Vector3d.Z_AX, TmpPart.MoveTable1.m_dAngRotDeg, GDB_RT.GLOB)
|
|
EgtDraw()
|
|
|
|
' aggiorno la lista dei pezzi dal più grande al più piccolo
|
|
If TmpPart.enUnloading = Unloading.MANUAL Then
|
|
' pezzi manuali
|
|
If PartsListManual.Count = 0 Then
|
|
PartsListManual.Add(TmpPart)
|
|
Else
|
|
Dim bIsInsert As Boolean = False
|
|
For i = 0 To PartsListManual.Count - 1
|
|
If TmpPart.MinRectY > PartsListManual(i).MinRectY Then
|
|
PartsListManual.Insert(i, TmpPart)
|
|
bIsInsert = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
If Not bIsInsert Then
|
|
PartsListManual.Add(TmpPart)
|
|
End If
|
|
End If
|
|
Else
|
|
' pezzi automatici (recupero la lista di apparenenza del pezzo)
|
|
Dim LocalPartList As List(Of Part) = GetPartialList(TmpPart.MinRectX, PartListMax, PartListMedium, PartListMin)
|
|
If LocalPartList.Count = 0 Then
|
|
LocalPartList.Add(TmpPart)
|
|
Else
|
|
Dim bIsInsert As Boolean = False
|
|
For i = 0 To LocalPartList.Count - 1
|
|
If TmpPart.MinRectY > LocalPartList(i).MinRectY Then
|
|
LocalPartList.Insert(i, TmpPart)
|
|
bIsInsert = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
If Not bIsInsert Then
|
|
LocalPartList.Add(TmpPart)
|
|
End If
|
|
End If
|
|
End If
|
|
End If
|
|
Else
|
|
bOk = False
|
|
EgtOutLog("Error on UpdateVacuums in Part Table1 " & nPartId.ToString())
|
|
' coloro il pezzo non prelevabile di viola
|
|
Dim nIdRegion As Integer = GeomCalc.GetRegionFromPart(nPartId)
|
|
If nIdRegion > 0 Then
|
|
EgtSetColor(nIdRegion, New Color3d(255, 0, 255, 80))
|
|
EgtDraw()
|
|
End If
|
|
End If
|
|
nPartId = EgtGetNextPartInRawPart(nPartId)
|
|
End While ' cilco sui Pezzi contenuti nel Grezzo
|
|
End If
|
|
nRawId = EgtGetNextRawPart(nRawId)
|
|
End While ' ciclo sui Grezzi centenuti nel progetto
|
|
|
|
' salvo il file corrente con i pezzi appena disposti
|
|
'EgtSaveFile(Map.refMainWindowVM.MainWindowM.sTempDir & "\" & CURR_PROJ_NAME, NGE.BIN)
|
|
|
|
' Scarico le ventose
|
|
RemoveVacuumCups()
|
|
' Ripristino fase corrente originale
|
|
EgtSetCurrPhase(nOriPhase)
|
|
' comnnico che sta per iniziare il processo di nesting
|
|
EgtOutLog("Start Nesting")
|
|
Dim nCurrLayer As Integer = 0
|
|
' elnco dei pezzi inseriti nell'ultimo Layer
|
|
Dim LastLayerList As New List(Of Part)
|
|
' Spazio disponibile per il deposito, la prima dimensione è quella del pallet
|
|
Dim dDiffY As Double = Map.refUnloadingAreaVM.OffsetPalletY * 2
|
|
' eseguo il Nesting1D dei pezzi correnti, costruisco l'enco dei pezzi da depositare sui pallet
|
|
If PartListMedium.Count > 0 And Not MyNesting1D(PartListMedium, dDiffY, LastLayerList, nCurrLayer) Then
|
|
Map.refUnloadingAreaVM.ClearOutputMessage()
|
|
Map.refUnloadingAreaVM.SetOutputMessage("Error in nesting parts.")
|
|
Return False
|
|
End If
|
|
' recupero l'indice dell'ultimo Layer calcolato
|
|
If LastLayerList.Count > 0 Then nCurrLayer = LastLayerList(0).nLayer
|
|
' eseguo il nestin tra due liste
|
|
If PartListMedium.Count > 0 And JoinNesting1D(PartListMedium, PartListMin, LastLayerList, dDiffY, nCurrLayer) Then
|
|
nCurrLayer = nCurrLayer + 1
|
|
End If
|
|
' eseguo il nesting dei pezzi rimanenti
|
|
If PartListMin.Count > 0 And Not MyNesting1D(PartListMin, dDiffY, LastLayerList, nCurrLayer) Then
|
|
Map.refUnloadingAreaVM.ClearOutputMessage()
|
|
Map.refUnloadingAreaVM.SetOutputMessage("Error in nesting parts.")
|
|
Return False
|
|
End If
|
|
' comunico che il processo di Nesting è terminato
|
|
EgtOutLog("End Nesting")
|
|
' ricostruisco l'elenco completo dei pezzi ordinati per il deposito
|
|
Dim ActualListPart As New List(Of Part)
|
|
|
|
' riordino l'elenco dei pezzi (dal Primo Layer all'ultimo Layer)
|
|
Dim nCountPart As Integer = 0
|
|
Dim StartLayer As Integer = 0
|
|
Dim bLayerExist As Boolean = True
|
|
While bLayerExist
|
|
bLayerExist = False
|
|
For Each ItemPart In PartListMedium
|
|
If ItemPart.nLayer = StartLayer Then
|
|
ActualListPart.Add(ItemPart)
|
|
ItemPart.bInsert = True
|
|
nCountPart = nCountPart + 1
|
|
bLayerExist = True
|
|
End If
|
|
Next
|
|
StartLayer = StartLayer + 1
|
|
End While
|
|
bLayerExist = True
|
|
StartLayer = StartLayer - 1
|
|
While bLayerExist
|
|
bLayerExist = False
|
|
For Each ItemPart In PartListMin
|
|
If ItemPart.nLayer = StartLayer Then
|
|
ActualListPart.Add(ItemPart)
|
|
ItemPart.bInsert = True
|
|
bLayerExist = True
|
|
End If
|
|
Next
|
|
StartLayer = StartLayer + 1
|
|
End While
|
|
|
|
' verifico se tutti i pezzi sono stati inseriti
|
|
Dim ErrList As New List(Of Part)
|
|
For Each ItemMedium In PartListMedium
|
|
If Not ItemMedium.bInsert Then
|
|
ErrList.Add(ItemMedium)
|
|
End If
|
|
Next
|
|
For Each ItemMin In PartListMin
|
|
If Not ItemMin.bInsert Then
|
|
ErrList.Add(ItemMin)
|
|
End If
|
|
Next
|
|
If ErrList.Count > 0 Then
|
|
For Each ItemError In ErrList
|
|
' coloro i pezzi che non sono stati nseriri nell'elenco
|
|
Dim nIdCurrRegion As Integer = GeomCalc.GetRegionFromPart(ItemError.IdPart)
|
|
If nIdCurrRegion > 0 Then
|
|
EgtSetColor(nIdCurrRegion, New Color3d(255, 255, 0, 80))
|
|
EgtDraw()
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
' restituisco l'elenco dei pezzi (prima gli automatici e poi quelli manuali)
|
|
Dim nActualPositionList As Integer = 0
|
|
If Not IsNothing(Map.refUnloadingAreaVM) Then
|
|
' per ogni pezzo
|
|
For Each ItemPart In ActualListPart
|
|
Map.refUnloadingAreaVM.ListPart.Add(ItemPart)
|
|
nActualPositionList = nActualPositionList + 1
|
|
PartWritePrivateProfileString(ItemPart.IdProject, "PartList", "IdPart" & nActualPositionList.ToString, ItemPart.IdPart.ToString)
|
|
ItemPart.SavePart(ItemPart.IdPart)
|
|
ItemPart.dOffestPartY = ItemPart.dOffestPartY
|
|
Next
|
|
For Each ItemPart In PartListMax
|
|
Map.refUnloadingAreaVM.ListPart.Add(ItemPart)
|
|
nActualPositionList = nActualPositionList + 1
|
|
PartWritePrivateProfileString(ItemPart.IdProject, "PartList", "IdPart" & nActualPositionList.ToString, ItemPart.IdPart.ToString)
|
|
ItemPart.SavePart(ItemPart.IdPart)
|
|
Next
|
|
For Each ItemPartManual In PartsListManual
|
|
Map.refUnloadingAreaVM.ListPart.Add(ItemPartManual)
|
|
nActualPositionList = nActualPositionList + 1
|
|
PartWritePrivateProfileString(ItemPartManual.IdProject, "PartList", "IdPart" & nActualPositionList.ToString, ItemPartManual.IdPart.ToString)
|
|
ItemPartManual.SavePart(ItemPartManual.IdPart)
|
|
Next
|
|
' notifico l'ultimo pezzo
|
|
Map.refUnloadingAreaVM.ListPart(Map.refUnloadingAreaVM.ListPart.Count - 1).SetIsLast(True)
|
|
End If
|
|
Map.refUnloadingAreaVM.ClearOutputMessage()
|
|
Map.refUnloadingAreaVM.SetOutputMessage("Ended loading project.")
|
|
' aggiorno la lista dei progetti
|
|
If Not IsNothing(Map.refUnloadingAreaVM.m_refTablePartWindowVM) Then
|
|
Map.refUnloadingAreaVM.m_refTablePartWindowVM.RefreshProject()
|
|
End If
|
|
Return bOk
|
|
End Function
|
|
|
|
' assegnata la lunghezza del pezzo restiruisce la lista di appartenenza
|
|
Public Function GetPartialList(MinRectX As Double, ByRef LocalPartListMax As List(Of Part), ByRef LocalPartListMedium As List(Of Part), ByRef LocalPartListMin As List(Of Part)) As List(Of Part)
|
|
If MinRectX - Map.refUnloadingAreaVM.MaxLength > EPS_SMALL Then
|
|
Return LocalPartListMax
|
|
ElseIf MinRectX - 600 > EPS_SMALL Then
|
|
Return LocalPartListMedium
|
|
Else
|
|
Return LocalPartListMin
|
|
End If
|
|
End Function
|
|
|
|
' rimuove i pezzi che appartengono allo stesso Layer dello stesso box del pezzo rovinato
|
|
Public Function RemuovePartSameLayer(ByRef CurrList As List(Of Part), WastePart As Part, bNewBox As Boolean) As Boolean
|
|
Dim IndexPart As Integer = 0
|
|
' costruisco la lista degli indici da rimuovere nella lista Medium
|
|
Dim RemoveList As New List(Of Part)
|
|
For IndexPart = 0 To CurrList.Count - 1
|
|
If bNewBox AndAlso CurrList(IndexPart).nLayer = WastePart.nLayer AndAlso CurrList(IndexPart).IdBox = WastePart.IdBox Then
|
|
' se appartengono allo stesso layer del box corrente
|
|
RemoveList.Add(CurrList(IndexPart))
|
|
ElseIf CurrList(IndexPart).IdBox <> WastePart.IdBox Then
|
|
' se appartengono ad un box differente
|
|
RemoveList.Add(CurrList(IndexPart))
|
|
End If
|
|
Next
|
|
' rimuovo i pezzi che ho calcolato al punto sopra
|
|
For Each ItemIndex In RemoveList
|
|
CurrList.Remove(ItemIndex)
|
|
Next
|
|
Return True
|
|
End Function
|
|
|
|
' calcolo il nesting della lista passata
|
|
Public Function MyNesting1D(LocalPartList As List(Of Part), ByRef PrecWidthLayer As Double, ByRef LastLayerList As List(Of Part), nLayerIndex As Integer, Optional bStop As Boolean = False) As Boolean
|
|
' se la lista da nestare è vuot allora esco siìubito
|
|
If LocalPartList.Count < 1 Then Return False
|
|
' incremento la dimaneione del piano inferiore
|
|
If PrecWidthLayer + 100 < Map.refUnloadingAreaVM.OffsetPalletY * 2 Then
|
|
PrecWidthLayer = PrecWidthLayer + 100
|
|
End If
|
|
' larghezza disponibile per il deposito del Layer corrente
|
|
Dim WidthPallet As Double = PrecWidthLayer
|
|
|
|
' dimensione complessiva occupata dai pezzi
|
|
Dim ActualWidthLayer As Double = 0
|
|
' distanza minima di sicurezza da mantenere tra i pezzi
|
|
Dim dTollerance As Double = Map.refUnloadingAreaVM.MinTollerance
|
|
' distanza massima di sicurezza da mantenere tra i pezzi
|
|
Dim dMaxTollerance As Double = Map.refUnloadingAreaVM.MaxTollerance
|
|
' eseguo una copia della lista dei pezzi
|
|
Dim CopyList As New List(Of Part)
|
|
For Each ItemOrigList In LocalPartList
|
|
CopyList.Add(ItemOrigList)
|
|
Next
|
|
' Lista delle dimensioni dei layer generati
|
|
Dim ListLayerWidth As New List(Of Double)
|
|
' Lista dei Part contenuti in un Layer (usata all'interno del ciclo di Nesting)
|
|
Dim ListPartLayer As New List(Of Part)
|
|
|
|
' INIZIO NESTING
|
|
If Not EgtMaxFillerStart() Then
|
|
EgtOutLog("Not Initizlized: EgtMaxFillerStart()")
|
|
Return False
|
|
Else
|
|
EgtOutLog("Initizlized: EgtMaxFillerStart()")
|
|
End If
|
|
While CopyList.Count() > 0
|
|
EgtMaxFillerStart()
|
|
' carico la lista con i pezzi rimasti per eseguire il Nesting1D
|
|
For Each ItemPart In CopyList
|
|
EgtMaxFillerAddPart(ItemPart.IdPart, ItemPart.MinRectY)
|
|
Next
|
|
' definisco le tolleranze da usare tra i pezzi (dal bordo sinistro, tra i pezzi, dal bordo destro)
|
|
Dim SideTollerance As Double = dTollerance
|
|
If nLayerIndex > 0 Then
|
|
SideTollerance = 0
|
|
End If
|
|
EgtMaxFillerCompute(PrecWidthLayer, SideTollerance, dTollerance, SideTollerance)
|
|
Dim nFilledParts As Integer = 0
|
|
' numero di pezzi inseriti nel Layer
|
|
Dim nDiffParts As Integer = 0
|
|
Dim dTotFillRatio As Double
|
|
EgtMaxFillerGetResults(nFilledParts, nDiffParts, dTotFillRatio)
|
|
Dim TotalLenght As Double = 0
|
|
' ripulisco la lista dei pezzi del Layer precedente
|
|
ListPartLayer.Clear()
|
|
Dim Index As Integer = 0
|
|
' se non sono ruiscito ad eseguire il nesting allora esco
|
|
If nDiffParts = 0 Then
|
|
Return False
|
|
End If
|
|
' aggiorno la lista dei pezzi nel Layer e la lista dei pezzi che devono essere nestati
|
|
For Index = 0 To nDiffParts - 1
|
|
' Id del Pezzo inserito nel Layer
|
|
Dim nPartId As Integer = 0
|
|
Dim nCount As Integer = 0
|
|
EgtMaxFillerGetOneResult(Index, nPartId, nCount)
|
|
Dim IndexPart As Integer = 0
|
|
' ricerco il pezzo iesimo (Index) del Layer corrente
|
|
For IndexPart = 0 To CopyList.Count() - 1
|
|
If nPartId = CopyList(IndexPart).IdPart Then
|
|
TotalLenght = TotalLenght + nCount * CopyList(IndexPart).MinRectY
|
|
' salvo il valore del Layer corrente
|
|
CopyList(IndexPart).nLayer = nLayerIndex
|
|
' inserisco il pezzo nella lista dei pezzi del Layer corrente
|
|
ListPartLayer.Add(CopyList(IndexPart))
|
|
' rimuovo il pezzo dall'elenco dei pezzi che devono essere ancora nestati
|
|
CopyList.RemoveAt(IndexPart)
|
|
Exit For
|
|
End If
|
|
Next
|
|
Next
|
|
' seleziono il Layer successivo
|
|
nLayerIndex = nLayerIndex + 1
|
|
' determino il distanziamento tra i pezzi del Layer corrente
|
|
CalcOffsetPartY(ListPartLayer, WidthPallet)
|
|
' salvo la dimensione del Layer appena creato
|
|
ListLayerWidth.Add(WidthPallet)
|
|
' se "True" calcolo un solo Layer ed esco dal ciclo
|
|
If bStop Then Exit While
|
|
End While
|
|
' se ho almeno 2 Layer restituisco la dimensione occupata dal penultimo Layer calcolato
|
|
If ListLayerWidth.Count() > 1 Then
|
|
PrecWidthLayer = ListLayerWidth(ListLayerWidth.Count() - 2)
|
|
End If
|
|
' restituisco la lista dei pezzi che occupano l'ultimo Layer
|
|
LastLayerList = ListPartLayer
|
|
Return True
|
|
End Function
|
|
|
|
' calcolo il nesting tra due liste
|
|
Public Function JoinNesting1D(PrecListPart As List(Of Part), CurrListPart As List(Of Part), LastLayerList As List(Of Part), ByRef dDiffY As Double, nCurrLayer As Integer) As Boolean
|
|
' se una delle due liste da nestare è vuota allora esco
|
|
If PrecListPart.Count < 1 Or CurrListPart.Count < 1 Then Return False
|
|
EgtOutLog("Start Join Nesting")
|
|
' determino il massimo spazio disponibile rimanente sull'ultimo Layer (togliendo le tolleranze sul bordo sinistro e destro)
|
|
Dim dTempDiff As Double = dDiffY
|
|
For Each ItemInLayer In LastLayerList
|
|
dTempDiff = dTempDiff - ItemInLayer.MinRectY - Map.refUnloadingAreaVM.MinTollerance
|
|
Next
|
|
' definisco la lista dei pezzi che occupano lo spazio rimanente del Layer corrente
|
|
Dim FirstLayerLIst As New List(Of Part)
|
|
' eseguo il Nesting1D dei pezzi correnti (seconda lista) nell'ultimo Layer
|
|
MyNesting1D(CurrListPart, dTempDiff, FirstLayerLIst, nCurrLayer, True)
|
|
' se esistono dei pezzi che possono essere nestati nello spazio rimasto nell'ultimo Layer
|
|
If FirstLayerLIst.Count() > 0 Then
|
|
For Each ItemFirstPartLayer In FirstLayerLIst
|
|
' inserico il pezzo nella lista dei pezzi più grandi
|
|
PrecListPart.Add(ItemFirstPartLayer)
|
|
' rimuovo il pezzo dalla lista dei pezzi che devono essere nestati
|
|
For IndexFirst As Integer = 0 To CurrListPart.Count() - 1
|
|
If CurrListPart(IndexFirst).IdPart = ItemFirstPartLayer.IdPart Then
|
|
CurrListPart.RemoveAt(IndexFirst)
|
|
Exit For
|
|
End If
|
|
Next
|
|
Next
|
|
' inseirco i pezzi appena trovati nella lista dei pezzi del Layer corrente
|
|
For Each ItemLastPartLayer In LastLayerList
|
|
FirstLayerLIst.Add(ItemLastPartLayer)
|
|
Next
|
|
' calcolo la disposizione dei pezzi nel Layer
|
|
CalcOffsetPartY(FirstLayerLIst, dDiffY)
|
|
Return True
|
|
Else
|
|
dDiffY = dDiffY - dTempDiff
|
|
Return True
|
|
End If
|
|
End Function
|
|
|
|
' ricavuta la lista di pezzi che occupano un Layer, e la dimensione Y del Layer precedente determino la nuova disposizione
|
|
Public Sub CalcOffsetPartY(ListPartLayer As List(Of Part), ByRef PrecWidthPallet As Double)
|
|
' distanza massima di sicurezza da mantenere tra i pezzi
|
|
Dim dMaxTollerance As Double = Map.refUnloadingAreaVM.MaxTollerance
|
|
' distanza minima di sicurezza da mantenere tra i pezzi
|
|
Dim dTollerance As Double = Map.refUnloadingAreaVM.MinTollerance
|
|
If Math.Abs(PrecWidthPallet - Map.refUnloadingAreaVM.OffsetPalletY * 2) > EPS_SMALL Then
|
|
dTollerance = 0
|
|
End If
|
|
' dimensione attale occupata dal layer corrente
|
|
Dim ActualWidthPallet As Double = 0
|
|
' determino lo spazio occupato da tutti i pezzi del Layer corrente (attacati tra loro)
|
|
For Each ItemPartLayer In ListPartLayer
|
|
ActualWidthPallet = ActualWidthPallet + ItemPartLayer.MinRectY
|
|
Next
|
|
' aggiungo la tolleranza di sul bordo di sinistra e sul bordo di destra (solo se PrecWidthPallet uguale alla dimensione del Pallet
|
|
ActualWidthPallet = ActualWidthPallet + 2 * dTollerance
|
|
' suddivido lo spazio rimasto sul pallet tra i pezzi
|
|
Dim dSplit As Double = 0
|
|
If ListPartLayer.Count() > 1 Then
|
|
' determino l'interspazio che deve essere lasciato tra i pezzi
|
|
dSplit = (PrecWidthPallet - ActualWidthPallet) / (ListPartLayer.Count() - 1)
|
|
' verifico che la distanza calcolata sia minore del valore massimo
|
|
If dSplit > dMaxTollerance Then
|
|
dSplit = dMaxTollerance
|
|
ElseIf dSplit < 10 Then
|
|
dSplit = 10
|
|
End If
|
|
End If
|
|
' determino lo spazio occupato dai pezzi del Layer corrente
|
|
ActualWidthPallet = ActualWidthPallet + (ListPartLayer.Count() - 1) * dSplit
|
|
' centro i pezzi del Layer massimizzando la distanza
|
|
Dim vtMoveY As Double = Map.refUnloadingAreaVM.OffsetPalletY - ActualWidthPallet / 2
|
|
' posizione occupata all'interno del Layer
|
|
Dim IndexPart As Integer = 0
|
|
' spazio occupato dai pezzi precedenti
|
|
Dim ActualY As Double = 0
|
|
Dim bCalcOk As Boolean = False
|
|
For IndexPart = 0 To ListPartLayer.Count() - 1
|
|
bCalcOk = False
|
|
If IndexPart = 0 Then
|
|
' se è il primo pezzo del Layer
|
|
ListPartLayer(IndexPart).dOffestPartY = ListPartLayer(IndexPart).MinRectY / 2 + dTollerance + vtMoveY
|
|
ActualY = ListPartLayer(IndexPart).MinRectY + dTollerance
|
|
bCalcOk = True
|
|
ElseIf IndexPart = ListPartLayer.Count() - 1 Then
|
|
' se è l'ultimo pezzo del Layer
|
|
ListPartLayer(IndexPart).dOffestPartY = ActualY + ListPartLayer(IndexPart).MinRectY / 2 + dSplit + vtMoveY
|
|
ActualY = ActualY + ListPartLayer(IndexPart).MinRectY + dSplit
|
|
bCalcOk = True
|
|
Else
|
|
' se è un pezzo che sta nel mezzo del pallet
|
|
ListPartLayer(IndexPart).dOffestPartY = ActualY + ListPartLayer(IndexPart).MinRectY / 2 + dSplit + vtMoveY
|
|
ActualY = ActualY + ListPartLayer(IndexPart).MinRectY + dSplit
|
|
bCalcOk = True
|
|
End If
|
|
' assegno la posizione del pezzo all'inerno del Layer
|
|
ListPartLayer(IndexPart).nPositionLayer = IndexPart
|
|
If Not bCalcOk Then
|
|
Map.refUnloadingAreaVM.ClearOutputMessage()
|
|
Map.refUnloadingAreaVM.SetOutputMessage("Error in calc offset box.")
|
|
End If
|
|
Next
|
|
' restituisco la dimensione del Layer corrente
|
|
PrecWidthPallet = ActualWidthPallet - 2 * dTollerance
|
|
End Sub
|
|
|
|
Friend Function DeactivateAllMachinings() As Boolean
|
|
Return EgtSetAllOperationsMode(False)
|
|
End Function
|
|
|
|
Friend Function ActivateAllMachinings() As Boolean
|
|
Return EgtSetAllOperationsMode(True)
|
|
End Function
|
|
|
|
Friend Function HideAllMachinings() As Boolean
|
|
Dim nId As Integer = EgtGetFirstOperation()
|
|
While nId <> GDB_ID.NULL
|
|
If EgtGetOperationType(nId) <> MCH_OY.DISP Then
|
|
EgtSetOperationStatus(nId, False)
|
|
End If
|
|
nId = EgtGetNextOperation(nId)
|
|
End While
|
|
Return True
|
|
End Function
|
|
|
|
Friend Function ShowAllCurrPhaseMachinings() As Boolean
|
|
' Parto dalla prima lavorazione successiva alla disposizione di fase
|
|
Dim nId As Integer = EgtGetPhaseDisposition(EgtGetCurrPhase())
|
|
nId = EgtGetNextOperation(nId)
|
|
' Finchè c'è una lavorazione
|
|
While nId <> GDB_ID.NULL
|
|
' Se disposizione sono alla fase successiva
|
|
If EgtGetOperationType(nId) = MCH_OY.DISP Then Exit While
|
|
' Se abilitata
|
|
If EgtGetOperationMode(nId) Then
|
|
EgtSetOperationStatus(nId, True)
|
|
End If
|
|
' Passo alla successiva
|
|
nId = EgtGetNextOperation(nId)
|
|
End While
|
|
Return True
|
|
End Function
|
|
|
|
Friend Function RemoveFinalHome() As Boolean
|
|
Dim nId As Integer = EgtGetLastActiveOperation()
|
|
Return EgtRemoveOperationHome(nId)
|
|
End Function
|
|
|
|
'Friend Function VerifySetup(ByRef sMissingTools As String) As Boolean
|
|
' Dim bOk As Boolean = True
|
|
' Dim bIsMultiCut = (EgtGetHeadId("H101") <> GDB_ID.NULL)
|
|
' sMissingTools = String.Empty
|
|
' Dim nId As Integer = EgtGetFirstOperation()
|
|
' While nId <> GDB_ID.NULL
|
|
' If IsValidMachining(nId) Then
|
|
' Dim nType As Integer = MCH_OY.NONE
|
|
' EgtGetMachiningParam(MCH_MP.TYPE, nType)
|
|
' Dim sTuuid As String = String.Empty
|
|
' Dim sTool As String = String.Empty
|
|
' Dim sTool2 As String = String.Empty
|
|
' EgtGetMachiningParam(MCH_MP.TUUID, sTuuid)
|
|
' EgtTdbGetToolFromUUID(sTuuid, sTool)
|
|
' If String.IsNullOrWhiteSpace( sTool) Then
|
|
' Dim sMchTool As String = ""
|
|
' EgtGetMachiningParam( MCH_MP.TOOL, sMchTool)
|
|
' bOk = False
|
|
' If sMissingTools.IndexOf(sMchTool) = -1 Then
|
|
' sMissingTools = sMissingTools & sMchTool & ", "
|
|
' End If
|
|
' ElseIf nType = MCH_OY.SAWING Or nType = MCH_OY.SAWROUGHING Or nType = MCH_OY.SAWFINISHING Then
|
|
' If bIsMultiCut Then
|
|
' ' L'utensile sulla seconda testa ha lo stesso nome di quello sulla prima con suffisso "-2"
|
|
' If sTool.Substring(sTool.Length() - 2) = "-2" Then
|
|
' sTool = sTool.Remove(sTool.Length() - 2)
|
|
' End If
|
|
' sTool2 = sTool & "-2"
|
|
' End If
|
|
' If String.Compare(sTool, CurrentMachine.sCurrSaw) <> 0 AndAlso
|
|
' ( String.IsNullOrWhiteSpace( sTool2) OrElse String.Compare(sTool2, CurrentMachine.sCurrSaw) <> 0) AndAlso
|
|
' String.Compare(sTool, CurrentMachine.sCurrDripSaw) <> 0 Then
|
|
' bOk = False
|
|
' If sMissingTools.IndexOf(sTool) = -1 Then
|
|
' sMissingTools = sMissingTools & sTool & ", "
|
|
' End If
|
|
' End If
|
|
' ElseIf nType = MCH_OY.DRILLING Then
|
|
' If String.Compare(sTool, CurrentMachine.sCurrDrill) <> 0 And
|
|
' String.Compare(sTool, CurrentMachine.sCurrDripDrill) <> 0 And
|
|
' Not FindToolOnChanger(sTool) Then
|
|
' bOk = False
|
|
' If sMissingTools.IndexOf(sTool) = -1 Then
|
|
' sMissingTools = sMissingTools & sTool & ", "
|
|
' End If
|
|
' End If
|
|
' ElseIf nType = MCH_OY.MILLING Then
|
|
' ' Verifico anche le lame come in OmagCUT anche se qui non gestisco cornici
|
|
' If String.Compare(sTool, CurrentMachine.sCurrMill) <> 0 And
|
|
' Not FindToolOnChanger(sTool) And
|
|
' String.Compare(sTool, CurrentMachine.sCurrSaw) <> 0 Then
|
|
' bOk = False
|
|
' If sMissingTools.IndexOf(sTool) = -1 Then
|
|
' sMissingTools = sMissingTools & sTool & ", "
|
|
' End If
|
|
' End If
|
|
' ElseIf nType = MCH_OY.WATERJETTING Then
|
|
' If String.Compare(sTool, CurrentMachine.sCurrWaterJet) <> 0 And
|
|
' Not FindToolOnChanger(sTool) Then
|
|
' bOk = False
|
|
' If sMissingTools.IndexOf(sTool) = -1 Then
|
|
' sMissingTools = sMissingTools & sTool & ", "
|
|
' End If
|
|
' End If
|
|
' End If
|
|
' End If
|
|
' nId = EgtGetNextOperation(nId)
|
|
' End While
|
|
' Return bOk
|
|
'End Function
|
|
|
|
'Private Function FindToolOnChanger(sTool As String) As Boolean
|
|
' ' Ricerca nel cambia utensili automatico
|
|
' For i As Integer = 0 To CurrentMachine.ToolChangerNbr() - 1
|
|
' If String.Compare(sTool, CurrentMachine.ToolChanger(i).sTool) = 0 Then
|
|
' Return True
|
|
' End If
|
|
' Next
|
|
' ' Ricerca nel cambia utensili manuale
|
|
' For i As Integer = 0 To CurrentMachine.ManualToolChangerNbr() - 1
|
|
' If String.Compare(sTool, CurrentMachine.ManualToolChanger(i).sTool) = 0 Then
|
|
' Return True
|
|
' End If
|
|
' Next
|
|
' ' Non trovato
|
|
' Return False
|
|
'End Function
|
|
|
|
'Friend Function TestAllMachiningsForStrict() As Boolean
|
|
' Dim bModified As Boolean = False
|
|
' ' Affondamento ridotto
|
|
' Dim dReducedDepth As Double = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_REDUCEDDEPTH, 1, CurrentMachine.sMachIniFile)
|
|
' ' Ciclo sulle lavorazioni
|
|
' Dim nOperId As Integer = EgtGetFirstOperation()
|
|
' While nOperId <> GDB_ID.NULL
|
|
' ' verifico sia una lavorazione valida di taglio con lama
|
|
' If IsValidMachining( nOperId) And EgtGetOperationType( nOperId) = MCH_OY.SAWING Then
|
|
' ' verifica interferenza
|
|
' Dim nFlag As Integer = FMI_TYPE.NONE
|
|
' If Not VerifyComposedMachining(nOperId, nFlag) Then
|
|
' nFlag = FMI_TYPE.LI Or FMI_TYPE.RM Or FMI_TYPE.LO
|
|
' End If
|
|
' ' sistemazione lavorazione, se necessario
|
|
' If AdjustMachining(nOperId, nFlag, dReducedDepth) Then
|
|
' bModified = True
|
|
' ' se abilitato e attivo waterjet, lo aggiungo per completare il taglio
|
|
' If CurrentMachine.WaterJettingActive Then
|
|
' Dim nWarn As Integer = 0
|
|
' AddWaterJetMachining(nOperId, nWarn)
|
|
' End If
|
|
' End If
|
|
' End If
|
|
' nOperId = EgtGetNextOperation(nOperId)
|
|
' End While
|
|
' Return bModified
|
|
'End Function
|
|
|
|
'Friend Function VerifyComposedMachining(nOperId As Integer, ByRef nFlag As Integer) As Boolean
|
|
' ' verifico sia una lavorazione
|
|
' If Not EgtSetCurrMachining(nOperId) Then Return False
|
|
' ' determino eventuali lavorazioni inglobate
|
|
' Dim vOthId As New List(Of Integer)
|
|
' Dim sInfo As String = String.Empty
|
|
' If EgtGetInfo(nOperId, INFO_MCH_OTHMID, sInfo) Then
|
|
' Dim sItems() As String = sInfo.Split(",".ToCharArray)
|
|
' For Each sId In sItems
|
|
' Dim nId As Integer = 0
|
|
' StringToInt(sId, nId)
|
|
' If nId > 0 Then vOthId.Add(nId)
|
|
' Next
|
|
' End If
|
|
' ' layer di origine
|
|
' Dim sLay As String = String.Empty
|
|
' EgtGetInfo(nOperId, INFO_MCH_LAYER, sLay)
|
|
' ' verifica interferenza
|
|
' nFlag = FMI_TYPE.NONE
|
|
' If sLay = NAME_OUTLOOP Then
|
|
' Dim nRes As Integer = FMI_TYPE.LI Or FMI_TYPE.RM Or FMI_TYPE.LO
|
|
' If Not EgtVerifyMachining(nOperId, nRes) Then Return False
|
|
' nFlag = nFlag Or nRes
|
|
' For Each nId As Integer In vOthId
|
|
' nRes = FMI_TYPE.LI Or FMI_TYPE.RM Or FMI_TYPE.LO
|
|
' If Not EgtVerifyMachining(nId, nRes) Then Return False
|
|
' nFlag = nFlag Or nRes
|
|
' Next
|
|
' End If
|
|
' Return True
|
|
'End Function
|
|
|
|
'Friend Function AdjustMachining(nOperId As Integer, nFlag As Integer, dReducedDepth As Double) As Boolean
|
|
' Dim bModified As Boolean = False
|
|
' ' abilitazione
|
|
' Dim bEnabled As Boolean = Not EgtExistsInfo(nOperId, INFO_MCH_USER_OFF)
|
|
' ' restringo lavorazione abilitata ma con interferenza
|
|
' If bEnabled And nFlag <> FMI_TYPE.NONE Then
|
|
' Dim bStart As Boolean = ((nFlag And FMI_TYPE.LI) <> 0)
|
|
' Dim bEnd As Boolean = ((nFlag And FMI_TYPE.LO) <> 0)
|
|
' SetCutStrict(nOperId, bStart, bEnd)
|
|
' ' se risulta lavorazione vuota, provo a diminuire l'affondamento
|
|
' If EgtIsMachiningEmpty() Then
|
|
' ResetCutStrict(nOperId, bStart, bEnd)
|
|
' SetCutDepth(nOperId, dReducedDepth)
|
|
' ' ripeto verifica
|
|
' nFlag = FMI_TYPE.NONE
|
|
' If Not VerifyComposedMachining(nOperId, nFlag) Then
|
|
' nFlag = FMI_TYPE.LI Or FMI_TYPE.RM Or FMI_TYPE.LO
|
|
' End If
|
|
' ' se non superata la stringo
|
|
' If nFlag <> FMI_TYPE.NONE Then
|
|
' bStart = ((nFlag And FMI_TYPE.LI) <> 0)
|
|
' bEnd = ((nFlag And FMI_TYPE.LO) <> 0)
|
|
' SetCutStrict(nOperId, bStart, bEnd)
|
|
' End If
|
|
' End If
|
|
' bModified = True
|
|
' End If
|
|
' Return bModified
|
|
'End Function
|
|
|
|
'Friend Function SetCutDepth(nMchId As Integer, dDepth As Double) As Boolean
|
|
' ' Imposto la lavorazione corrente
|
|
' If Not EgtSetCurrMachining(nMchId) Then Return False
|
|
' ' Imposto l'affondamento
|
|
' EgtSetMachiningParam(MCH_MP.DEPTH, dDepth)
|
|
' ' Ricalcolo il preview
|
|
' UpdateMachiningPreview(nMchId, True)
|
|
' Return True
|
|
'End Function
|
|
|
|
'Friend Function SetCutStrict(nMchId As Integer, bStart As Boolean, bEnd As Boolean) As Boolean
|
|
' ' Recupero sicurezza su tagli
|
|
' Dim dSafeLen As Double = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_CUT, 0, CurrentMachine.sMachIniFile)
|
|
' ' Imposto la lavorazione corrente
|
|
' If Not EgtSetCurrMachining(nMchId) Then Return False
|
|
' Dim bModif As Boolean = False
|
|
' ' Se richiesto, restringo l'attacco
|
|
' If bStart Then
|
|
' ' Recupero tipo attacco originale e lo salvo se non già fatto
|
|
' Dim nOriLeadIn As Integer = MCH_SAW_LI.CENT
|
|
' EgtGetMachiningParam(MCH_MP.LEADINTYPE, nOriLeadIn)
|
|
' If Not EgtExistsInfo(nMchId, INFO_MCH_ORILEADIN) Then
|
|
' EgtSetInfo(nMchId, INFO_MCH_ORILEADIN, nOriLeadIn)
|
|
' End If
|
|
' ' Se attacco cambiato, aggiorno e accorcio della sicurezza sui tagli
|
|
' If nOriLeadIn <> MCH_SAW_LI.STRICT Then
|
|
' EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_SAW_LI.STRICT)
|
|
' Dim dUserAddLen As Double = 0
|
|
' EgtGetInfo( nMchId, INFO_MCH_USER_SAL, dUserAddLen)
|
|
' EgtRemoveInfo( nMchId, INFO_MCH_USER_SAL)
|
|
' Dim dAddLen As Double = 0
|
|
' EgtGetMachiningParam(MCH_MP.STARTADDLEN, dAddLen)
|
|
' EgtSetMachiningParam(MCH_MP.STARTADDLEN, dAddLen - dUserAddLen - dSafeLen)
|
|
' bModif = True
|
|
' End If
|
|
' End If
|
|
' ' Se richiesto, restringo l'uscita
|
|
' If bEnd Then
|
|
' ' Recupero tipo uscita originale e lo salvo se non già fatto
|
|
' Dim nOriLeadOut As Integer = MCH_SAW_LO.CENT
|
|
' EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nOriLeadOut)
|
|
' If Not EgtExistsInfo(nMchId, INFO_MCH_ORILEADOUT) Then
|
|
' EgtSetInfo(nMchId, INFO_MCH_ORILEADOUT, nOriLeadOut)
|
|
' End If
|
|
' ' Se uscita cambiata, aggiorno e accorcio della sicurezza sui tagli
|
|
' If nOriLeadOut <> MCH_SAW_LO.STRICT Then
|
|
' EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_SAW_LO.STRICT)
|
|
' Dim dUserAddLen As Double = 0
|
|
' EgtGetInfo( nMchId, INFO_MCH_USER_EAL, dUserAddLen)
|
|
' EgtRemoveInfo( nMchId, INFO_MCH_USER_EAL)
|
|
' Dim dAddLen As Double = 0
|
|
' EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
|
|
' EgtSetMachiningParam(MCH_MP.ENDADDLEN, dAddLen - dUserAddLen - dSafeLen)
|
|
' bModif = True
|
|
' End If
|
|
' End If
|
|
' ' Se modificato, ricalcolo il preview
|
|
' If bModif Then
|
|
' UpdateMachiningPreview(nMchId, True)
|
|
' End If
|
|
' Return True
|
|
'End Function
|
|
|
|
'Friend Function ResetCutStrict(nMchId As Integer, bStart As Boolean, bEnd As Boolean) As Boolean
|
|
' ' Recupero sicurezza su tagli
|
|
' Dim dSafeLen As Double = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_CUT, 0, CurrentMachine.sMachIniFile)
|
|
' ' Imposto la lavorazione corrente
|
|
' If Not EgtSetCurrMachining(nMchId) Then Return False
|
|
' Dim bModif As Boolean = False
|
|
' ' Se richiesto, ripristino l'attacco
|
|
' If bStart Then
|
|
' ' Recupero tipo attacco originale
|
|
' Dim nOriLeadIn As Integer = MCH_SAW_LI.CENT
|
|
' EgtGetInfo(nMchId, INFO_MCH_ORILEADIN, nOriLeadIn)
|
|
' Dim nCurrLeadIn As Integer = MCH_SAW_LI.CENT
|
|
' EgtGetMachiningParam(MCH_MP.LEADINTYPE, nCurrLeadIn)
|
|
' ' Se attacco cambiato, aggiorno e allungo della sicurezza sui tagli
|
|
' If nOriLeadIn <> nCurrLeadIn Then
|
|
' EgtSetMachiningParam(MCH_MP.LEADINTYPE, nOriLeadIn)
|
|
' Dim dAddLen As Double = 0
|
|
' EgtGetMachiningParam(MCH_MP.STARTADDLEN, dAddLen)
|
|
' EgtSetMachiningParam(MCH_MP.STARTADDLEN, dAddLen + dSafeLen)
|
|
' bModif = True
|
|
' End If
|
|
' End If
|
|
' ' Se richiesto, ripristino l'uscita
|
|
' If bEnd Then
|
|
' ' Recupero tipo uscita originale
|
|
' Dim nOriLeadOut As Integer = MCH_SAW_LO.CENT
|
|
' EgtGetInfo(nMchId, INFO_MCH_ORILEADOUT, nOriLeadOut)
|
|
' Dim nCurrLeadOut As Integer = MCH_SAW_LO.CENT
|
|
' EgtGetMachiningParam(MCH_MP.LEADOUTTYPE, nCurrLeadOut)
|
|
' ' Se uscita cambiata, aggiorno
|
|
' If nOriLeadOut <> nCurrLeadOut Then
|
|
' EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, nOriLeadOut)
|
|
' Dim dAddLen As Double = 0
|
|
' EgtGetMachiningParam(MCH_MP.ENDADDLEN, dAddLen)
|
|
' EgtSetMachiningParam(MCH_MP.ENDADDLEN, dAddLen + dSafeLen)
|
|
' bModif = True
|
|
' End If
|
|
' End If
|
|
' ' Se modificato, ricalcolo il preview
|
|
' If bModif Then
|
|
' UpdateMachiningPreview(nMchId, True)
|
|
' End If
|
|
' Return True
|
|
'End Function
|
|
|
|
Friend Function SetPause(nMchId As Integer) As Boolean
|
|
Return EgtSetInfo(nMchId, INFO_MCH_PAUSE, True)
|
|
End Function
|
|
|
|
Friend Function GetPause(nMchId As Integer) As Boolean
|
|
Dim bPause As Boolean = False
|
|
EgtGetInfo(nMchId, INFO_MCH_PAUSE, bPause)
|
|
Return bPause
|
|
End Function
|
|
|
|
Friend Function ResetPause(nMchId As Integer) As Boolean
|
|
Return EgtRemoveInfo(nMchId, INFO_MCH_PAUSE)
|
|
End Function
|
|
|
|
Friend Function UpdateMachiningPreview(nMchId As Integer, bMoveOnPart As Boolean) As Boolean
|
|
' Imposto la lavorazione corrente
|
|
If Not EgtSetCurrMachining(nMchId) Then Return False
|
|
' Ricalcolo il preview
|
|
EgtPreviewMachining(True)
|
|
' Se non devo spostarlo nel pezzo, esco
|
|
If Not bMoveOnPart Then Return True
|
|
' Indice gruppo di preview nella lavorazione
|
|
Dim nMchPvId As Integer = EgtGetFirstNameInGroup(nMchId, ConstMach.NAME_PREVIEW)
|
|
' Indice gruppo di preview nel pezzo
|
|
Dim nPartPvId As Integer = GDB_ID.NULL
|
|
EgtGetInfo(nMchPvId, INFO_PV_ONPART_ID, nPartPvId)
|
|
' Svuoto il preview nel pezzo
|
|
EgtEmptyGroup(nPartPvId)
|
|
' Rimuovo anche il preview di lavorazioni inglobate
|
|
Dim sInfo As String = String.Empty
|
|
If EgtGetInfo(nMchId, INFO_MCH_OTHMID, sInfo) Then
|
|
Dim sItems() As String = sInfo.Split(",".ToCharArray)
|
|
For Each sId2 In sItems
|
|
' Indice gruppo di preview nella lavorazione
|
|
Dim nId2 As Integer = GDB_ID.NULL
|
|
StringToInt(sId2, nId2)
|
|
Dim nMchPvId2 As Integer = EgtGetFirstNameInGroup(nId2, ConstMach.NAME_PREVIEW)
|
|
' Indice gruppo di preview nel pezzo
|
|
Dim nPartPvId2 As Integer = GDB_ID.NULL
|
|
EgtGetInfo(nMchPvId2, INFO_PV_ONPART_ID, nPartPvId2)
|
|
' Svuoto il preview nel pezzo
|
|
EgtEmptyGroup(nPartPvId2)
|
|
Next
|
|
End If
|
|
' Lo sposto dalla lavorazione al pezzo
|
|
Dim nId As Integer = EgtGetFirstInGroup(nMchPvId)
|
|
While nId <> GDB_ID.NULL
|
|
EgtRelocateGlob(nId, nPartPvId)
|
|
nId = EgtGetFirstInGroup(nMchPvId)
|
|
End While
|
|
Return True
|
|
End Function
|
|
|
|
Friend Function RemoveMachiningPreview(nMchId As Integer) As Boolean
|
|
' Indice gruppo di preview nella lavorazione
|
|
Dim nMchPvId As Integer = EgtGetFirstNameInGroup(nMchId, ConstMach.NAME_PREVIEW)
|
|
' Lo svuoto
|
|
Return EgtEmptyGroup(nMchPvId)
|
|
End Function
|
|
|
|
Friend Function IsValidMachining(nOperId As Integer) As Boolean
|
|
' Deve essere una lavorazione
|
|
If Not EgtSetCurrMachining(nOperId) Then Return False
|
|
' Deve contenere qualcosa
|
|
If EgtIsMachiningEmpty() Then Return False
|
|
' Deve essere abilitata oppure disabilitata direttamente dall'utente
|
|
If Not (EgtGetOperationMode(nOperId) Or EgtExistsInfo(nOperId, INFO_MCH_USER_OFF)) Then Return False
|
|
' E' valida
|
|
Return True
|
|
End Function
|
|
|
|
'Private Function SetLuaStandardCamParams(Optional bDripOk As Boolean = True) As Boolean
|
|
' Dim sSawMch As String = CurrentMachine.sCurrSawing
|
|
' Dim sMillMch As String = CurrentMachine.sCurrMilling
|
|
' Dim sDrillMch As String = CurrentMachine.sCurrDrilling
|
|
' Dim sWaterJetMch As String = CurrentMachine.sCurrWaterJetting
|
|
' Dim sDripSawMch As String = If(bDripOk, CurrentMachine.sCurrDripSawing, "")
|
|
' Dim sDripDrillMch As String = If(bDripOk, CurrentMachine.sCurrDripDrilling, "")
|
|
' Dim dReducedDepth As Double = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_REDUCEDDEPTH, 1, CurrentMachine.sMachIniFile)
|
|
' Dim dHolesOffset As Double = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_HOLES_OFFSET, 0, CurrentMachine.sMachIniFile)
|
|
' Dim dHolesOverlap As Double = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_HOLES_OVERLAP, 0, CurrentMachine.sMachIniFile)
|
|
' Dim dCutSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_CUT, 1, CurrentMachine.sMachIniFile), 10 * EPS_SMALL)
|
|
' Dim dCornerSafety As Double = Math.Max(GetPrivateProfileDouble(S_MACH_NEST, K_MACH_SAFE_LEN_INTCORNER, 1, CurrentMachine.sMachIniFile), 10 * EPS_SMALL)
|
|
' Dim bOneHoleIntCorner As Boolean = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_ONEHOLE_INTCORNER, 0, CurrentMachine.sMachIniFile) <> 0)
|
|
' Dim bMillingOnCorners As Boolean = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_MILLING_ON_CORNERS, 1, CurrentMachine.sMachIniFile) <> 0)
|
|
' Dim bMillingOnSinks As Boolean = (GetPrivateProfileInt(S_MACH_NEST, K_MACH_MILLING_ON_SINKS, 0, CurrentMachine.sMachIniFile) <> 0)
|
|
' Dim dMillingShort As Double = GetPrivateProfileDouble(S_MACH_NEST, K_MACH_MILLING_SHORTENING, 0, CurrentMachine.sMachIniFile)
|
|
' EgtLuaSetGlobStringVar("CAM.SAWMCH", sSawMch)
|
|
' EgtLuaSetGlobStringVar("CAM.MILLMCH", sMillMch)
|
|
' EgtLuaSetGlobStringVar("CAM.DRILLMCH", sDrillMch)
|
|
' EgtLuaSetGlobStringVar("CAM.WATERJETMCH", sWaterJetMch)
|
|
' EgtLuaSetGlobStringVar("CAM.DRIPSAWMCH", sDripSawMch)
|
|
' EgtLuaSetGlobStringVar("CAM.DRIPDRILLMCH", sDripDrillMch)
|
|
' EgtLuaSetGlobNumVar("CAM.REDUCEDDEPTH", dReducedDepth)
|
|
' EgtLuaSetGlobNumVar("CAM.HOLESOFFSET", dHolesOffset)
|
|
' EgtLuaSetGlobNumVar("CAM.HOLESOVERLAP", dHolesOverlap)
|
|
' EgtLuaSetGlobBoolVar("CAM.ONEHOLEINTCORNER", bOneHoleIntCorner)
|
|
' EgtLuaSetGlobNumVar("CAM.CUTSAFETY", dCutSafety)
|
|
' EgtLuaSetGlobNumVar("CAM.CORNERSAFETY", dCornerSafety)
|
|
' EgtLuaSetGlobBoolVar("CAM.MILLINGONCORNERS", bMillingOnCorners)
|
|
' EgtLuaSetGlobBoolVar("CAM.MILLINGONSINKS", bMillingOnSinks)
|
|
' EgtLuaSetGlobNumVar("CAM.MILLINGSHORT", dMillingShort)
|
|
' EgtLuaSetGlobNumVar("CAM.RAWHEIGHT", GetRawHeight())
|
|
' EgtLuaSetGlobNumVar("CAM.REGROT", 0.0)
|
|
' Return True
|
|
'End Function
|
|
|
|
Friend Function GetTableCount() As Integer
|
|
If EgtGetTableId(MAIN_TAB) = GDB_ID.NULL Then Return 0
|
|
If EgtGetTableId(SECOND_TAB) = GDB_ID.NULL Then Return 1
|
|
If EgtGetTableId(THIRD_TAB) = GDB_ID.NULL Then Return 2
|
|
Return 3
|
|
End Function
|
|
|
|
Friend Function GetTableName(nInd As Integer) As String
|
|
If nInd = 1 Then Return MAIN_TAB
|
|
If nInd = 2 Then Return SECOND_TAB
|
|
If nInd = 3 Then Return THIRD_TAB
|
|
Return ""
|
|
End Function
|
|
|
|
Friend Function GetCurrentTable() As Integer
|
|
Dim sTabName As String = MAIN_TAB
|
|
EgtGetTableName(sTabName)
|
|
If sTabName = THIRD_TAB Then
|
|
Return 3
|
|
ElseIf sTabName = SECOND_TAB Then
|
|
Return 2
|
|
Else
|
|
Return 1
|
|
End If
|
|
End Function
|
|
|
|
Friend Function GetCurrentRaw() As Integer
|
|
' Recupero il grezzo (primo con fase 1)
|
|
Dim nRawId As Integer = EgtGetFirstRawPart()
|
|
While nRawId <> GDB_ID.NULL And Not EgtVerifyRawPartPhase(nRawId, 1)
|
|
nRawId = EgtGetNextRawPart(nRawId)
|
|
End While
|
|
Return nRawId
|
|
End Function
|
|
|
|
Friend Function GetRawBox(ByRef ptRawMin As Point3d, ByRef ptRawMax As Point3d) As Boolean
|
|
Return EgtGetRawPartBBox(GetCurrentRaw(), ptRawMin, ptRawMax)
|
|
End Function
|
|
|
|
Friend Function GetRawBox(ByRef b3RawBox As BBox3d) As Boolean
|
|
Return EgtGetRawPartBBox(GetCurrentRaw(), b3RawBox)
|
|
End Function
|
|
|
|
Friend Function GetRawCenter(ByRef ptCent As Point3d) As Boolean
|
|
Return EgtGetRawPartCenter(GetCurrentRaw(), ptCent)
|
|
End Function
|
|
|
|
Friend Function GetRawHeight() As Double
|
|
Dim ptRawMin, ptRawMax As Point3d
|
|
If GetRawBox(ptRawMin, ptRawMax) Then
|
|
Return (ptRawMax.z - ptRawMin.z)
|
|
Else
|
|
Return 0
|
|
End If
|
|
End Function
|
|
|
|
Friend Function UpdateAllRawsZ(dDeltaZ As Double) As Boolean
|
|
For i As Integer = 1 To EgtGetPhaseCount()
|
|
EgtSetCurrPhase(i)
|
|
Dim nRawId As Integer = EgtGetFirstRawPart()
|
|
While nRawId <> GDB_ID.NULL
|
|
If EgtVerifyRawPartCurrPhase(nRawId) Then
|
|
EgtMoveRawPart(nRawId, New Vector3d(0, 0, dDeltaZ))
|
|
End If
|
|
nRawId = EgtGetNextRawPart(nRawId)
|
|
End While
|
|
Next
|
|
EgtSetCurrPhase(1)
|
|
HideAllMachinings()
|
|
Return True
|
|
End Function
|
|
|
|
Friend Function IsMachiningInActiveRaw(nMchId As Integer) As Boolean
|
|
EgtSetCurrMachining(nMchId)
|
|
' Recupero la prima entità geometrica della lavorazione
|
|
Dim nId, nSub As Integer
|
|
If Not EgtGetMachiningGeometry(0, nId, nSub) Then Return False
|
|
' Recupero il pezzo di appartenenza
|
|
Dim nPartId = EgtGetParent(EgtGetParent(nId))
|
|
If nPartId = GDB_ID.NULL Then Return False
|
|
' Recupero la fase di appartenenza della lavorazione
|
|
Dim nPhase As Integer = EgtGetOperationPhase(nMchId)
|
|
' Verifico se il pezzo è nei grezzi della fase indicata
|
|
Dim nRawId As Integer = EgtGetFirstRawPart()
|
|
While nRawId <> GDB_ID.NULL
|
|
If EgtVerifyRawPartPhase(nRawId, nPhase) Then
|
|
Dim nPirId As Integer = EgtGetFirstPartInRawPart(nRawId)
|
|
While nPirId <> GDB_ID.NULL
|
|
If nPartId = nPirId Then Return True
|
|
nPirId = EgtGetNextPartInRawPart(nPirId)
|
|
End While
|
|
End If
|
|
nRawId = EgtGetNextRawPart(nRawId)
|
|
End While
|
|
Return False
|
|
End Function
|
|
|
|
'Friend Function AddFrameMachinings(dTrimStart As Double, dTrimEnd As Double) As Boolean
|
|
' ' Cancello tutte le lavorazioni
|
|
' EgtRemoveAllOperations()
|
|
' ' Recupero il grezzo corrente
|
|
' Dim nRawId As Integer = EgtGetFirstRawPart()
|
|
' If nRawId = GDB_ID.NULL Then Return False
|
|
' ' Se non ci sono pezzi, esco
|
|
' If EgtGetPartInRawPartCount(nRawId) = 0 Then Return True
|
|
' ' Aggiungo sgrossatura
|
|
' If Not AddFrameSawRoughing(dTrimStart, dTrimEnd) Then Return False
|
|
' ' Aggiungo finitura
|
|
' If Not AddFrameSawFinishing(dTrimStart, dTrimEnd) Then Return False
|
|
' ' Aggiungo spatolatura
|
|
' If Not AddFrameSawSideFinishing(dTrimStart, dTrimEnd) Then Return False
|
|
' ' Aggiungo taglio singolo
|
|
' If Not AddFrameSawSingle() Then Return False
|
|
' Return True
|
|
'End Function
|
|
|
|
'Friend Function AddFrameSawRoughing(dTrimStart As Double, dTrimEnd As Double) As Boolean
|
|
' ' Cancello la lavorazione di sgrossatura
|
|
' Dim nId As Integer = EgtGetOperationId(NAME_FRAME_SAWROU)
|
|
' EgtRemoveOperation(nId)
|
|
' ' Recupero il grezzo corrente
|
|
' Dim nRawId As Integer = EgtGetFirstRawPart()
|
|
' If nRawId = GDB_ID.NULL Then Return False
|
|
' ' Se non ci sono pezzi, esco
|
|
' Dim nPart1Id As Integer = EgtGetFirstPartInRawPart( nRawId)
|
|
' If nPart1Id = GDB_ID.NULL Then Return True
|
|
' ' Verifico se cornice curva
|
|
' Dim nDir As Integer = 0
|
|
' EgtGetInfo(nPart1Id, INFO_FRAME_DIR, nDir)
|
|
' Dim bSwap As Boolean = ( nDir = 0)
|
|
' Dim bCurved As Boolean = ( nDir >= 2)
|
|
' ' Recupero la lavorazione corrente di sgrossatura con lama
|
|
' Dim sCurrSawRou As String = CurrentMachine.sCurrSawRoughing
|
|
' If String.IsNullOrEmpty(sCurrSawRou) Then Return True
|
|
' ' Inserisco la lavorazione corrente
|
|
' Dim nMchId As Integer = EgtAddMachining(NAME_FRAME_SAWROU, sCurrSawRou)
|
|
' If nMchId = GDB_ID.NULL Then Return False
|
|
' ' La sposto all'inizio delle lavorazioni (subito dopo la disposizione)
|
|
' Dim nDispId As Integer = EgtGetPhaseDisposition(1)
|
|
' If Not EgtRelocate(nMchId, nDispId, GDB_POS.AFTER) Then
|
|
' EgtErase(nMchId)
|
|
' Return False
|
|
' End If
|
|
' ' Recupero sezioni e prima guida dei pezzi nel grezzo
|
|
' Dim nCount As Integer = EgtGetPartInRawPartCount(nRawId)
|
|
' Dim vId(nCount) As Integer
|
|
' Dim nInd As Integer = 0
|
|
' Dim nPartId As Integer = EgtGetFirstPartInRawPart(nRawId)
|
|
' vId(nCount) = EgtGetFirstInGroup(EgtGetFirstNameInGroup(nPartId, NAME_GUIDE))
|
|
' While nPartId <> GDB_ID.NULL
|
|
' vId(nInd) = EgtGetFirstInGroup(EgtGetFirstNameInGroup(nPartId, NAME_SECT))
|
|
' nInd += 1
|
|
' nPartId = EgtGetNextPartInRawPart(nPartId)
|
|
' End While
|
|
' ' Imposto la geometria
|
|
' EgtSetMachiningGeometry(vId)
|
|
' ' Imposto trim iniziale e finale
|
|
' EgtSetMachiningParam(MCH_MP.STARTADDLEN, If( bSwap, -dTrimEnd, -dTrimStart))
|
|
' EgtSetMachiningParam(MCH_MP.ENDADDLEN, If( bSwap, -dTrimStart, -dTrimEnd))
|
|
' ' Se cornice curva, imposto SCC
|
|
' If bCurved Then EgtSetMachiningParam(MCH_MP.SOLCHOICETYPE, MCH_SCC.ADIR_NEAR)
|
|
' ' Applico la lavorazione
|
|
' Return EgtApplyMachining(False)
|
|
'End Function
|
|
|
|
'Friend Function AddFrameSawFinishing(dTrimStart As Double, dTrimEnd As Double) As Boolean
|
|
' ' Cancello la lavorazione di finitura
|
|
' Dim nId As Integer = EgtGetOperationId(NAME_FRAME_SAWFIN)
|
|
' EgtRemoveOperation(nId)
|
|
' ' Recupero il grezzo corrente
|
|
' Dim nRawId As Integer = EgtGetFirstRawPart()
|
|
' If nRawId = GDB_ID.NULL Then Return False
|
|
' ' Se non ci sono pezzi, esco
|
|
' Dim nPart1Id As Integer = EgtGetFirstPartInRawPart( nRawId)
|
|
' If nPart1Id = GDB_ID.NULL Then Return True
|
|
' ' Verifico se cornice curva
|
|
' Dim nDir As Integer = 0
|
|
' EgtGetInfo( nPart1Id, INFO_FRAME_DIR, nDir)
|
|
' Dim bSwap As Boolean = ( nDir = 0)
|
|
' Dim bCurved As Boolean = ( nDir >= 2)
|
|
' ' Recupero la lavorazione corrente di finitura con lama
|
|
' Dim sCurrSawFin As String = CurrentMachine.sCurrSawFinishing
|
|
' If String.IsNullOrEmpty(sCurrSawFin) Then Return True
|
|
' ' Inserisco la lavorazione corrente
|
|
' Dim nMchId As Integer = EgtAddMachining(NAME_FRAME_SAWFIN, sCurrSawFin)
|
|
' If nMchId = GDB_ID.NULL Then Return False
|
|
' ' La sposto prima di una eventuale spatolatura
|
|
' Dim nSideFinId As Integer = EgtGetFirstOperation()
|
|
' While nSideFinId <> GDB_ID.NULL
|
|
' Dim sName As String = String.Empty
|
|
' If EgtGetOperationName(nSideFinId, sName) AndAlso
|
|
' String.Compare(sName, NAME_FRAME_SAWSIDEFIN, True) = 0 Then
|
|
' Exit While
|
|
' End If
|
|
' nSideFinId = EgtGetNextOperation(nSideFinId)
|
|
' End While
|
|
' If nSideFinId <> GDB_ID.NULL Then
|
|
' If Not EgtRelocate(nMchId, nSideFinId, GDB_POS.BEFORE) Then
|
|
' EgtErase(nMchId)
|
|
' Return False
|
|
' End If
|
|
' End If
|
|
' ' Recupero sezioni e prima guida dei pezzi nel grezzo
|
|
' Dim nCount As Integer = EgtGetPartInRawPartCount(nRawId)
|
|
' Dim vId(nCount) As Integer
|
|
' Dim nInd As Integer = 0
|
|
' Dim nPartId As Integer = EgtGetFirstPartInRawPart(nRawId)
|
|
' vId(nCount) = EgtGetFirstInGroup(EgtGetFirstNameInGroup(nPartId, NAME_GUIDE))
|
|
' While nPartId <> GDB_ID.NULL
|
|
' vId(nInd) = EgtGetFirstInGroup(EgtGetFirstNameInGroup(nPartId, NAME_SECT))
|
|
' nInd += 1
|
|
' nPartId = EgtGetNextPartInRawPart(nPartId)
|
|
' End While
|
|
' ' Imposto la geometria
|
|
' EgtSetMachiningGeometry(vId)
|
|
' ' Imposto trim iniziale e finale
|
|
' EgtSetMachiningParam(MCH_MP.STARTADDLEN, If( bSwap, -dTrimEnd, -dTrimStart))
|
|
' EgtSetMachiningParam(MCH_MP.ENDADDLEN, If( bSwap, -dTrimStart, -dTrimEnd))
|
|
' ' Se cornice curva, imposto SCC
|
|
' If bCurved Then EgtSetMachiningParam(MCH_MP.SOLCHOICETYPE, MCH_SCC.ADIR_NEAR)
|
|
' ' Applico la lavorazione
|
|
' Return EgtApplyMachining(False)
|
|
'End Function
|
|
|
|
'Friend Function AddFrameSawSideFinishing(dTrimStart As Double, dTrimEnd As Double) As Boolean
|
|
' ' Cancello la lavorazione di spatolatura
|
|
' Dim nId As Integer = EgtGetOperationId(NAME_FRAME_SAWSIDEFIN)
|
|
' EgtRemoveOperation(nId)
|
|
' ' Recupero il grezzo corrente
|
|
' Dim nRawId As Integer = EgtGetFirstRawPart()
|
|
' If nRawId = GDB_ID.NULL Then Return False
|
|
' ' Se non ci sono pezzi, esco
|
|
' Dim nPart1Id As Integer = EgtGetFirstPartInRawPart( nRawId)
|
|
' If nPart1Id = GDB_ID.NULL Then Return True
|
|
' ' Verifico se cornice curva
|
|
' Dim nDir As Integer = 0
|
|
' EgtGetInfo(nPart1Id, INFO_FRAME_DIR, nDir)
|
|
' Dim bSwap As Boolean = ( nDir = 0)
|
|
' Dim bCurved As Boolean = ( nDir >= 2)
|
|
' ' Recupero la lavorazione corrente di spatolatura con lama
|
|
' Dim sCurrSawSideFin As String = CurrentMachine.sCurrSawSideFinishing
|
|
' If String.IsNullOrEmpty(sCurrSawSideFin) Then Return True
|
|
' ' Inserisco la lavorazione corrente
|
|
' Dim nMchId As Integer = EgtAddMachining(NAME_FRAME_SAWSIDEFIN, sCurrSawSideFin)
|
|
' If nMchId = GDB_ID.NULL Then Return False
|
|
' ' Recupero sezioni e prima guida dei pezzi nel grezzo
|
|
' Dim nCount As Integer = EgtGetPartInRawPartCount(nRawId)
|
|
' Dim vId(nCount) As Integer
|
|
' Dim nInd As Integer = 0
|
|
' Dim nPartId As Integer = EgtGetFirstPartInRawPart(nRawId)
|
|
' vId(nCount) = EgtGetFirstInGroup(EgtGetFirstNameInGroup(nPartId, NAME_GUIDE))
|
|
' While nPartId <> GDB_ID.NULL
|
|
' vId(nInd) = EgtGetFirstInGroup(EgtGetFirstNameInGroup(nPartId, NAME_SECT))
|
|
' nInd += 1
|
|
' nPartId = EgtGetNextPartInRawPart(nPartId)
|
|
' End While
|
|
' ' Imposto la geometria
|
|
' EgtSetMachiningGeometry(vId)
|
|
' ' Imposto trim iniziale e finale
|
|
' EgtSetMachiningParam(MCH_MP.STARTADDLEN, If( bSwap, -dTrimEnd, -dTrimStart))
|
|
' EgtSetMachiningParam(MCH_MP.ENDADDLEN, If( bSwap, -dTrimStart, -dTrimEnd))
|
|
' ' Se cornice curva, imposto SCC
|
|
' If bCurved Then EgtSetMachiningParam(MCH_MP.SOLCHOICETYPE, MCH_SCC.ADIR_NEAR)
|
|
' ' Applico la lavorazione
|
|
' Return EgtApplyMachining(False)
|
|
'End Function
|
|
|
|
'Friend Function AddFrameSawSingle() As Boolean
|
|
' ' Cancello la lavorazione di taglio singolo
|
|
' Dim nId As Integer = EgtGetOperationId(NAME_FRAME_SAWSINGLE)
|
|
' EgtRemoveOperation(nId)
|
|
' ' Recupero il grezzo corrente
|
|
' Dim nRawId As Integer = GetCurrentRaw()
|
|
' Dim nSolidId As Integer = EgtGetFirstNameInGroup(nRawId, NAME_RAW_SOLID)
|
|
' If nRawId = GDB_ID.NULL Or nSolidId = GDB_ID.NULL Then Return False
|
|
' Dim b3Raw As New BBox3d
|
|
' GetRawBox(b3Raw)
|
|
' ' Se non ci sono pezzi, esco
|
|
' If EgtGetPartInRawPartCount(nRawId) = 0 Then Return True
|
|
' ' Recupero la lavorazione corrente di taglio singolo con lama
|
|
' Dim sCurrSawSingle = CurrentMachine.sCurrSawSingle
|
|
' If String.IsNullOrEmpty(sCurrSawSingle) Then Return True
|
|
' ' Creo la lavorazione a partire dalla corrente
|
|
' If Not EgtMdbSetCurrMachining(sCurrSawSingle) Then Return False
|
|
' Dim sTuuid As String = String.Empty
|
|
' Dim sTool As String = String.Empty
|
|
' EgtMdbGetCurrMachiningParam(MCH_MP.TUUID, sTuuid)
|
|
' EgtTdbGetToolFromUUID(sTuuid, sTool)
|
|
' EgtTdbSetCurrTool(sTool)
|
|
' Dim dMaxMat As Double = 50
|
|
' EgtTdbGetCurrToolParam(MCH_TP.MAXMAT, dMaxMat)
|
|
' Dim dTDiam As Double = 200
|
|
' EgtTdbGetCurrToolParam(MCH_TP.DIAM, dTDiam)
|
|
' Dim nStepType As Integer = MCH_SAW_ST.ZIGZAG
|
|
' EgtMdbGetCurrMachiningParam(MCH_MP.STEPTYPE, nStepType)
|
|
' Dim dStep As Double = 0
|
|
' EgtMdbGetCurrMachiningParam(MCH_MP.STEP_, dStep)
|
|
' Dim nLiType As Integer = MCH_SAW_LI.CENT
|
|
' EgtMdbGetCurrMachiningParam(MCH_MP.LEADINTYPE, nLiType)
|
|
' Dim nLoType As Integer = MCH_SAW_LO.CENT
|
|
' EgtMdbGetCurrMachiningParam(MCH_MP.LEADOUTTYPE, nLoType)
|
|
' Dim dSpeed As Double = 0
|
|
' EgtMdbGetCurrMachiningParam(MCH_MP.SPEED, dSpeed)
|
|
' Dim dFeed As Double = 0
|
|
' EgtMdbGetCurrMachiningParam(MCH_MP.FEED, dFeed)
|
|
' Dim dStartFeed As Double = 0
|
|
' EgtMdbGetCurrMachiningParam(MCH_MP.STARTFEED, dStartFeed)
|
|
' Dim dEndFeed As Double = 0
|
|
' EgtMdbGetCurrMachiningParam(MCH_MP.ENDFEED, dEndFeed)
|
|
' Dim dTipFeed As Double = 0
|
|
' EgtMdbGetCurrMachiningParam(MCH_MP.TIPFEED, dTipFeed)
|
|
' Dim nMchId As Integer = EgtCreateMachining(NAME_FRAME_SAWSINGLE, MCH_MY.MILLING, sTool)
|
|
' If nMchId = GDB_ID.NULL Then Return False
|
|
' ' Recupero Id superficie e Ind facet
|
|
' Dim nSurfId As Integer = GDB_ID.NULL
|
|
' Dim nFacetInd As Integer = -1
|
|
' Dim nPirId As Integer = EgtGetFirstPartInRawPart(nRawId)
|
|
' While nPirId <> GDB_ID.NULL
|
|
' If EgtGetInfo(nPirId, INFO_FRAME_SURF, nSurfId) And
|
|
' EgtGetInfo(nPirId, INFO_FRAME_FACET, nFacetInd) Then
|
|
' Exit While
|
|
' End If
|
|
' nPirId = EgtGetNextPartInRawPart(nPirId)
|
|
' End While
|
|
' ' Recupero dati facet
|
|
' Dim ptCen As Point3d
|
|
' Dim vtN As Vector3d
|
|
' If Not EgtSurfTmFacetCenter(nSurfId, nFacetInd, GDB_ID.ROOT, ptCen, vtN) Then Return False
|
|
' ' Imposto la geometria
|
|
' EgtSetMachiningGeometry({nSurfId}, {nFacetInd})
|
|
' ' Calcolo adiacenze
|
|
' Dim vAdj As New List(Of Integer)
|
|
' If Not EgtSurfTmFacetAdjacencies(nSurfId, nFacetInd, vAdj) Then Return False
|
|
' ' Verifico facce adiacenti
|
|
' Dim ptAdjCen As Point3d
|
|
' Dim vtAdjN As Vector3d = Vector3d.NULL
|
|
' For Each nAdj As Integer In vAdj
|
|
' ' Ciclo sulle adiacenze del solo primo loop (esterno)
|
|
' If nAdj = STM_FACETADJ_ENDLOOP Then Exit For
|
|
' ' Verifico tipo di adiacenza
|
|
' Dim bAdj As Boolean = False
|
|
' Dim ptP1 As Point3d
|
|
' Dim ptP2 As Point3d
|
|
' Dim dAng As Double
|
|
' If Not EgtSurfTmFacetsContact(nSurfId, nFacetInd, nAdj, GDB_ID.ROOT, bAdj, ptP1, ptP2, dAng) Then Return False
|
|
' If dAng < 0 Then
|
|
' ' Non sono ammesse due facce limitanti
|
|
' If Not vtAdjN.IsSmall() Then Return False
|
|
' ' Recupero la normale della faccia limitante
|
|
' If Not EgtSurfTmFacetCenter(nSurfId, nAdj, GDB_ID.ROOT, ptAdjCen, vtAdjN) Then Return False
|
|
' End If
|
|
' Next
|
|
' ' Proprietà faccia
|
|
' Dim bHorizz As Boolean = (Math.Abs(vtN.x) < EPS_SMALL And Math.Abs(vtN.y) < EPS_SMALL)
|
|
' Dim bFree As Boolean = (vtAdjN.IsSmall() OrElse (ptCen.z > ptAdjCen.z And vtN.z > -EPS_SMALL))
|
|
' Dim bLeftSide As Boolean = (vtN.z >= -EPS_SMALL)
|
|
' Dim dElev As Double = 0
|
|
' Dim dStartDist As Double = 0
|
|
' Dim dEndDist As Double = 0
|
|
' ' Se faccia orizzontale non limitata da altre o sopra la limitante
|
|
' If bHorizz And bFree Then
|
|
' ' recupero ingombro della faccia
|
|
' Dim nCopyId As Integer = EgtCopySurfTmFacet(nSurfId, nFacetInd, EgtGetParent(nSurfId))
|
|
' If nCopyId = GDB_ID.NULL Then Return False
|
|
' Dim b3Copy As New BBox3d
|
|
' EgtGetBBoxGlob(nCopyId, GDB_BB.STANDARD, b3Copy)
|
|
' EgtErase(nCopyId)
|
|
' If b3Copy.IsEmpty() Then Return False
|
|
' ' assegno parametri lavorazione faccia
|
|
' If b3Copy.DimY() >= b3Copy.DimX() Then
|
|
' If (b3Raw.Max().x - b3Copy.Min().x) <= (b3Copy.Max().x - b3Raw.Min().x) Then
|
|
' EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_LEFT)
|
|
' dElev = b3Raw.Max().x - b3Copy.Min().x
|
|
' dStartDist = b3Raw.Max().y - b3Copy.Max().y
|
|
' dEndDist = b3Copy.Min().y - b3Raw.Min().y
|
|
' Else
|
|
' EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_RIGHT)
|
|
' dElev = b3Copy.Max().x - b3Raw.Min().x
|
|
' dStartDist = b3Copy.Min().y - b3Raw.Min().y
|
|
' dEndDist = b3Raw.Max().y - b3Copy.Max().y
|
|
' End If
|
|
' Else
|
|
' If (b3Raw.Max().y - b3Copy.Min().y) <= (b3Copy.Max().y - b3Raw.Min().y) Then
|
|
' EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_FRONT)
|
|
' dElev = b3Raw.Max().y - b3Copy.Min().y
|
|
' dStartDist = b3Copy.Min().x - b3Raw.Min().x
|
|
' dEndDist = b3Raw.Max().x - b3Copy.Max().x
|
|
' Else
|
|
' EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_BACK)
|
|
' dElev = b3Copy.Max().y - b3Raw.Min().y
|
|
' dStartDist = b3Raw.Max().x - b3Copy.Max().x
|
|
' dEndDist = b3Copy.Min().x - b3Raw.Min().x
|
|
' End If
|
|
' End If
|
|
' If Not bLeftSide Then
|
|
' Dim dTemp As Double = dStartDist
|
|
' dStartDist = dEndDist
|
|
' dEndDist = dTemp
|
|
' End If
|
|
' ' altrimenti
|
|
' Else
|
|
' Dim vtSide As Vector3d
|
|
' ' Se faccia non limitata da altre o sopra la limitante
|
|
' If bFree Then
|
|
' EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_DOWN)
|
|
' vtSide = Vector3d.Z_AX()
|
|
' ' altrimenti è stata trovata una faccia adiacente limitante
|
|
' Else
|
|
' If vtAdjN.x > 10 * EPS_SMALL Then
|
|
' EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_LEFT)
|
|
' vtSide = Vector3d.X_AX()
|
|
' ElseIf vtAdjN.x < -10 * EPS_SMALL Then
|
|
' EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_RIGHT)
|
|
' vtSide = -Vector3d.X_AX()
|
|
' ElseIf vtAdjN.y > 10 * EPS_SMALL Then
|
|
' EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_FRONT)
|
|
' vtSide = Vector3d.Y_AX()
|
|
' ElseIf vtAdjN.y < -10 * EPS_SMALL Then
|
|
' EgtSetMachiningParam(MCH_MP.FACEUSE, MCH_MIL_FU.ORTUP_BACK)
|
|
' vtSide = -Vector3d.Y_AX()
|
|
' End If
|
|
' End If
|
|
' ' Calcolo elevazione
|
|
' Dim ptP1, ptP2 As Point3d
|
|
' If Not EgtSurfTmFacetOppositeSide(nSurfId, nFacetInd, vtSide, GDB_ID.ROOT, ptP1, ptP2) Then Return False
|
|
' Dim ptPM As Point3d = Point3d.Media(ptP1, ptP2)
|
|
' Dim vtElev As Vector3d = vtN ^ (vtSide ^ vtN)
|
|
' If Not vtElev.Normalize() Then Return False
|
|
' Dim vInters As New List(Of FlagPar)
|
|
' If Not EgtLineSurfTmInters(ptPM, vtElev, nSolidId, GDB_ID.ROOT, vInters) Then Return False
|
|
' If vInters.Count() = 0 OrElse vInters(vInters.Count() - 1).dPar <= EPS_SMALL Then
|
|
' If Not EgtLineSurfTmInters(ptPM, vtElev, nSurfId, GDB_ID.ROOT, vInters) Then Return False
|
|
' End If
|
|
' If vInters.Count() > 0 AndAlso vInters(vInters.Count() - 1).dPar > EPS_SMALL Then
|
|
' dElev = vInters(vInters.Count() - 1).dPar
|
|
' Else
|
|
' dElev = dMaxMat
|
|
' End If
|
|
' ' Calcolo distanze iniziale e finale
|
|
' Dim vtTg As Vector3d = ptP2 - ptP1
|
|
' If Not vtTg.Normalize() Then Return False
|
|
' If Not EgtLineSurfTmInters(ptP1, -vtTg, nSolidId, GDB_ID.ROOT, vInters) Then Return False
|
|
' If vInters.Count() > 0 AndAlso vInters(vInters.Count() - 1).dPar > EPS_SMALL Then
|
|
' dStartDist = vInters(vInters.Count() - 1).dPar
|
|
' Else
|
|
' dStartDist = 0
|
|
' End If
|
|
' If Not EgtLineSurfTmInters(ptP2, vtTg, nSolidId, GDB_ID.ROOT, vInters) Then Return False
|
|
' If vInters.Count() > 0 AndAlso vInters(vInters.Count() - 1).dPar > EPS_SMALL Then
|
|
' dEndDist = vInters(vInters.Count() - 1).dPar
|
|
' Else
|
|
' dEndDist = 0
|
|
' End If
|
|
' End If
|
|
' ' Imposto SCC
|
|
' EgtSetMachiningParam(MCH_MP.SOLCHOICETYPE, MCH_SCC.ADIR_NEAR)
|
|
' ' Imposto lato di correzione
|
|
' EgtSetMachiningParam(MCH_MP.WORKSIDE, If(bLeftSide, MCH_MIL_WS.LEFT, MCH_MIL_WS.RIGHT))
|
|
' ' Annullo affondamento
|
|
' EgtSetMachiningParam(MCH_MP.DEPTH, 0.0)
|
|
' ' Se elevazione superiore a massimo materiale, riduco opportunamento per non collidere
|
|
' If dElev > dMaxMat Then
|
|
' EgtSetMachiningParam(MCH_MP.OFFSR, (dElev - dMaxMat))
|
|
' dElev = dMaxMat
|
|
' End If
|
|
' ' Se richiesto, imposto step di lato
|
|
' EgtSetMachiningParam(MCH_MP.STEPTYPE, If(nStepType = MCH_SAW_ST.ONEWAY, MCH_MIL_ST.ONEWAY, MCH_MIL_ST.ZIGZAG))
|
|
' If dStep >= EPS_SMALL And dStep < dElev Then
|
|
' EgtSetMachiningParam(MCH_MP.STEP_, dStep)
|
|
' EgtSetMachiningParam(MCH_MP.USERNOTES, "SideElev=" & dElev.ToString() & ";")
|
|
' End If
|
|
' ' Recupero la distanza di sicurezza
|
|
' Dim dSafeZ As Double = CurrentMachine.dSafeZ()
|
|
' ' Imposto attacco e uscita
|
|
' Dim dTgAgg As Double = Math.Sqrt(dElev * (dTDiam - dElev))
|
|
' EgtSetMachiningParam(MCH_MP.LEADINTYPE, MCH_MIL_LI.LINEAR)
|
|
' If nLiType = MCH_SAW_LI.CENT Or nLiType = MCH_SAW_LI.STRICT Then
|
|
' EgtSetMachiningParam(MCH_MP.LIPERP, dElev + dSafeZ)
|
|
' Else
|
|
' EgtSetMachiningParam(MCH_MP.LITANG, dStartDist + dTgAgg + dSafeZ)
|
|
' End If
|
|
' EgtSetMachiningParam(MCH_MP.LEADOUTTYPE, MCH_MIL_LO.LINEAR)
|
|
' If nLoType = MCH_SAW_LO.CENT Or nLoType = MCH_SAW_LO.STRICT Then
|
|
' EgtSetMachiningParam(MCH_MP.LOPERP, dElev + dSafeZ)
|
|
' Else
|
|
' EgtSetMachiningParam(MCH_MP.LOTANG, dEndDist + dTgAgg + dSafeZ)
|
|
' End If
|
|
' ' Imposto speed e feed
|
|
' EgtSetMachiningParam(MCH_MP.SPEED, dSpeed)
|
|
' EgtSetMachiningParam(MCH_MP.FEED, dFeed)
|
|
' EgtSetMachiningParam(MCH_MP.STARTFEED, dStartFeed)
|
|
' EgtSetMachiningParam(MCH_MP.ENDFEED, dEndFeed)
|
|
' EgtSetMachiningParam(MCH_MP.TIPFEED, dTipFeed)
|
|
' ' Applico la lavorazione
|
|
' Return EgtApplyMachining(False)
|
|
'End Function
|
|
|
|
End Module
|