- aggiunta gestione spostamento pezzo print quando aggiunto o rimosso e stampa a 45 gradi

Icarus/ManagePartPanel/ManagePartUtility.vb

@@ -700,13 +700,6 @@ Public Class GeomEntity_MenuItem
                Dim ManagePart_Part As ManagePart_Part = New ManagePart_Part(NewPart)
                ' elimino da posizione originale
                m_OrigEntity.OrigLayer.EntityList.Remove(m_OrigEntity)
-               'Dim bUpdateAllContextMenu As Boolean = False
-               'Dim NewLayer As ManagePart_Layer = ManagePart_Part.LayerList.FirstOrDefault(Function(x) x.Type = ManagePart_Layer.LayerType.PRINT_SOLID)
-               'If Not IsNothing(NewLayer) Then
-               '   NewLayer.EntityList.Add(m_OrigEntity)
-               '   ' aggiorno riferimenti nell'entita'
-               '   m_OrigEntity.UpdateOrigLayer(NewLayer)
-               'End If
                EgtSetInfo(nPartId, PART_NAME, ManagePart_Part.sName)
                ' lo aggiungo a lista
                Map.refManagePartPanelVM.ManagerPartList.Add(ManagePart_Part)
@@ -761,6 +754,14 @@ Public Class GeomEntity_MenuItem
                Select Case m_OrigEntity.OrigLayer.Type
                   Case ManagePart_Layer.LayerType.PRINT_SOLID
                      EgtResetMark(m_OrigEntity.nId)
+                     ' se e' presente flag di spostamento a 45 gradi
+                     Dim nPartId As Integer = EgtGetParent(EgtGetParent(m_OrigEntity.nId))
+                     Dim vtMoved As Vector3d
+                     If EgtGetInfo(nPartId, "MovedPart", vtMoved) Then
+                        ' lo sposto e rimuovo info
+                        EgtMove(m_OrigEntity.nId, -vtMoved, GDB_RT.GLOB)
+                        EgtRemoveInfo(nPartId, "MovedPart")
+                     End If
                   Case ManagePart_Layer.LayerType.MACH_START
                   Case ManagePart_Layer.LayerType.RIBS
                      EgtRemoveInfo(m_OrigEntity.nId, KEY_RIB_TYPE)
@@ -788,6 +789,8 @@ Public Class GeomEntity_MenuItem
                   Case ManagePart_Layer.LayerType.PRINT_SOLID
                      EgtSetName(m_OrigEntity.nId, PRINT_SOLID)
                      EgtSetColor(m_OrigEntity.nId, c3Print)
+                     ' rimuovo eventuale nota spostamento per 45 gradi
+                     EgtRemoveInfo(m_OrigEntity.OrigLayer.OrigPart.nId, "MovedPart")
                   Case ManagePart_Layer.LayerType.MACH_START
                      EgtSetName(m_OrigEntity.nId, LAY_MACH_START)
                      EgtSetColor(m_OrigEntity.nId, c3MachStart)