From f48a8d524b35e335b29cc7fcfaef667852275b1d Mon Sep 17 00:00:00 2001
From: Emmanuele Sassi <emmanuele.sassi@egaltech.com>
Date: Mon, 21 Nov 2016 14:44:32 +0000
Subject: [PATCH] EgtCAM5 : - Correzzione in lettura file di testo per farlo
 funzionare su Windows XP. - Correzione in binding lista identificativi delle
 macchine in tabella per farlo funzionare su Windows XP. - Correzione SaveAs
 che non funzionava correttamente.

---
 MTableDb/MTableDbView.xaml                    |   9 +-
 MTableDb/MTableDbViewModel.vb                 |   7 +-
 MTableDb/TableUtility.vb                      |   4 +-
 .../DispositionParameterExpanderViewModel.vb  | 276 ++++++------------
 4 files changed, 107 insertions(+), 189 deletions(-)

diff --git a/MTableDb/MTableDbView.xaml b/MTableDb/MTableDbView.xaml
index a3a8be7..99bcc68 100644
--- a/MTableDb/MTableDbView.xaml
+++ b/MTableDb/MTableDbView.xaml
@@ -55,7 +55,7 @@
             </Button>
          </UniformGrid>
 
-         <ListBox Name="TablesListBox" Grid.Row="1" ItemsSource="{Binding TablesList}"
+         <ListBox x:Name="TablesListBox" Grid.Row="1" ItemsSource="{Binding TablesList}"
             IsSynchronizedWithCurrentItem="False">
             <ListBox.ItemContainerStyle>
                <Style TargetType="{x:Type ListBoxItem}">
@@ -83,12 +83,11 @@
 
          <Grid>
             <Grid.RowDefinitions>
-               <RowDefinition Height="Auto"/>
                <RowDefinition Height="Auto"/>
                <RowDefinition Height="1*"/>
             </Grid.RowDefinitions>
 
-            <GroupBox Grid.Row="1" Header="{Binding MachListHeader}" BorderBrush="{StaticResource EgaltechBlue1}" BorderThickness="2"
+            <GroupBox Grid.Row="0" Header="{Binding MachListHeader}" BorderBrush="{StaticResource EgaltechBlue1}" BorderThickness="2"
                Padding="3" Margin="2,2,2,2">
                
                <ItemsControl Name="MachineList"
@@ -126,7 +125,7 @@
                SelectedItem="{Binding Path=SelectedItem.SelectedAssociation,
                                              ElementName=TablesListBox,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
                IsSynchronizedWithCurrentItem="False"
-               Grid.Row="2"
+               Grid.Row="1"
                AutoGenerateColumns="False"
                CanUserSortColumns="False"
                CanUserResizeColumns="False"
@@ -195,7 +194,7 @@
                         <DataTemplate>
                            <ComboBox IsEditable="False" 
                               SelectedItem="{Binding MachId,Mode=TwoWay,UpdateSourceTrigger=PropertyChanged}"
-                              ItemsSource="{Binding Path=SelectedItem.MachIdList,ElementName=TablesListBox,Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
+                              ItemsSource="{Binding Source={x:Reference TablesListBox}, Path=SelectedItem.MachIdList, Mode=OneWay, UpdateSourceTrigger=PropertyChanged}"/>
                         </DataTemplate>
                      </DataGridTemplateColumn.CellEditingTemplate>
                      <DataGridTemplateColumn.CellTemplate>
diff --git a/MTableDb/MTableDbViewModel.vb b/MTableDb/MTableDbViewModel.vb
index 1b1f21b..1c0ddf5 100644
--- a/MTableDb/MTableDbViewModel.vb
+++ b/MTableDb/MTableDbViewModel.vb
@@ -189,7 +189,6 @@ Namespace EgtCAM5
          EgtGetCurrMachineName(m_sPreviousActiveMachine)
          MTableListBoxItem.NewMTableIndex = 0
          UpdateTables()
-         SetActiveTable()
          If m_TablesList.Count > 0 Then
             m_TablesList(0).IsSelected = True
          End If
@@ -215,6 +214,7 @@ Namespace EgtCAM5
                VerifyNewName(Path.GetFileNameWithoutExtension(FileTableList(Index)))
             End If
          Next
+         SetActiveTable()
       End Sub
 
       Private Sub VerifyNewName(sNewName As String)
@@ -235,7 +235,7 @@ Namespace EgtCAM5
          Dim ActiveMTableName As String = String.Empty
          Dim ActiveMTableFilePath As String = Path.GetDirectoryName(IniFile.m_sTablesRoot) & "\CurrMTable.lua"
          If File.Exists(ActiveMTableFilePath) Then
-            Dim ReadFile As IEnumerable(Of String) = File.ReadLines(ActiveMTableFilePath)
+            Dim ReadFile As String() = File.ReadAllLines(ActiveMTableFilePath)
             For LineIndex As Integer = 0 To ReadFile.Count - 1
                If ReadFile(LineIndex).Contains(MTABLENAME) Then
                   ActiveMTableName = TableUtility.SearchKey(ReadFile(LineIndex), MTNAME)
@@ -245,6 +245,7 @@ Namespace EgtCAM5
             For Index As Integer = 0 To m_TablesList.Count - 1
                If m_TablesList(Index).TableName = ActiveMTableName Then
                   m_TablesList(Index).ActiveTable = True
+                  Exit For
                End If
             Next
          End If
@@ -444,7 +445,7 @@ Namespace EgtCAM5
             End If
          Next
          ' Scrivo il file di configurazione con il nome di questa tavola
-         Dim FileContent As IEnumerable(Of String) = File.ReadLines(Path.GetDirectoryName(IniFile.m_sTablesRoot) & "\" & CURRMTABLE_FILE)
+         Dim FileContent As String() = File.ReadAllLines(Path.GetDirectoryName(IniFile.m_sTablesRoot) & "\" & CURRMTABLE_FILE)
          Dim NewTableFileContent As New List(Of String)
          For LineIndex As Integer = 0 To FileContent.Count - 1
             Dim sCurrLine As String = FileContent(LineIndex)
diff --git a/MTableDb/TableUtility.vb b/MTableDb/TableUtility.vb
index 52d5d47..0daf618 100644
--- a/MTableDb/TableUtility.vb
+++ b/MTableDb/TableUtility.vb
@@ -20,7 +20,7 @@ Module TableUtility
    Private Const OPER As String = "Oper"
 
    Friend Sub ReadDoorsTable(Table As MTableListBoxItem)
-      Dim FileContent As IEnumerable(Of String) = File.ReadLines(Table.m_TableNamePath)
+      Dim FileContent As String() = File.ReadAllLines(Table.m_TableNamePath)
       Dim bMMachineData As Boolean = False
       Dim bMTable As Boolean = False
       For LineIndex As Integer = 0 To FileContent.Count - 1
@@ -126,7 +126,7 @@ Module TableUtility
    End Function
 
    Friend Sub WriteDoorTable(SelectedTable As MTableListBoxItem, sTableNamePath As String)
-      Dim FileContent As IEnumerable(Of String) = File.ReadLines(IniFile.m_sTablesRoot & "\" & MTABLETEMPLATE_FILE)
+      Dim FileContent As String() = File.ReadAllLines(IniFile.m_sTablesRoot & "\" & MTABLETEMPLATE_FILE)
       Dim NewTableFileContent As New List(Of String)
       Dim bMMachineData As Boolean = False
       Dim bMTable As Boolean = False
diff --git a/ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionParameterExpanderViewModel.vb b/ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionParameterExpanderViewModel.vb
index be5da45..04da72f 100644
--- a/ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionParameterExpanderViewModel.vb
+++ b/ProjectPage/OptionPanel/MachiningOptionPanel/OperationExpander/DispositionParameterExpander/DispositionParameterExpanderViewModel.vb
@@ -372,115 +372,6 @@ Namespace EgtCAM5
                      MoveRawPartPartAndFixture(GDB_ID.SEL, New Vector3d(0, vtRemainingMove.y, 0))
                   End If
                End If
-
-
-
-
-               '' flag che indica se è il primo oggetto selezionato
-               'Dim bFirstRawId As Boolean = True
-               'Dim bFirstFixtId As Boolean = True
-               '' Vettore di movimento
-               'Dim vtRawPartMove As Vector3d
-               'Dim vtFixtureMove As Vector3d
-               'Dim nSelId As Integer = EgtGetFirstSelectedObj()
-               'While nSelId <> GDB_ID.NULL
-               '   Select Case m_ActiveObject
-               '      Case ObjectType.RAWPART
-               '         If bFirstRawId Then
-               '            Dim bboxRawPart As New BBox3d
-               '            EgtGetBBox(nSelId, GDB_BB.STANDARD, bboxRawPart)
-               '            Dim ptRawRefPoint As Point3d
-               '            Select Case m_RawRefPosition
-               '               Case MCH_CR.TL
-               '                  ptRawRefPoint.x = bboxRawPart.Min.x
-               '                  ptRawRefPoint.y = bboxRawPart.Max.y
-               '               Case MCH_CR.TR
-               '                  ptRawRefPoint.x = bboxRawPart.Max.x
-               '                  ptRawRefPoint.y = bboxRawPart.Max.y
-               '               Case MCH_CR.BL
-               '                  ptRawRefPoint.x = bboxRawPart.Min.x
-               '                  ptRawRefPoint.y = bboxRawPart.Min.y
-               '               Case MCH_CR.BR
-               '                  ptRawRefPoint.x = bboxRawPart.Max.x
-               '                  ptRawRefPoint.y = bboxRawPart.Min.y
-               '            End Select
-               '            ptRawRefPoint.z = bboxRawPart.Min.z
-               '            Dim TableRefInputPoint As New Point3d(InputPoint)
-               '            Dim ptTableRef As Point3d
-               '            EgtGetTableRef(1, ptTableRef)
-               '            TableRefInputPoint.LocToLoc(EgtGetGridFrame(), New Frame3d(ptTableRef))
-               '            vtRawPartMove = TableRefInputPoint - ptRawRefPoint
-               '            bFirstRawId = False
-               '         End If
-               '         Dim bboxCurrRawPart As New BBox3d
-               '         EgtGetBBox(nSelId, GDB_BB.STANDARD, bboxCurrRawPart)
-               '         Dim ptCurrRawRefPoint As Point3d
-               '         Select Case m_RawRefPosition
-               '            Case MCH_CR.TL
-               '               ptCurrRawRefPoint.x = bboxCurrRawPart.Min.x
-               '               ptCurrRawRefPoint.y = bboxCurrRawPart.Max.y
-               '            Case MCH_CR.TR
-               '               ptCurrRawRefPoint.x = bboxCurrRawPart.Max.x
-               '               ptCurrRawRefPoint.y = bboxCurrRawPart.Max.y
-               '            Case MCH_CR.BL
-               '               ptCurrRawRefPoint.x = bboxCurrRawPart.Min.x
-               '               ptCurrRawRefPoint.y = bboxCurrRawPart.Min.y
-               '            Case MCH_CR.BR
-               '               ptCurrRawRefPoint.x = bboxCurrRawPart.Max.x
-               '               ptCurrRawRefPoint.y = bboxCurrRawPart.Min.y
-               '         End Select
-               '         ptCurrRawRefPoint.z = bboxCurrRawPart.Min.z
-               '         Dim bErrorMoving As Boolean = False
-               '         If Not EgtMoveToCornerRawPart(nSelId, ptCurrRawRefPoint + vtRawPartMove, m_RawRefPosition) Then
-               '            bErrorMoving = True
-               '         ElseIf Not DispositionParameterExpanderViewModel.VerifyRawPartFixturePos(nSelId) Then
-               '            EgtMoveToCornerRawPart(nSelId, ptCurrRawRefPoint, m_RawRefPosition)
-               '            bErrorMoving = True
-               '         End If
-               '         If bErrorMoving Then
-               '            m_InputErrorMsg = "Impossibile muovere il grezzo fuori dalla tavola"
-               '            OnPropertyChanged("InputErrorMsg")
-               '         End If
-               '      Case ObjectType.PART
-               '         'EgtMove...
-               '      Case ObjectType.FIXTURE
-               '         If bFirstFixtId Then
-               '            Dim SelObjFrame3d As New Frame3d(Frame3d.GLOB)
-               '            EgtGetGroupGlobFrame(nSelId, SelObjFrame3d)
-               '            SelObjFrame3d.ToLoc(EgtGetGridFrame())
-               '            Dim FixturePoint As New Point3d(SelObjFrame3d.Orig)
-               '            ' Ricavo il vettore di movimento (tengo solo XY)
-               '            vtFixtureMove = InputPoint - FixturePoint
-               '            vtFixtureMove.z = 0
-               '            bFirstFixtId = False
-               '         End If
-               '         Dim nErrorMoving As Integer = 0
-               '         If Not EgtMoveFixture(nSelId, vtFixtureMove) Then
-               '            nSelId = EgtGetPrevSelectedObj()
-               '            nErrorMoving = 1
-               '         ElseIf Not DispositionParameterExpanderViewModel.VerifyRawPartFixturePos(nSelId) Then
-               '            nErrorMoving = 2
-               '         End If
-               '         If nErrorMoving <> 0 Then
-               '            If nErrorMoving = 1 Then
-               '               m_InputErrorMsg = "Impossibile muovere una ventosa fuori dalla tavola"
-               '            ElseIf nErrorMoving = 2 Then
-               '               m_InputErrorMsg = "Posizione già occupata da un'altra ventosa"
-               '            End If
-               '            OnPropertyChanged("InputErrorMsg")
-               '            While nSelId <> GDB_ID.NULL
-               '               If EgtVerifyFixture(nSelId) Then
-               '                  EgtMoveFixture(nSelId, -vtFixtureMove)
-               '               ElseIf EgtVerifyRawPartCurrPhase(nSelId) Then
-               '                  EgtMoveRawPart(nSelId, -vtFixtureMove)
-               '               End If
-               '               nSelId = EgtGetPrevSelectedObj()
-               '            End While
-               '         End If
-               '   End Select
-               'nSelId = EgtGetNextSelectedObj()
-               'End While
-
                ' se rotazione
             Else
                Dim InputAngle As Double = 0
@@ -695,6 +586,8 @@ Namespace EgtCAM5
          Dim bboxFixture As New BBox3d
          EgtGetBBoxGlob(nFixtureId, GDB_BB.STANDARD, bboxFixture)
          Dim bboxRawPart As New BBox3d
+         ' Variabile che indica se il riferimento non è in battuta su nessun grezzo
+         Dim bRefAttachedToRaw As Boolean = False
          ' Ciclo sui grezzi della fase corrente per verificare le collisioni con il sottopezzo mosso
          Dim nRawPartId As Integer = EgtGetFirstRawPart()
          While nRawPartId <> GDB_ID.NULL
@@ -773,45 +666,59 @@ Namespace EgtCAM5
                      If bboxFixture.OverlapsXY(bboxRawPart) Then
                         ' recupero arco del riferimento
                         Dim arcRefId As Integer = EgtGetFirstNameInGroup(EgtGetFirstNameInGroup(nFixtureId, SOLID), REF_ARC)
-                        ' recupero contorno del grezzo
-                        Dim ccompoRawPartOutlineId As Integer = EgtGetFirstNameInGroup(nRawPartId, RAWOUTLINE)
-                        'recupero il raggio dell'arco di riferimento
-                        Dim dArcRadius As Double
-                        EgtArcRadius(arcRefId, dArcRadius)
-                        ' faccio copia e offset del contorno grezzo
-                        Dim ccompoRawPartOutlineOffsetId As Integer = EgtCopyGlob(ccompoRawPartOutlineId, ccompoRawPartOutlineId, GDB_POS.AFTER)
-                        EgtOffsetCurve(ccompoRawPartOutlineOffsetId, dArcRadius, OFF_TYPE.FILLET)
-                        ' recupero centro dell'arco di riferimento
-                        Dim ptArcCenter As Point3d
-                        EgtCenterPoint(arcRefId, ccompoRawPartOutlineOffsetId, ptArcCenter)
-                        ' verifico quale è il punto dell'offset vicino al centro dell'arco di riferimento
-                        Dim dDist As Double
-                        Dim ptMin As Point3d
-                        Dim nSide As Integer
-                        EgtGetMinDistPntSidePointCurve(ptArcCenter, ccompoRawPartOutlineOffsetId, Vector3d.Z_AX, dDist, ptMin, nSide)
-                        ' cancello offset
-                        EgtErase(ccompoRawPartOutlineOffsetId)
-                        ' calcolo il vettore di spostamento necessario ad allinearli
-                        Dim vtDelta As Vector3d = ptArcCenter - ptMin
-                        vtDelta.z = 0
-                        ' se i punti coincidono, esco 
-                        If vtDelta.IsSmall() Then
-                           ' il grezzo è in battuta sul riferimento
-                           Dim nContactColDisk As Integer = EgtGetFirstNameInGroup(EgtGetFirstNameInGroup(nFixtureId, SOLID), REF_CONTACTCOLDISK)
-                           EgtSetColor(nContactColDisk, ReferenceContactColGreen)
+                        ' calcolo bbox dell'arco di riferimento
+                        Dim bboxArcRef As New BBox3d
+                        EgtGetBBoxGlob(arcRefId, GDB_BB.STANDARD, bboxArcRef)
+                        ' ne faccio l'offset ??
+                        'bboxArcRef.Expand(10)
+                        If bboxRawPart.OverlapsXY(bboxArcRef) Then
+                           ' recupero contorno del grezzo
+                           Dim ccompoRawPartOutlineId As Integer = EgtGetFirstNameInGroup(nRawPartId, RAWOUTLINE)
+                           'recupero il raggio dell'arco di riferimento
+                           Dim dArcRadius As Double
+                           EgtArcRadius(arcRefId, dArcRadius)
+                           ' faccio copia e offset del contorno grezzo
+                           Dim ccompoRawPartOutlineOffsetId As Integer = EgtCopyGlob(ccompoRawPartOutlineId, ccompoRawPartOutlineId, GDB_POS.AFTER)
+                           EgtOffsetCurve(ccompoRawPartOutlineOffsetId, dArcRadius, OFF_TYPE.FILLET)
+                           ' recupero centro dell'arco di riferimento
+                           Dim ptArcCenter As Point3d
+                           EgtCenterPoint(arcRefId, ccompoRawPartOutlineOffsetId, ptArcCenter)
+                           ' verifico quale è il punto dell'offset vicino al centro dell'arco di riferimento
+                           Dim dDist As Double
+                           Dim ptMin As Point3d
+                           Dim nSide As Integer
+                           EgtGetMinDistPntSidePointCurve(ptArcCenter, ccompoRawPartOutlineOffsetId, Vector3d.Z_AX, dDist, ptMin, nSide)
+                           ' cancello offset
+                           EgtErase(ccompoRawPartOutlineOffsetId)
+                           ' calcolo il vettore di spostamento necessario ad allinearli
+                           Dim vtDelta As Vector3d = ptArcCenter - ptMin
+                           vtDelta.z = 0
+                           ' se i punti coincidono, esco 
+                           If vtDelta.IsSmall() Then
+                              ' il grezzo è in battuta sul riferimento
+                              Dim nContactColDisk As Integer = EgtGetFirstNameInGroup(EgtGetFirstNameInGroup(nFixtureId, SOLID), REF_CONTACTCOLDISK)
+                              EgtSetColor(nContactColDisk, ReferenceContactColGreen)
+                              bRefAttachedToRaw = True
+                           Else
+                              ' altrimenti riporto il vettore di correzione
+                              vtRefMove = -vtDelta.Glob(ccompoRawPartOutlineId)
+                           End If
                         Else
-                           ' altrimenti riporto il vettore di correzione
-                           vtRefMove = -vtDelta.Glob(ccompoRawPartOutlineId)
+                           ' il grezzo non è in battuta sul riferimento
+                           Dim nContactColDisk As Integer = EgtGetFirstNameInGroup(EgtGetFirstNameInGroup(nFixtureId, SOLID), REF_CONTACTCOLDISK)
+                           EgtSetColor(nContactColDisk, ReferenceContactColRed)
                         End If
-                     Else
-                        ' il grezzo non è in battuta sul riferimento
-                        Dim nContactColDisk As Integer = EgtGetFirstNameInGroup(EgtGetFirstNameInGroup(nFixtureId, SOLID), REF_CONTACTCOLDISK)
-                        EgtSetColor(nContactColDisk, ReferenceContactColRed)
                      End If
                End Select
             End If
             nRawPartId = EgtGetNextRawPart(nRawPartId)
          End While
+         ' se è un riferimento e non è in battuta sul nessun grezzo
+         If FixtureType(nFixtureId) = FIX_TYPE.REFERENCE AndAlso Not bRefAttachedToRaw Then
+            ' lo segnalo
+            Dim nContactColDisk As Integer = EgtGetFirstNameInGroup(EgtGetFirstNameInGroup(nFixtureId, SOLID), REF_CONTACTCOLDISK)
+            EgtSetColor(nContactColDisk, ReferenceContactColRed)
+         End If
          Return True
       End Function
 
@@ -891,50 +798,61 @@ Namespace EgtCAM5
                   Case FIX_TYPE.REFERENCE
                      ' recupero arco del riferimento
                      Dim arcRefId As Integer = EgtGetFirstNameInGroup(EgtGetFirstNameInGroup(nFixtureId, SOLID), REF_ARC)
-                     ' recupero contorno del grezzo
-                     Dim ccompoRawPartOutlineId As Integer = EgtGetFirstNameInGroup(nRawId, RAWOUTLINE)
-                     'recupero il raggio dell'arco di riferimento
-                     Dim dArcRadius As Double
-                     EgtArcRadius(arcRefId, dArcRadius)
-                     ' faccio copia e offset del contorno grezzo
-                     Dim ccompoRawPartOutlineOffsetId As Integer = EgtCopyGlob(ccompoRawPartOutlineId, ccompoRawPartOutlineId, GDB_POS.AFTER)
-                     EgtOffsetCurve(ccompoRawPartOutlineOffsetId, dArcRadius, OFF_TYPE.FILLET)
-                     ' recupero centro dell'arco di riferimento
-                     Dim ptArcCenter As Point3d
-                     EgtCenterPoint(arcRefId, ccompoRawPartOutlineId, ptArcCenter)
-                     ' Creo un segmento avente origine nel centro dell'arco e direzione opposta a quella del movimento
-                     Dim nDistLine As Integer = EgtCreateLinePVL(EgtGetParent(ccompoRawPartOutlineId), ptArcCenter, vtOrigMove.Loc(ccompoRawPartOutlineId), 10000)
-                     ' cerco punto di intersezione tra il segmento e l'offset
-                     Dim ptDist As Point3d
-                     If EgtIntersectionPoint(nDistLine, ccompoRawPartOutlineOffsetId, ptArcCenter, ptDist) Then
-                        ' calcolo il vettore di spostamento necessario ad allinearli
-                        Dim vtDelta As Vector3d = -(ptDist - ptArcCenter)
-                        vtDelta.z = 0
-                        ' se il vettore non è nullo
-                        If vtDelta.IsSmall() Then
-                           ' il grezzo è in battuta sul riferimento
-                           Dim nContactColDisk As Integer = EgtGetFirstNameInGroup(EgtGetFirstNameInGroup(nFixtureId, SOLID), REF_CONTACTCOLDISK)
-                           EgtSetColor(nContactColDisk, ReferenceContactColGreen)
-                        Else
-                           vtDelta = vtDelta.Glob(ccompoRawPartOutlineId)
-                           ' il vettore da restituire è nullo, quindi lo inizializzo
-                           If vtRefMove.IsSmall() Then
-                              vtRefMove = vtDelta
-                              ' altrimenti lo confronto
+                     ' calcolo bbox dell'arco di riferimento
+                     Dim bboxArcRef As New BBox3d
+                     EgtGetBBoxGlob(arcRefId, GDB_BB.STANDARD, bboxArcRef)
+                     ' ne faccio l'offset ??
+                     'bboxArcRef.Expand(10)
+                     If bboxRawPartId.OverlapsXY(bboxArcRef) Then
+                        ' recupero contorno del grezzo
+                        Dim ccompoRawPartOutlineId As Integer = EgtGetFirstNameInGroup(nRawId, RAWOUTLINE)
+                        'recupero il raggio dell'arco di riferimento
+                        Dim dArcRadius As Double
+                        EgtArcRadius(arcRefId, dArcRadius)
+                        ' faccio copia e offset del contorno grezzo
+                        Dim ccompoRawPartOutlineOffsetId As Integer = EgtCopyGlob(ccompoRawPartOutlineId, ccompoRawPartOutlineId, GDB_POS.AFTER)
+                        EgtOffsetCurve(ccompoRawPartOutlineOffsetId, dArcRadius, OFF_TYPE.FILLET)
+                        ' recupero centro dell'arco di riferimento
+                        Dim ptArcCenter As Point3d
+                        EgtCenterPoint(arcRefId, ccompoRawPartOutlineId, ptArcCenter)
+                        ' Creo un segmento avente origine nel centro dell'arco e direzione opposta a quella del movimento
+                        Dim nDistLine As Integer = EgtCreateLinePVL(EgtGetParent(ccompoRawPartOutlineId), ptArcCenter, vtOrigMove.Loc(ccompoRawPartOutlineId), 10000)
+                        ' cerco punto di intersezione tra il segmento e l'offset
+                        Dim ptDist As Point3d
+                        If EgtIntersectionPoint(nDistLine, ccompoRawPartOutlineOffsetId, ptArcCenter, ptDist) Then
+                           ' calcolo il vettore di spostamento necessario ad allinearli
+                           Dim vtDelta As Vector3d = -(ptDist - ptArcCenter)
+                           vtDelta.z = 0
+                           ' se il vettore non è nullo
+                           If vtDelta.IsSmall() Then
+                              ' il grezzo è in battuta sul riferimento
+                              Dim nContactColDisk As Integer = EgtGetFirstNameInGroup(EgtGetFirstNameInGroup(nFixtureId, SOLID), REF_CONTACTCOLDISK)
+                              EgtSetColor(nContactColDisk, ReferenceContactColGreen)
                            Else
-                              ' per ogni coordinata devo prendere il massimo in direzione opposta allo spostamento originale
-                              ' calcolo il versore nella direzione del movimento
-                              Dim vtMoveVers As New Vector3d(vtOrigMove)
-                              vtMoveVers.Normalize()
-                              If (vtDelta * vtMoveVers) < (vtRefMove * vtMoveVers) Then
+                              vtDelta = vtDelta.Glob(ccompoRawPartOutlineId)
+                              ' il vettore da restituire è nullo, quindi lo inizializzo
+                              If vtRefMove.IsSmall() Then
                                  vtRefMove = vtDelta
+                                 ' altrimenti lo confronto
+                              Else
+                                 ' per ogni coordinata devo prendere il massimo in direzione opposta allo spostamento originale
+                                 ' calcolo il versore nella direzione del movimento
+                                 Dim vtMoveVers As New Vector3d(vtOrigMove)
+                                 vtMoveVers.Normalize()
+                                 If (vtDelta * vtMoveVers) < (vtRefMove * vtMoveVers) Then
+                                    vtRefMove = vtDelta
+                                 End If
                               End If
                            End If
                         End If
+                        ' cancello segmento e offset
+                        EgtErase(nDistLine)
+                        EgtErase(ccompoRawPartOutlineOffsetId)
+                     Else
+                        ' il grezzo non  è in battuta sul riferimento
+                        Dim nContactColDisk As Integer = EgtGetFirstNameInGroup(EgtGetFirstNameInGroup(nFixtureId, SOLID), REF_CONTACTCOLDISK)
+                        EgtSetColor(nContactColDisk, ReferenceContactColRed)
                      End If
-                     ' cancello segmento e offset
-                     EgtErase(nDistLine)
-                     EgtErase(ccompoRawPartOutlineOffsetId)
                End Select
                ' se non c'è sovrapposizione
             ElseIf FixtureType(nFixtureId) = FIX_TYPE.REFERENCE Then