Pulizia codice

Frames/FrameCutPageUC.xaml

@@ -92,9 +92,6 @@
                     Style="{DynamicResource OmagCut_YellowGradientYellowIconButton}">
                         <Image Source="{DynamicResource Sezione-corniceImg}" Style="{DynamicResource OmagCut_ButtonIcon}"/>
                     </Button>-->
-
-                    <Grid>
-                        <Button Name="SelGuideBtn" Style="{DynamicResource OmagCut_YellowTextButton}"/>
                     <UniformGrid Name="ArcGrid" Grid.Column="0" Grid.Row="1" Grid.ColumnSpan="3" Columns="2" >
                         <TextBlock Name="ArcRadTxBl"  Grid.Row="2" Grid.ColumnSpan="2"
                          Style="{DynamicResource OmagCut_ToolsDBTextBlock}"/>
@@ -105,7 +102,11 @@
                         <EgtWPFLib:EgtTextBox Name="ArcAngTxBx" Grid.Column="2" Grid.Row="3" Width="50"
                          Style="{DynamicResource OmagCut_CalculatorTextBox}"/>
                     </UniformGrid>
-                    </Grid>
+                </UniformGrid>
+
+                <UniformGrid Grid.Column="0" Grid.Row="1" Grid.ColumnSpan="3" Columns="2" >
+                    <Button Name="SelGuideBtn" Style="{DynamicResource OmagCut_YellowTextButton}"/>
+                    <ToggleButton Name="SelRawSideBtn" Style="{DynamicResource OmagCut_YellowToggleButton}"/>
                 </UniformGrid>
                 
                 <TextBlock Name="OffsZTxBl"  Grid.Row="2" Grid.ColumnSpan="2"

Frames/FrameCutPageUC.xaml.vb

@@ -23,6 +23,10 @@ Public Class FrameCutPageUC
    ' Importazione guida in corso
    Private m_bGuide As Boolean = False
 
+   ' Linea selezionata dal contorno del grezzo
+   Private m_LineDir As Integer = -1
+   Private m_ptMidLineDir As New Point3d
+
    Private Sub FrameCutPage_Initialized(sender As Object, e As EventArgs) Handles Me.Initialized
       ' Creazione delle Page UserControl
       m_ProjectMgr = New ProjectMgrUC
@@ -64,6 +68,7 @@ Public Class FrameCutPageUC
          m_MainWindow.GetKeyOption(MainWindow.KEY_OPT.CURVED_FRAME) Then
          m_AlongAx.Add(EgtMsg(MSG_FRAMECUTPAGEUC + 13))        'Arco
          m_AlongAx.Add(EgtMsg(MSG_FRAMECUTPAGEUC + 14))        'Guida
+         m_AlongAx.Add("Raw side")
       End If
       SelSectionBtn.ToolTip = EgtMsg(MSG_FRAMECUTPAGEUC + 15)   'Sezione
       SelGuideBtn.Content = EgtMsg(MSG_FRAMECUTPAGEUC + 16)     'Guida
@@ -75,6 +80,7 @@ Public Class FrameCutPageUC
       OffsXyTxBl.Text = EgtMsg(MSG_FRAMECUTPAGEUC + 9)          'Distanza inizio
       OffsYyTxBl.Text = EgtMsg(MSG_FRAMECUTPAGEUC + 22)         'Distanza Y
       OffsXInteryTxBl.Text = EgtMsg(90645)                      'Interasse
+      SelRawSideBtn.Content = "Sel raw side"
       Dim sChBxToolTip As String = EgtMsg(90646)                  'Applica valore indicato\n altrienti spessore lama
       sChBxToolTip = sChBxToolTip.Replace("/n", "£")
       Dim sItems As String() = sChBxToolTip.Split("£")
@@ -140,15 +146,15 @@ Public Class FrameCutPageUC
          ' Se cornice arco o curva, disabilito scelta nuova sezione 
          SelSectionBtn.IsEnabled = (m_CurrAx = 0 Or m_CurrAx = 1)
          ' Se cornice curva, verifico se disabilitare scelta guida
-         If m_CurrAx = 3 Then
+         Dim bIsEnable As Boolean = (EgtGetFirstNameInGroup(nPartId, NAME_GUIDE) = GDB_ID.NULL)
-            SelGuideBtn.IsEnabled = ( EgtGetFirstNameInGroup( nPartId, NAME_GUIDE) = GDB_ID.NULL)
+         If m_CurrAx = 3 Then SelGuideBtn.IsEnabled = bIsEnable
-         End If
+         If m_CurrAx = 4 Then SelRawSideBtn.IsEnabled = bIsEnable
          ' Se cornice su arco ne leggo i dati
          If m_CurrAx = 2 Then
             Dim dExtRad As Double
-            if EgtGetInfo(nPartId, INFO_FRAME_ARCRAD, dExtRad) Then ArcRadTxBx.Text = LenToString( dExtRad, 3)
+            If EgtGetInfo(nPartId, INFO_FRAME_ARCRAD, dExtRad) Then ArcRadTxBx.Text = LenToString(dExtRad, 3)
             Dim dAngCenDeg As Double
-            if EgtGetInfo(nPartId, INFO_FRAME_ARCANG, dAngCenDeg) Then ArcAngTxBx.Text = DoubleToString( dAngCenDeg, 3)
+            If EgtGetInfo(nPartId, INFO_FRAME_ARCANG, dAngCenDeg) Then ArcAngTxBx.Text = DoubleToString(dAngCenDeg, 3)
          End If
          ' Altrimenti
       Else
@@ -156,7 +162,8 @@ Public Class FrameCutPageUC
          AlongAxCmBx.SelectedIndex = m_CurrAx
          AlongAxCmBx.IsEnabled = True
          SelSectionBtn.IsEnabled = True
-         SelGuideBtn.IsEnabled = True
+         If m_CurrAx = 3 Then SelGuideBtn.IsEnabled = True
+         If m_CurrAx = 4 Then SelRawSideBtn.IsEnabled = True
       End If
    End Sub
 
@@ -168,6 +175,7 @@ Public Class FrameCutPageUC
             ArcGrid.Visibility = Windows.Visibility.Collapsed
             OffsYyTxBl.Visibility = Windows.Visibility.Collapsed
             OffsYyTxBx.Visibility = Windows.Visibility.Collapsed
+            SelRawSideBtn.Visibility = Windows.Visibility.Collapsed
             OffsXyTxBl.Text = EgtMsg(MSG_FRAMECUTPAGEUC + 9)          'Distanza inizio
          Case 2               'Arco
             SelSectionBtn.Visibility = Windows.Visibility.Visible
@@ -175,6 +183,7 @@ Public Class FrameCutPageUC
             ArcGrid.Visibility = Windows.Visibility.Visible
             OffsYyTxBl.Visibility = Windows.Visibility.Visible
             OffsYyTxBx.Visibility = Windows.Visibility.Visible
+            SelRawSideBtn.Visibility = Windows.Visibility.Collapsed
             OffsXyTxBl.Text = EgtMsg(MSG_FRAMECUTPAGEUC + 21)          'Distanza X
          Case 3               'Guida
             SelSectionBtn.Visibility = Windows.Visibility.Visible
@@ -183,6 +192,16 @@ Public Class FrameCutPageUC
             ArcGrid.Visibility = Windows.Visibility.Collapsed
             OffsYyTxBl.Visibility = Windows.Visibility.Visible
             OffsYyTxBx.Visibility = Windows.Visibility.Visible
+            SelRawSideBtn.Visibility = Windows.Visibility.Collapsed
+            OffsXyTxBl.Text = EgtMsg(MSG_FRAMECUTPAGEUC + 21)          'Distanza X
+         Case 4
+            SelSectionBtn.Visibility = Windows.Visibility.Visible
+            SelGuideBtn.Visibility = Windows.Visibility.Collapsed
+            ArcGrid.Visibility = Windows.Visibility.Collapsed
+            OffsYyTxBl.Visibility = Windows.Visibility.Visible
+            OffsYyTxBx.Visibility = Windows.Visibility.Visible
+            SelRawSideBtn.Visibility = Windows.Visibility.Visible
+            SelRawSideBtn.IsEnabled = False
             OffsXyTxBl.Text = EgtMsg(MSG_FRAMECUTPAGEUC + 21)          'Distanza X
       End Select
    End Sub
@@ -209,11 +228,58 @@ Public Class FrameCutPageUC
          Not m_CurrProjPage.CurrentProjectScene.IsStatusNull() Then
          Return
       End If
+
       ' Verifico se selezionato indicativo di pezzo
-      EgtSetObjFilterForSelWin(False, False, True, False, False)
+      Dim nSel As Integer = GDB_ID.NULL
-      Dim nSel As Integer
+      Dim nId As Integer = GDB_ID.NULL
+
+      If SelRawSideBtn.IsChecked Then
+         ' Verifico se selezionato indicativo di pezzo
+         EgtSetObjFilterForSelWin(False, True, False, False, False)
          EgtSelect(e.Location, Scene.DIM_SEL, Scene.DIM_SEL, nSel)
-      Dim nId As Integer = EgtGetFirstObjInSelWin()
+         nId = EgtGetFirstObjInSelWin()
+         Dim ptPrev As Point3d
+         ' Verifico cosa selezionato
+         Dim nSolidId = EgtGetFirstNameInGroup(m_CurrProjPage.m_nRawId, NAME_RAW_SOLID)
+         Dim nKerfId = EgtGetFirstNameInGroup(m_CurrProjPage.m_nRawId, NAME_KERF)
+         ' Acquisisco punto da disegno
+         EgtUnProjectPoint(e.Location, ptPrev)
+         Dim sName As String = String.Empty
+         While nId <> GDB_ID.NULL
+            sName = String.Empty
+            EgtGetName(nId, sName)
+            If sName = NAME_KERF Then
+               ' la sottoentità del Kerf selezionato
+               EgtUnProjectPoint(e.Location, ptPrev)
+               Dim dDist, dU As Double
+               EgtPointCurveDist(ptPrev.Loc(nKerfId), nKerfId, nKerfId, dDist, dU)
+               Dim ptStart As New Point3d
+               EgtAtParamPoint(nKerfId, CInt(Math.Floor(dU)), GDB_ID.ROOT, ptStart)
+               Dim ptEnd As New Point3d
+               EgtAtParamPoint(nKerfId, CInt(Math.Ceiling(dU)), GDB_ID.ROOT, ptEnd)
+               Dim nParentLineGuide As Integer = EgtCreateGroup(GDB_ID.ROOT)
+               ' creo la linea a partire dall'entita sopra
+               m_LineDir = EgtCreateLine(EgtCreateGroup(nParentLineGuide), ptStart, ptEnd, GDB_RT.GLOB)
+               m_ptMidLineDir = New Point3d(ptStart)
+               EgtMidPoint(m_LineDir, GDB_RT.GLOB, m_ptMidLineDir)
+               EgtExtendCurveStartByLen(m_LineDir, 3500)
+               EgtSetMark(m_LineDir)
+               EgtDraw()
+               m_bGuide = True
+               If MyCreateFrame(nParentLineGuide) Then SelRawSideBtn.IsChecked = False
+               ' Privilegio il kerf, pertanto esco
+               Exit While
+            End If
+            nId = EgtGetNextObjInSelWin()
+         End While
+         Return
+      End If
+
+      ' Verifico se selezionato indicativo di pezzo
+      EgtSetObjFilterForSelWin(False, True, True, False, False)
+      EgtSelect(e.Location, Scene.DIM_SEL, Scene.DIM_SEL, nSel)
+      nId = EgtGetFirstObjInSelWin()
+
       While nId <> GDB_ID.NULL
          ' Recupero l'identificativo del layer e del pezzo cui appartiene
          Dim nLayId As Integer = EgtGetParent(nId)
@@ -374,7 +440,7 @@ Public Class FrameCutPageUC
          ' Cerco pezzo in grezzo
          Dim nPartId As Integer = EgtGetFirstPartInRawPart(m_nRawId)
          ' Se modalità curva e presa solo sezione, cancello unico pezzo in grezzo
-         If m_CurrAx = 3 And EgtGetFirstNameInGroup( nPartId, NAME_GUIDE) = GDB_ID.NULL
+         If m_CurrAx = 3 And EgtGetFirstNameInGroup(nPartId, NAME_GUIDE) = GDB_ID.NULL Then
             If EgtRemovePartFromRawPart(nPartId) Then
                ' Rimuovo le lavorazioni
                EraseMachinings(nPartId)
@@ -543,7 +609,7 @@ Public Class FrameCutPageUC
          End If
          ' altrimenti cornice su guida
       Else
-         If not m_bGuide Then
+         If Not m_bGuide Then
             ' Recupero layer e curva della sezione
             Dim nSectLayId As Integer = EgtGetFirstNameInGroup(nPartId, NAME_SECT)
             Dim nSectId As Integer = EgtGetFirstInGroup(nSectLayId)
@@ -553,6 +619,7 @@ Public Class FrameCutPageUC
          Else
             ' Porto la guida nel pezzo con la sezione
             Dim nTruePartId As Integer = EgtGetFirstPartInRawPart(m_nRawId)
+
             If nTruePartId = GDB_ID.NULL Then
                EgtOutLog("Error in CreateFrame : Section not found")
                Return False
@@ -767,7 +834,15 @@ Public Class FrameCutPageUC
       EgtSelectLayerObjs(nLayerId)
       Dim nCrvIds(0) As Integer
       nCrvIds(0) = GDB_ID.SEL
-      Dim nCrvId As Integer = EgtCreateCurveCompoByChain(nLayerId, 1, nCrvIds, New Point3d(), True)
+      ' ---- INIZIO ---- NUOVA GESTIONE ---- Verifico che il segmento passato è una linea ricavata dal contorno del grezzo
+      Dim nCrvId As Integer = GDB_ID.NULL
+      If m_CurrAx = 4 And m_LineDir <> GDB_ID.NULL Then
+         nCrvId = m_LineDir
+      Else
+         nCrvId = EgtCreateCurveCompoByChain(nLayerId, 1, nCrvIds, New Point3d(), True)
+      End If
+      ' ----  FINE  ---- NUOVA GESTIONE ----
+      ' Se non è stata creata esco
       If nCrvId = GDB_ID.NULL Then Return False
       ' Elimino eventuali curve oltre la prima
       Dim nId As Integer = EgtGetNext(nCrvId)
@@ -926,7 +1001,7 @@ Public Class FrameCutPageUC
       Dim vtStart As Vector3d
       EgtStartVector(nGuideId, nPartId, vtStart)
       ' Creo riferimento per sezione
-      dim frSect As New Frame3d
+      Dim frSect As New Frame3d
       frSect.Setup(ptStart, -vtStart)
       ' Porto la sezione in questo riferimento
       EgtChangeGroupFrame(nSectLayId, frSect)
@@ -961,20 +1036,7 @@ Public Class FrameCutPageUC
    End Function
 
    Private Function InsertPartInRawPart(nPartId As Integer) As Boolean
-      ' Determino ingombro del pezzo
+      ' Determino distanza (interasse cornici) da spessore lama oppure offset
-      Dim PartBox As New BBox3d
-      EgtGetBBoxGlob(nPartId, GDB_BB.EXACT + GDB_BB.IGNORE_TEXT + GDB_BB.IGNORE_DIM, PartBox)
-      ' Determino ingombro di eventuali pezzi già presenti
-      Dim OtherBox As New BBox3d
-      Dim nId2 As Integer = EgtGetFirstPartInRawPart(m_nRawId)
-      While nId2 <> GDB_ID.NULL
-         Dim TmpBox As New BBox3d
-         If EgtGetBBoxGlob(nId2, GDB_BB.EXACT + GDB_BB.IGNORE_TEXT + GDB_BB.IGNORE_DIM, TmpBox) Then
-            OtherBox.Add(TmpBox)
-         End If
-         nId2 = EgtGetNextPartInRawPart(nId2)
-      End While
-      ' Determino distanza da spessore lama
       Dim dMinDist As Double = 0
       Dim dSawThick As Double = 0
       Dim dOffsXIntery As Double = 0
@@ -991,16 +1053,36 @@ Public Class FrameCutPageUC
          Else
             dMinDist = dSawThick + 5 * EPS_SMALL
          End If
-         'If dOffsXIntery <= dSawThick Then
-         '   dMinDist = dSawThick + 5 * EPS_SMALL
-         '   EgtOutLog("WARNINGS: Saw tickness is more width then interaxis")
-         'Else
-         '   dMinDist = dOffsXIntery + 5 * EPS_SMALL
-         'End If
       Else
          EgtOutLog("Not found current saw for frames mindist")
          dMinDist = dOffsXIntery
       End If
+
+      If m_CurrAx = 4 Then
+         Dim nCountFrame As Integer = 0
+         Dim nIdOtherFrame As Integer = EgtGetFirstPartInRawPart(m_nRawId)
+         While nIdOtherFrame <> GDB_ID.NULL
+            nCountFrame += 1
+            nIdOtherFrame = EgtGetNextPartInRawPart(nIdOtherFrame)
+         End While
+         EgtAddPartToRawPart(nPartId, New Point3d(0, 0, 0), EgtGetFirstRawPart())
+         Return AdjustPartInGenericRawPart(nCountFrame, dMinDist)
+      End If
+
+      ' Determino ingombro del pezzo
+      Dim PartBox As New BBox3d
+      EgtGetBBoxGlob(nPartId, GDB_BB.EXACT + GDB_BB.IGNORE_TEXT + GDB_BB.IGNORE_DIM, PartBox)
+      ' Determino ingombro di eventuali pezzi già presenti
+      Dim OtherBox As New BBox3d
+      Dim nId2 As Integer = EgtGetFirstPartInRawPart(m_nRawId)
+      While nId2 <> GDB_ID.NULL
+         Dim TmpBox As New BBox3d
+         If EgtGetBBoxGlob(nId2, GDB_BB.EXACT + GDB_BB.IGNORE_TEXT + GDB_BB.IGNORE_DIM, TmpBox) Then
+            OtherBox.Add(TmpBox)
+         End If
+         nId2 = EgtGetNextPartInRawPart(nId2)
+      End While
+
       ' Inserisco il pezzo nel grezzo
       Dim ptIns As Point3d
       If OtherBox.IsEmpty() Then
@@ -1027,11 +1109,95 @@ Public Class FrameCutPageUC
             ptIns.y = m_dKerf
          End If
       End If
+
       Dim dOffsZ As Double = 0
       StringToLen(OffsZTxBx.Text, dOffsZ)
       ptIns.z = (m_RawBox.Max().z - m_RawBox.Min().z) - (PartBox.Max().z - PartBox.Min().z) - dOffsZ
       ptIns.z = Math.Max(ptIns.z, 0)
       Return EgtAddPartToRawPart(nPartId, ptIns, EgtGetFirstRawPart())
+
+   End Function
+
+   Public Function AdjustPartInGenericRawPart(Optional nCountOtherFrame As Integer = 0, Optional dMinDist As Double = 0) As Boolean
+      ' --- Eseguo una traslazione per portare il FRAME sul punto iniziale della guida (NON NEL PUNTO MINIMO DEL BOX!) ---
+      Dim nTruePartId As Integer = EgtGetFirstPartInRawPart(m_nRawId)
+
+      ' Recupero layer e curva della guida
+      Dim nGuideLayId As Integer = EgtGetFirstNameInGroup(nTruePartId, NAME_GUIDE)
+      If nGuideLayId = GDB_ID.NULL Then Return True
+      Dim nGuideId As Integer = EgtGetFirstInGroup(nGuideLayId)
+      ' Recupero il layer e il contorno della sezione
+      Dim nSectLayId As Integer = EgtGetFirstNameInGroup(nTruePartId, NAME_SECT)
+      Dim nSectId As Integer = EgtGetFirstInGroup(nSectLayId)
+
+      ' Aggiusto la poszione del pezzo: punto medio della guida sul punto medio del lato selezionato
+      Dim ptMid As Point3d
+      EgtMidPoint(nGuideId, GDB_RT.GLOB, ptMid)
+      Dim vtTrasl As Vector3d = m_ptMidLineDir - ptMid
+      vtTrasl.z = 0
+      EgtMove(nTruePartId, vtTrasl)
+
+      ' Porto il pezzo dentro al grezzo
+      Dim vtPerp As New Vector3d
+      EgtStartVector(nGuideId, GDB_RT.GLOB, vtPerp)
+      vtPerp.Rotate(Vector3d.Z_AX, 90)
+      ' Definisco il frame su cui iniziare a lavorare
+      Dim ptS As New Point3d
+      EgtStartPoint(nGuideId, GDB_RT.GLOB, ptS)
+      Dim vtDir As New Vector3d
+      EgtStartVector(nGuideId, GDB_RT.GLOB, vtDir)
+      Dim frSect As New Frame3d(ptS, vtDir, vtPerp, Vector3d.Z_AX)
+      ' Costruisco il BBox nel riferimento indicato
+      Dim BBoxRef As New BBox3d
+      EgtGetBBoxRef(nTruePartId, GDB_BB.EXACT + GDB_BB.IGNORE_TEXT + GDB_BB.IGNORE_DIM, frSect, BBoxRef)
+      ' Nella grafica i nomi dei parametri di offset devono diventare "Perp" e "Orto" oppure un solo parametro "Orto"?
+      Dim dOffsXy As Double = 0
+      StringToLen(OffsXyTxBx.Text, dOffsXy)
+      dOffsXy = (dOffsXy + BBoxRef.DimY) + (dMinDist + BBoxRef.DimY) * nCountOtherFrame
+      EgtMove(nTruePartId, vtPerp * dOffsXy)
+
+      ' Ritaglio il volume del pezzo per occupare il grezzo
+      Dim nSurfLayId As Integer = EgtGetFirstNameInGroup(nTruePartId, "Surf")
+      Dim nSurfId As Integer = EgtGetFirstInGroup(nSurfLayId)
+      ' Recupero una copia del grezzo
+      Dim nCopyRawId As Integer = EgtCopyGlob(EgtGetFirstNameInGroup(m_nRawId, "RawSolid"), nSurfLayId)
+      EgtSetName(nCopyRawId, "SurfTrimmed")
+      EgtSurfTmIntersect(nCopyRawId, nSurfId)
+      ' Assegno colori e trasparenza
+      EgtSetColor(nCopyRawId, COL_FRAME)
+      EgtSetAlpha(nCopyRawId, 100)
+      EgtErase(nSurfId)
+
+
+      ' Recupero il box in coordinate locali dell'ingombro del pezzo
+      Dim ptSlast As New Point3d
+      EgtStartPoint(nGuideId, GDB_RT.GLOB, ptSlast)
+      Dim frSectLast As New Frame3d(ptSlast, vtDir, vtPerp, Vector3d.Z_AX)
+      Dim BBoxRefLast As New BBox3d
+      EgtGetBBoxRef(nCopyRawId, GDB_BB.EXACT + GDB_BB.IGNORE_TEXT + GDB_BB.IGNORE_DIM, frSect, BBoxRefLast)
+
+      ' Ricalcolo la lunghezza della guida
+      Dim dLenGUide As Double = 0
+      EgtCurveLength(nGuideId, dLenGUide)
+      Dim pt1 As New Point3d
+      EgtStartPoint(nGuideId, GDB_RT.GLOB, pt1)
+      EgtTrimExtendCurveByLen(nGuideId, -BBoxRefLast.Min.x, pt1)
+
+      Dim pt2 As New Point3d
+      EgtEndPoint(nGuideId, GDB_RT.GLOB, pt2)
+      EgtTrimExtendCurveByLen(nGuideId, BBoxRefLast.Max.x - dLenGUide, pt2)
+
+
+      ' riposizione l'origine della sezione
+      Dim pt3 As New Point3d
+      EgtStartPoint(nGuideId, GDB_RT.GLOB, pt3)
+      EgtMove(nSectId, New Vector3d(pt3 - pt1), GDB_RT.GLOB)
+
+      EgtDraw()
+
+      'EgtSaveFile("C:\EgtData\OmagCUT\Temp\BOB.nge", NGE.BIN)
+
+      Return True
    End Function
 
 End Class

MainWindow.xaml.vb

@@ -26,7 +26,7 @@ Class MainWindow
    ' Variabile che definisce l'avvio forzato in modalità FRAME
    Friend m_OnlyFrame As Boolean = False
 
-   Public Shared m_bShowSVGParkInd As Boolean = False
+   Public Shared m_bShowSVGParkInd As Boolean = True
 
    ' Dichiarazione delle Page UserControl
    Friend m_WorkInProgressPageUC As WorkInProgressPageUC