Richiesta creazione regola i-logic

' Set a reference to the drawing document.
' This assumes a drawing document is active.
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument

Dim oSheets As Sheets
Dim Sheet As Inventor.Sheet
Dim oViews As DrawingViews
Dim oView As DrawingView

For Each oSheet In oDrawDoc.Sheets
'For Each oSheet In oSheets
    oViews = oSheet.DrawingViews
    For Each oView In oViews
  
        'Get the full filename Of the view model
        Dim oModelFileName As String
        oModelFileName = oView.ReferencedDocumentDescriptor.ReferencedDocument.FullFileName
        'MessageBox.Show("view model name" & oModelFileName, "Title")

        Dim oPartList As PartsList
            'try and get the parts list form the table of this sheet
            Try
                oPartList = oDrawDoc.ActiveSheet.PartsLists.Item(1)
            Catch 'on error try and search all sheets for first found parts list           
                'iterate trough each sheet
                Dim i As Long
                For i = 1 To oDrawDoc.Sheets.Count
                    If oDrawDoc.Sheets.Item(i).PartsLists.Count > 0 Then Exit For
                Next   
                oPartList = oDrawDoc.Sheets.Item(i).PartsLists.Item(1)
                'MessageBox.Show("parts list found on: " & i, "Title")
            End Try
              
            ' Iterate through the contents of the parts list.
            Dim j As Long
            For j = 1 To oPartList.PartsListRows.Count
                ' Get the current row.
                Dim oRow As PartsListRow
                oRow = oPartList.PartsListRows.Item(j)
                'get filename of model in row
                Dim oRowFileName As String
                oRowFileName = oRow.ReferencedFiles.Item(1).FullFileName
                'compare the filenames
                'Performs a text comparison, based on a case-insensitive text sort order
                'If strings equal returns 0
                If StrComp(oModelFileName, oRowFileName, CompareMethod.Text)=0 Then
                    'Get the value of Item from the Parts List
                    'Row name needs to be case sensitive or use 1 for first 2 for second etc.
                    oCell  = oPartList.PartsListRows.Item(j).Item("Item") 'Row name needs to be case sensitive or use 1 for first 2 for second etc.
                    'get the value of text in cell
                    Dim oItemValue As String
                    oItemValue = oCell.Value
                  
                    'Show the view label
                    oView.ShowLabel = True
                    'format the text first line
                    oStringItem = "<StyleOverride Underline='True' FontSize='0.35'> ITEM " & oItemValue & " </StyleOverride>"
                    'format the text second line
                    oStringScale = "<Br/><StyleOverride FontSize='0.3'>(Scale <DrawingViewScale/>)</StyleOverride>"
                  
                    'add to the view label
                    oView.Label.FormattedText =  oStringItem & oStringScale
                End If
            Next
      Next
Next

' Set a reference to the drawing document.
' This assumes a drawing document is active.
Dim oDrawDoc As DrawingDocument
oDrawDoc = ThisApplication.ActiveDocument

Dim oSheets As Sheets
Dim Sheet As Inventor.Sheet
Dim oViews As DrawingViews
Dim oView As DrawingView

For Each oSheet In oDrawDoc.Sheets
'For Each oSheet In oSheets
    oViews = oSheet.DrawingViews
    For Each oView In oViews
  
        'Get the full filename Of the view model
        Dim oModelFileName As String
        oModelFileName = oView.ReferencedDocumentDescriptor.ReferencedDocument.FullFileName
        'MessageBox.Show("view model name" & oModelFileName, "Title")

        Dim oPartList As PartsList
            'try and get the parts list form the table of this sheet
            Try
                oPartList = oDrawDoc.ActiveSheet.PartsLists.Item(1)
            Catch 'on error try and search all sheets for first found parts list           
                'iterate trough each sheet
                Dim i As Long
                For i = 1 To oDrawDoc.Sheets.Count
                    If oDrawDoc.Sheets.Item(i).PartsLists.Count > 0 Then Exit For
                Next   
                oPartList = oDrawDoc.Sheets.Item(i).PartsLists.Item(1)
                'MessageBox.Show("parts list found on: " & i, "Title")
            End Try
              
            ' Iterate through the contents of the parts list.
            Dim j As Long
            For j = 1 To oPartList.PartsListRows.Count
                ' Get the current row.
                Dim oRow As PartsListRow
                oRow = oPartList.PartsListRows.Item(j)
                'get filename of model in row
                Dim oRowFileName As String
                oRowFileName = oRow.ReferencedFiles.Item(1).FullFileName
                'compare the filenames
                'Performs a text comparison, based on a case-insensitive text sort order
                'If strings equal returns 0
                If StrComp(oModelFileName, oRowFileName, CompareMethod.Text)=0 Then
                    'Get the value of Item from the Parts List
                    'Row name needs to be case sensitive or use 1 for first 2 for second etc.
                    oCell  = oPartList.PartsListRows.Item(j).Item("Item") 'Row name needs to be case sensitive or use 1 for first 2 for second etc.
                    'get the value of text in cell
                    Dim oItemValue As String
                    oItemValue = oCell.Value
                  
                   oView.ShowLabel = True
oView.Label.FormattedText = "TEST"
                End If
            Next
      Next
Next

' ============================================================
' iLogic Rule: Set View Labels from Parts List (DEBUG v2)
' ============================================================

' --- Declare all variables at top to avoid scope conflicts ---
Dim oDrawDoc As DrawingDocument
Dim oPartList As PartsList
Dim partsListSheet As String
Dim itemColIndex As Long
Dim colNames As String
Dim totalViews As Long
Dim matchedViews As Long
Dim skippedViews As Long
Dim oSheet As Sheet
Dim oView As DrawingView
Dim oModelFileName As String
Dim oRowFileName As String
Dim oItemValue As String
Dim oScaleStr As String
Dim oStringItem As String
Dim oStringScale As String

' ============================================================
' STEP 1 — Check active document
' ============================================================
MessageBox.Show("Checking for active drawing document...", "Debug [1/6]")
Try
    oDrawDoc = ThisApplication.ActiveDocument
    If Not TypeOf oDrawDoc Is DrawingDocument Then
        MessageBox.Show("ERROR: Active document is not a Drawing." & vbCrLf & _
                        "Please open a drawing document first.", "Debug [1/6] FAILED")
        Exit Sub
    End If
Catch ex As Exception
    MessageBox.Show("ERROR getting active document:" & vbCrLf & ex.Message, "Debug [1/6] FAILED")
    Exit Sub
End Try
MessageBox.Show("OK — Drawing found: " & vbCrLf & oDrawDoc.FullFileName, "Debug [1/6]")

' ============================================================
' STEP 2 — Find parts list
' ============================================================
MessageBox.Show("Searching for Parts List...", "Debug [2/6]")
Try
    oPartList = oDrawDoc.ActiveSheet.PartsLists.Item(1)
    partsListSheet = oDrawDoc.ActiveSheet.Name
Catch
    Dim i As Long
    Dim found As Boolean = False
    For i = 1 To oDrawDoc.Sheets.Count
        If oDrawDoc.Sheets.Item(i).PartsLists.Count > 0 Then
            oPartList = oDrawDoc.Sheets.Item(i).PartsLists.Item(1)
            partsListSheet = oDrawDoc.Sheets.Item(i).Name
            found = True
            Exit For
        End If
    Next
    If Not found Then
        MessageBox.Show("ERROR: No Parts List found on any sheet.", "Debug [2/6] FAILED")
        Exit Sub
    End If
End Try
MessageBox.Show("OK — Parts List found on sheet: " & partsListSheet & vbCrLf & _
                "Rows: " & oPartList.PartsListRows.Count, "Debug [2/6]")

' ============================================================
' STEP 3 — List all column names (to identify Item column)
' ============================================================
MessageBox.Show("Reading Parts List columns...", "Debug [3/6]")
colNames = ""
Dim c As Long
For c = 1 To oPartList.PartsListColumns.Count
    colNames = colNames & c & ": " & oPartList.PartsListColumns.Item(c).Title & vbCrLf
Next
' Default to column 1. User can change this number based on message output.
itemColIndex = 1
MessageBox.Show("OK — Columns found:" & vbCrLf & colNames & vbCrLf & _
                "Using column index: " & itemColIndex & vbCrLf & _
                "(Edit itemColIndex in rule if wrong)", "Debug [3/6]")

' ============================================================
' STEP 4 — Check sheets have views
' ============================================================
MessageBox.Show("Checking sheets for drawing views...", "Debug [4/6]")
Dim totalSheets As Long = oDrawDoc.Sheets.Count
Dim sheetsWithViews As Long = 0
For Each oSheet In oDrawDoc.Sheets
    If oSheet.DrawingViews.Count > 0 Then sheetsWithViews = sheetsWithViews + 1
Next
MessageBox.Show("OK — Sheets: " & totalSheets & vbCrLf & _
                "Sheets with views: " & sheetsWithViews, "Debug [4/6]")

' ============================================================
' STEP 5 — Iterate views and set labels
' ============================================================
MessageBox.Show("Starting view iteration...", "Debug [5/6]")
totalViews = 0
matchedViews = 0
skippedViews = 0

For Each oSheet In oDrawDoc.Sheets
    For Each oView In oSheet.DrawingViews
        totalViews = totalViews + 1

        ' Get view model filename
        Try
            oModelFileName = oView.ReferencedDocumentDescriptor.ReferencedDocument.FullFileName
        Catch
            skippedViews = skippedViews + 1
            Continue For
        End Try

        ' Match against parts list rows
        Dim j As Long
        For j = 1 To oPartList.PartsListRows.Count
            Try
                oRowFileName = oPartList.PartsListRows.Item(j).ReferencedFiles.Item(1).FullFileName
            Catch
                Continue For
            End Try

            If StrComp(oModelFileName, oRowFileName, CompareMethod.Text) = 0 Then

                ' Get item cell value
                Try
                    oItemValue = oPartList.PartsListRows.Item(j).Item(itemColIndex).Value
                Catch ex As Exception
                    MessageBox.Show("ERROR reading cell value:" & vbCrLf & ex.Message & vbCrLf & _
                                    "View: " & oView.Name & vbCrLf & _
                                    "Row: " & j & ", Column index: " & itemColIndex, _
                                    "Debug [5/6] FAILED")
                    Continue For
                End Try

                ' Get scale as plain string
                Try
                    oScaleStr = oView.Scale.ToString
                Catch
                    oScaleStr = "?"
                End Try

                ' Show what we are about to write
                MessageBox.Show("Setting label for view: " & oView.Name & vbCrLf & _
                                "File: " & IO.Path.GetFileName(oModelFileName) & vbCrLf & _
                                "Item value: " & oItemValue & vbCrLf & _
                                "Scale: " & oScaleStr, "Debug [5/6]")

                ' Build and apply label
                Try
                    oView.ShowLabel = True
                    oStringItem = " ITEM " & _
                                  oItemValue & " "
                    oStringScale = "
(Scala " & _
                                   oScaleStr & ")"
                    oView.Label.FormattedText = oStringItem & oStringScale
                    matchedViews = matchedViews + 1
                    MessageBox.Show("OK — Label set successfully.", "Debug [5/6]")
                Catch ex As Exception
                    MessageBox.Show("ERROR on FormattedText:" & vbCrLf & ex.Message & vbCrLf & _
                                    "String attempted:" & vbCrLf & _
                                    oStringItem & oStringScale, "Debug [5/6] FAILED")
                End Try
                Exit For
            End If
        Next
    Next
Next

' ============================================================
' STEP 6 — Summary
' ============================================================
MessageBox.Show("Run complete." & vbCrLf & vbCrLf & _
                "Total views:             " & totalViews & vbCrLf & _
                "Labels updated:          " & matchedViews & vbCrLf & _
                "Skipped (no model ref):  " & skippedViews & vbCrLf & _
                "No BOM match:            " & (totalViews - matchedViews - skippedViews), _
                "Debug [6/6] — Summary")

' ============================================================
' iLogic Rule: Set View Labels from Parts List
' Final v5 — plain ratio scale string, no XML scale tag
' ============================================================

' --- All variables declared at top ---
Dim oDrawDoc As DrawingDocument
Dim oPartList As PartsList
Dim itemColIndex As Long
Dim oSheet As Sheet
Dim oView As DrawingView
Dim oModelFileName As String
Dim oRowFileName As String
Dim oItemValue As String
Dim oScaleStr As String
Dim oStringItem As String
Dim oStringScale As String

' ============================================================
' PASSO 1 — Verifica documento attivo
' ============================================================
Try
    oDrawDoc = ThisApplication.ActiveDocument
    If Not TypeOf oDrawDoc Is DrawingDocument Then
        MessageBox.Show("Il documento attivo non è una Messa in Tavola. Aprire prima una tavola.", _
                        "iLogic — Errore")
        Exit Sub
    End If
Catch ex As Exception
    MessageBox.Show("Errore nel recupero del documento attivo:" & vbCrLf & ex.Message, _
                    "iLogic — Errore")
    Exit Sub
End Try

' ============================================================
' PASSO 2 — Ricerca Elenco Parti (prima nel foglio attivo, poi in tutti i fogli)
' ============================================================
Try
    oPartList = oDrawDoc.ActiveSheet.PartsLists.Item(1)
Catch
    Dim i As Long
    Dim found As Boolean = False
    For i = 1 To oDrawDoc.Sheets.Count
        If oDrawDoc.Sheets.Item(i).PartsLists.Count > 0 Then
            oPartList = oDrawDoc.Sheets.Item(i).PartsLists.Item(1)
            found = True
            Exit For
        End If
    Next
    If Not found Then
        MessageBox.Show("Nessun Elenco Parti trovato in nessun foglio.", "iLogic — Errore")
        Exit Sub
    End If
End Try

' ============================================================
' PASSO 3 — Imposta l'indice della colonna Elemento
' La colonna 1 è quella standard per Elemento/Pos./Voce nella maggior parte dei modelli.
' Modificare itemColIndex se nella propria BOM si trova in una posizione diversa.
' ============================================================
itemColIndex = 1

' ============================================================
' PASSO 4 — Scorre le viste e imposta le etichette
' ============================================================
For Each oSheet In oDrawDoc.Sheets
    For Each oView In oSheet.DrawingViews

        ' Recupera il nome file del modello della vista
        ' Salta le viste senza riferimento a un modello
        Try
            oModelFileName = oView.ReferencedDocumentDescriptor.ReferencedDocument.FullFileName
        Catch
            Continue For
        End Try

        ' Confronta con le righe dell'Elenco Parti
        Dim j As Long
        For j = 1 To oPartList.PartsListRows.Count
            Try
                oRowFileName = oPartList.PartsListRows.Item(j).ReferencedFiles.Item(1).FullFileName
            Catch
                Continue For
            End Try

            If StrComp(oModelFileName, oRowFileName, CompareMethod.Text) = 0 Then

                ' Recupera il valore della cella Elemento
                Try
                    oItemValue = oPartList.PartsListRows.Item(j).Item(itemColIndex).Value
                Catch
                    Continue For
                End Try

                ' --- Converte la scala decimale in formato ratio ---
              
              
                Try
                    Dim dScale As Double = oView.Scale
                    If Math.Abs(dScale - 1.0) < 0.0001 Then
                        ' Scala 1:1
                        oScaleStr = "1:1"
                    ElseIf dScale > 1.0 Then
                        ' Ingrandimento es. 2:1, 5:1
                        Dim numer As Long = Math.Round(dScale)
                        oScaleStr = numer.ToString( _
                                    System.Globalization.CultureInfo.InvariantCulture) & ":1"
                    Else
                        ' Riduzione es. 1:2, 1:5, 1:10
                        Dim denom As Long = Math.Round(1.0 / dScale)
                        oScaleStr = "1:" & denom.ToString( _
                                    System.Globalization.CultureInfo.InvariantCulture)
                    End If
                Catch
                    oScaleStr = "?"
                End Try

                ' --- Costruisce e applica l'etichetta ---
                oStringItem = " ITEM " & _
                              oItemValue & " "
                oStringScale = "
(" & _
                               oScaleStr & ")"

                Try
                    oView.ShowLabel = True
                    oView.Label.FormattedText = oStringItem & oStringScale
                Catch ex As Exception
                    ' Errore silenzioso — impossibile impostare l'etichetta della vista
                End Try

                Exit For
            End If
        Next
    Next
Next