Area estensione modello piatto in m^2

' iLogic Rule: Aggiorna_Area_Totale
Dim partAreaPropName As String = "extents_area"
Dim drawingQtyPropName As String = "Qty"
Dim drawingTotalAreaPropName As String = "Total Area"

Dim oDoc As DrawingDocument
oDoc = ThisDrawing.Document

Dim oDrawingUserPropSet As PropertySet
Try
    oDrawingUserPropSet = oDoc.PropertySets.Item("Inventor User Defined Properties")
Catch
    MessageBox.Show("Il set di proprietà personalizzate del disegno 'Inventor User Defined Properties' non è stato trovato. Assicurarsi che le proprietà personalizzate siano utilizzate.", "Errore iLogic - Set Proprietà Mancante", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Return
End Try

Dim qty As Double = 0.0
Dim oQtyProp As Inventor.Property = Nothing

Try
    oQtyProp = oDrawingUserPropSet.Item(drawingQtyPropName)
    
    If IsNumeric(oQtyProp.Value) Then
        qty = CDbl(oQtyProp.Value)
    Else
        MessageBox.Show("Il valore della proprietà '" & drawingQtyPropName & "' nel disegno non è numerico. Verrà utilizzato il valore predefinito 1.", "Avviso iLogic - Qty Non Numerica", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        qty = 1.0
    End If
Catch
    Try
        oQtyProp = oDrawingUserPropSet.Add(1.0, drawingQtyPropName)
        qty = 1.0
        MessageBox.Show("La proprietà personalizzata del disegno '" & drawingQtyPropName & "' non è stata trovata ed è stata creata con valore iniziale 1.", "Informazione iLogic - Qty Creata", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As Exception
        MessageBox.Show("Impossibile creare la proprietà personalizzata del disegno '" & drawingQtyPropName & "': " & ex.Message, "Errore iLogic - Creazione Qty Fallita", MessageBoxButtons.OK, MessageBoxIcon.Error)
        Return
    End Try
End Try

Dim area As Double = 0.0
Dim foundPartAndArea As Boolean = False

If oDoc.ReferencedDocuments.Count > 0 Then
    For Each refDoc As Document In oDoc.ReferencedDocuments
        If refDoc.DocumentType = kPartDocumentObject Then
            Dim oPartUserPropSet As PropertySet
            Try
                oPartUserPropSet = refDoc.PropertySets.Item("Inventor User Defined Properties")
            Catch
                Continue For
            End Try

            Dim oAreaProp As Inventor.Property = Nothing
            Try
                oAreaProp = oPartUserPropSet.Item(partAreaPropName)
                
                Dim sAreaValue As String = CStr(oAreaProp.Value).Trim()
                
                If sAreaValue.EndsWith(" m^2") Then
                    sAreaValue = Left(sAreaValue, sAreaValue.Length - 4)
                End If
                
                sAreaValue = Replace(sAreaValue, ",", ".")
                
                If IsNumeric(sAreaValue) Then
                    area = CDbl(sAreaValue)
                    foundPartAndArea = True
                    Exit For
                Else
                    MessageBox.Show("Il valore della proprietà '" & partAreaPropName & "' nella parte '" & refDoc.DisplayName & "' ('" & oAreaProp.Value & "') non è numerico o non convertibile anche dopo la pulizia del formato. Verrà ignorato.", "Avviso iLogic - Area Parte Non Valida", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                    Continue For
                End If
            Catch
                Continue For
            End Try
        End If
    Next
End If

If Not foundPartAndArea Then
    MessageBox.Show("Impossibile trovare una parte referenziata con la proprietà personalizzata '" & partAreaPropName & "' con un valore numerico valido (o nel formato atteso 'X.XX m^2').", "Avviso iLogic - Area Parte Non Trovata", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    Return
End If

Dim totalArea As Double = area * qty

Dim oTotalAreaProp As Inventor.Property = Nothing
Try
    oTotalAreaProp = oDrawingUserPropSet.Item(drawingTotalAreaPropName)
    oTotalAreaProp.Value = totalArea
Catch
    Call oDrawingUserPropSet.Add(totalArea, drawingTotalAreaPropName)
End Try

' Autore: Rossano Praderi
' Creato il: 21/06/2025
' Revisionato: 23/06/2025

Sub main
    Try
        ' PartDocument di riferimento
        Dim oDoc As Inventor.PartDocument = Nothing
        If (ThisDoc.Document.DocumentType.Equals(Inventor.DocumentTypeEnum.kDrawingDocumentObject))
            ' se il documento attivo è un DrawingDocument assegna ad oDoc il primo documento di riferimento
            oDoc = ThisDoc.Document.ReferencedDocuments.Item(1)
        ElseIf (ThisDoc.Document.DocumentType.Equals(Inventor.DocumentTypeEnum.kPartDocumentObject))
            ' se il documento attivo è un PartDocument assegna ad oDoc il documento attivo
            oDoc = ThisDoc.Document
        End If

        ' se oDoc è Nothing prosegue senza fare nulla
        If Not oDoc Is Nothing
            Dim shm As SheetMetalComponentDefinition = oDoc.ComponentDefinition
            ' Propertyset "Custom"
            Dim pSet As Inventor.PropertySet = oDoc.PropertySets("{D5CDD505-2E9C-101B-9397-08002B2CF9AE}")
           
            ' numero pezzi ***** DUE OPZIONI DISPONIBILI *****
            ' se il parametro "v" non è impostato, viene visualizzata la richiesta di inserire il numero pezzi solo quando l'IProperty non esiste e deve essere creata
            pz = CreateIfNotExists_Int(pSet, "PEZZI")
           
            ' se il parametro "v" viene impostato a -1, viene sempre chiesto di impostare il numero pezzi
            'pz = CreateIfNotExists_Int(pSet, "PEZZI", -1)
           
            ' extents_length
'            CreateIfNotExists(pSet, "extents_length", String.Concat(ToMeters(shm.FlatPattern.Length).ToString()," m")) ' LUNGHEZZA IN METRI
            CreateIfNotExists(pSet, "extents_length", String.Concat(shm.FlatPattern.Length, " mm")) ' LUNGHEZZA IN MILLIMETRI
           
            ' extents_width
'            CreateIfNotExists(pSet, "extents_width", String.Concat(ToMeters(shm.FlatPattern.Width).ToString()," m")) ' LARGHEZZA IN METRI
            CreateIfNotExists(pSet, "extents_width", String.Concat(shm.FlatPattern.Width, " mm")) ' LARGHEZZA IN MILLIMETRI
            ' area
            Area = ToMeters(shm.FlatPattern.Length * shm.FlatPattern.Width)
            CreateIfNotExists(pSet, "extents_area", String.Concat( Area, " m^2")) ' AREA IN METRI^2
           
            ' area totale - imposta ad 1 il numero pezzi se il valore è inferiore ad 1
            CreateIfNotExists(pSet, "extents_area_total", String.Concat( Area * Math.Max(1, pz)," m^2"))
        End If
    Catch
    End Try
End Sub

''' <summary>
''' Assegna il valore all'IPropertiy e se non esiste la crea(versione con InputBox per valore numerico intero)
''' </summary>
''' <param name="pSet">PropertySet di riferimento</param>
''' <param name="pName">Nome IProperty di riferimento</param>
''' <param name="v">Valore da assegnare all'IProperty di riferimento</param>
''' <returns>Restituisce un valore numerico intero</returns>
Private Function CreateIfNotExists_Int(ByRef pSet As Inventor.PropertySet, pName As String, Optional v As Integer = 0) As Integer
    Dim prop As Inventor.Property
    Try
        prop = pSet.Item(pName)
        v = prop.Value
    Catch
        v = -1
        prop = pSet.Add(v, pName)
    End Try
    if v = -1
        v = CInt(InputBox("Immettere un valore numerico", "Valore IProperty " & pName))
        prop.Value=v
    end if
    CreateIfNotExists_Int = v
End Function

''' <summary>
''' Assegna il valore all'IPropertiy e se non esiste la crea(versione senza InputBox)
''' </summary>
''' <param name="pSet">PropertySet di riferimento</param>
''' <param name="pName">Nome IProperty di riferimento</param>
''' <param name="v">Valore da assegnare all'IProperty di riferimento</param>
Private Sub CreateIfNotExists(ByRef pSet As Inventor.PropertySet, pName As String, v As Object)
    Dim prop As Inventor.Property
    Try
        prop = pSet.Item(pName)
        prop.Value = v
    Catch
        prop = pSet.Add(v, pName)
    End Try
End Sub

''' <summary>
''' Funzione per convertire un valore numerico double(con vigola mobile) da millimetri a metri
''' </summary>
''' <param name="v">Valore numerico con virgola da convertire</param>
''' <param name="nd">Numero di decimali d'arrotondamento, numero decimali di default è 3</param>
''' <returns></returns>
Private Function ToMeters(v As Double, Optional nd As Integer = 3) As Double
    ToMeters = Math.Round(ThisApplication.UnitsOfMeasure.ConvertUnits(v, UnitsTypeEnum.kMillimeterLengthUnits, UnitsTypeEnum.kMeterLengthUnits), nd)
End Function

' iLogic Rule: Aggiorna_Area_Totale_Da_Pezzi_Parte
Dim partAreaPropName As String = "extents_area"
Dim partPezziPropName As String = "PEZZI" ' Nuovo: Nome della proprietà QTY nella parte
Dim drawingTotalAreaPropName As String = "Total Area"

Dim oDoc As DrawingDocument
oDoc = ThisDrawing.Document

Dim oDrawingUserPropSet As PropertySet
Try
    oDrawingUserPropSet = oDoc.PropertySets.Item("Inventor User Defined Properties")
Catch
    MessageBox.Show("Il set di proprietà personalizzate del disegno 'Inventor User Defined Properties' non è stato trovato. Assicurarsi che le proprietà personalizzate siano utilizzate.", "Errore iLogic - Set Proprietà Mancante", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Return
End Try

Dim area As Double = 0.0
Dim qty As Double = 0.0 ' Inizializza Qty qui
Dim foundPartAndArea As Boolean = False
Dim foundPartAndQty As Boolean = False

If oDoc.ReferencedDocuments.Count > 0 Then
    For Each refDoc As Document In oDoc.ReferencedDocuments
        If refDoc.DocumentType = kPartDocumentObject Then
            Dim oPartUserPropSet As PropertySet
            Try
                oPartUserPropSet = refDoc.PropertySets.Item("Inventor User Defined Properties")
            Catch
                Continue For ' Questa parte non ha proprietà definite dall'utente
            End Try

            ' --- Recupera "extents_area" dalla parte ---
            Dim oAreaProp As Inventor.Property = Nothing
            Try
                oAreaProp = oPartUserPropSet.Item(partAreaPropName)
                Dim sAreaValue As String = CStr(oAreaProp.Value).Trim()
                
                If sAreaValue.EndsWith(" m^2") Then
                    sAreaValue = Left(sAreaValue, sAreaValue.Length - 4)
                End If
                
                sAreaValue = Replace(sAreaValue, ",", ".")
                
                If IsNumeric(sAreaValue) Then
                    area = CDbl(sAreaValue)
                    foundPartAndArea = True
                Else
                    MessageBox.Show("Il valore della proprietà '" & partAreaPropName & "' nella parte '" & refDoc.DisplayName & "' ('" & oAreaProp.Value & "') non è numerico o non convertibile. Verrà ignorato.", "Avviso iLogic - Area Parte Non Valida", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                End If
            Catch
                ' Proprietà Area non trovata, continua
            End Try

            ' --- Recupera "PEZZI" dalla parte ---
            Dim oPezziProp As Inventor.Property = Nothing
            Try
                oPezziProp = oPartUserPropSet.Item(partPezziPropName)
                If IsNumeric(oPezziProp.Value) Then
                    qty = CDbl(oPezziProp.Value)
                    foundPartAndQty = True
                Else
                    MessageBox.Show("Il valore della proprietà '" & partPezziPropName & "' nella parte '" & refDoc.DisplayName & "' non è numerico. Verrà utilizzato il valore predefinito 1 per Qty.", "Avviso iLogic - Pezzi Parte Non Numerici", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                    qty = 1.0
                End If
            Catch
                MessageBox.Show("La proprietà '" & partPezziPropName & "' non è stata trovata nella parte '" & refDoc.DisplayName & "'. Verrà utilizzato il valore predefinito 1 per Qty.", "Avviso iLogic - Pezzi Parte Mancanti", MessageBoxButtons.OK, MessageBoxIcon.Warning)
                qty = 1.0
            End Try
            
            ' Se abbiamo trovato entrambi i valori dalla PRIMA parte, possiamo uscire dal ciclo
            If foundPartAndArea And foundPartAndQty Then
                Exit For
            End If
        End If
    Next
End If

If Not foundPartAndArea Then
    MessageBox.Show("Impossibile trovare una parte referenziata con la proprietà personalizzata '" & partAreaPropName & "' con un valore numerico valido (o nel formato atteso 'X.XX m^2').", "Avviso iLogic - Area Parte Non Trovata", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    Return
End If

If Not foundPartAndQty Then
    MessageBox.Show("Impossibile trovare una parte referenziata con la proprietà personalizzata '" & partPezziPropName & "' con un valore numerico valido. Utilizzo Qty = 1.", "Avviso iLogic - Pezzi Parte Non Trovati", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    qty = 1.0 ' Assicura che qty sia 1 se non trovata
End If

Dim totalArea As Double = area * qty

Dim oTotalAreaProp As Inventor.Property = Nothing
Try
    oTotalAreaProp = oDrawingUserPropSet.Item(drawingTotalAreaPropName)
    oTotalAreaProp.Value = totalArea
Catch
    Call oDrawingUserPropSet.Add(totalArea, drawingTotalAreaPropName)
End Try