Come eseguire una regola Ilogic su più file ?

Catafratto ha detto:

Puoi fare una regola esterna ed attivare il trigger di evento sulle tavole idw, senza coinvolgere direttamente il disegno del cliente

Visualizza allegato 72657

Poi si tratta di aprire la tavola, aspettare che la regola faccia quello che deve fare e poi salvare, lì dipende dai numeri di tavole, come/dove sono posizionate/nominate ecc. ecc.

Clicca per espandere...

Zac69 ha detto:

E' possibile creare un comando che lancio che lancio da IAM in cui mi chiede di selezionare un IPT ed a quel punto mi lancia le due regole in sequenza su quel singolo file senza doverli aprire tutti uno ad uno?

Clicca per espandere...

Dim ruleName1 As String = "MyExternalRule1" 'Nome rule1
Dim ruleName2 As String = "MyExternalRule2"  'Nome rule1
Dim asm As AssemblyDocument = ThisDoc.Document

' Prompt the user to select a single part
Dim invApp As Inventor.Application = ThisApplication
Dim selectedObject As Object = invApp.CommandManager.Pick(SelectionFilterEnum.kAssemblyOccurrenceFilter, "Select a part")

If selectedObject IsNot Nothing AndAlso TypeOf selectedObject Is ComponentOccurrence Then
    Dim selectedPart As ComponentOccurrence = CType(selectedObject, ComponentOccurrence)
    Dim doc As Document = selectedPart.Definition.Document
    
    ' Run the first iLogic rule
    iLogicVb.Automation.RunExternalRule(doc, ruleName1)
    
    ' Run the second iLogic rule
    iLogicVb.Automation.RunExternalRule(doc, ruleName2)
    
    MessageBox.Show("Both rules executed successfully on the selected part.", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
    MessageBox.Show("No valid part selected.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If

Cast16 ha detto:

Prova:

Codice:

Dim ruleName1 As String = "MyExternalRule1" 'Nome rule1
Dim ruleName2 As String = "MyExternalRule2"  'Nome rule1
Dim asm As AssemblyDocument = ThisDoc.Document

' Prompt the user to select a single part
Dim invApp As Inventor.Application = ThisApplication
Dim selectedObject As Object = invApp.CommandManager.Pick(SelectionFilterEnum.kAssemblyOccurrenceFilter, "Select a part")

If selectedObject IsNot Nothing AndAlso TypeOf selectedObject Is ComponentOccurrence Then
    Dim selectedPart As ComponentOccurrence = CType(selectedObject, ComponentOccurrence)
    Dim doc As Document = selectedPart.Definition.Document
   
    ' Run the first iLogic rule
    iLogicVb.Automation.RunExternalRule(doc, ruleName1)
   
    ' Run the second iLogic rule
    iLogicVb.Automation.RunExternalRule(doc, ruleName2)
   
    MessageBox.Show("Both rules executed successfully on the selected part.", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
    MessageBox.Show("No valid part selected.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If

Clicca per espandere...

Zac69 ha detto:

E' perfetto, funziona benissimo. Grazie mille.
Sai anche quale sia il comando che elimina la sostituzione di aspetto da inserire all'inizio della prima regola? In questo modo coloro la parte selezionata e so quali ho già fatto e quali no.

Clicca per espandere...

windreef ha detto:

Ciao , visto che lavori molto con gli step dei clienti, ti capita mai che ti arrivino con l'unita di misura in pollici e angolo radianti? A me praticamente sempre e nella conversione non c'è possibilità di cambiarli in automatico , ogni file devo andare nelle impostazioni e cambiarlo manualmente

Clicca per espandere...

Zac69 ha detto:

Succede sempre. Li non sto a perdere tempo: vado nelle impostazioni documento e li cambio.

Clicca per espandere...

Zac69 ha detto:

E' perfetto, funziona benissimo. Grazie mille.
Sai anche quale sia il comando che elimina la sostituzione di aspetto da inserire all'inizio della prima regola? In questo modo coloro la parte selezionata e so quali ho già fatto e quali no.

Clicca per espandere...

windreef ha detto:

Si è quello che faccio anch'io , ma se ci fosse un automatismo sarebbe più veloce , quando lo devi fare su un centinaio di file rompe le scatole. Grazie e buon lavoro

Clicca per espandere...

'------- start of ilogic ------

'get input from user
oUnit = InputRadioBox("Select a units of measure type", "millimeter", "inch", True, "ilogic")

If oUnit = True Then
'set to millimeter
oUOM_1 = UnitsTypeEnum.kMillimeterLengthUnits
Else
'set to Inch
oUOM_1 = UnitsTypeEnum.kInchLengthUnits
              
End If

'Define the open document
Dim openDoc As Document
openDoc = ThisDoc.Document

'Look at all of the files referenced in the open document
Dim docFile As Document
For Each docFile In openDoc.AllReferencedDocuments
                'look at only part files
                 If docFile.DocumentType = kPartDocumentObject Then
            'format  file name                   
                Dim FNamePos As Long
                FNamePos = InStrRev(docFile.FullFileName, "\", -1)                       
            Dim docFName As String
            docFName = Right(docFile.FullFileName, Len(docFile.FullFileName) - FNamePos)     
            'set length units
                docFile.UnitsOfMeasure.LengthUnits = oUOM_1
                'rebuild to update the display
                docFile.Rebuild
                End If
Next   
iLogicVb.UpdateWhenDone = True

Cast16 ha detto:

Prova questo:

Codice:

'------- start of ilogic ------

'get input from user
oUnit = InputRadioBox("Select a units of measure type", "millimeter", "inch", True, "ilogic")

If oUnit = True Then
'set to millimeter
oUOM_1 = UnitsTypeEnum.kMillimeterLengthUnits
Else
'set to Inch
oUOM_1 = UnitsTypeEnum.kInchLengthUnits
             
End If

'Define the open document
Dim openDoc As Document
openDoc = ThisDoc.Document

'Look at all of the files referenced in the open document
Dim docFile As Document
For Each docFile In openDoc.AllReferencedDocuments
                'look at only part files
                 If docFile.DocumentType = kPartDocumentObject Then
            'format  file name                  
                Dim FNamePos As Long
                FNamePos = InStrRev(docFile.FullFileName, "\", -1)                      
            Dim docFName As String
            docFName = Right(docFile.FullFileName, Len(docFile.FullFileName) - FNamePos)    
            'set length units
                docFile.UnitsOfMeasure.LengthUnits = oUOM_1
                'rebuild to update the display
                docFile.Rebuild
                End If
Next  
iLogicVb.UpdateWhenDone = True

Clicca per espandere...

Cast16 ha detto:

Forse bisogna vedere la tua prima regola per capire cosa vuoi ottenere...
Io non sono un programmatore ma sono sicuro qualcuno qui ti puo' aiutare.

Clicca per espandere...

windreef ha detto:

Magari lo metto come trigger di evento all'apertura file, grazie mille , più tardi provo

Clicca per espandere...

Cast16 ha detto:

Quello funziona dal assembly. Cambia l'unità di tutte le parti in un click.

Clicca per espandere...

Zac69 ha detto:

La prima regola è presa da un sito e mi da le 3 dimensioni di un profilato. Io prendo quella più lunga e dichiaro che quella è la "Lunghezza" (mi serve per calcolare quanti metri di quel profilato mi servono in tutto). Poi assegno il materiale ORO per farmi capire che quel profilato è già stato calcolato.
Il problema è che per vedere il colore oro, devo prima eliminare la sostituzione di aspetto che viene assegnato quando apri e salvi uno step e che viene assegnata alle singole parti.

Queste le ultime righe della regola:

'Scrive la misura massima nelle iProprierties del modello.
iProperties.Value("Custom", "Lunghezza") = maxLength.ToString("#.###")

iProperties.Material = "Oro"

Clicca per espandere...

Zac69 ha detto:

La prima regola è presa da un sito e mi da le 3 dimensioni di un profilato. Io prendo quella più lunga e dichiaro che quella è la "Lunghezza" (mi serve per calcolare quanti metri di quel profilato mi servono in tutto). Poi assegno il materiale ORO per farmi capire che quel profilato è già stato calcolato.
Il problema è che per vedere il colore oro, devo prima eliminare la sostituzione di aspetto che viene assegnato quando apri e salvi uno step e che viene assegnata alle singole parti.

Queste le ultime righe della regola:

'Scrive la misura massima nelle iProprierties del modello.
iProperties.Value("Custom", "Lunghezza") = maxLength.ToString("#.###")

iProperties.Material = "Oro"

Clicca per espandere...

Dim ruleName1 As String = "1" 'Name of rule 1
Dim ruleName2 As String = "2" 'Name of rule 2


Dim topAsm As AssemblyDocument = ThisDoc.Document

' Prompt the user to select a single part
Dim invApp As Inventor.Application = ThisApplication
Dim selectedObject As Object = invApp.CommandManager.Pick(SelectionFilterEnum.kAssemblyOccurrenceFilter, "Select a part")

If selectedObject IsNot Nothing AndAlso TypeOf selectedObject Is ComponentOccurrence Then
    Dim selectedPart As ComponentOccurrence = CType(selectedObject, ComponentOccurrence)
    Dim doc As Document = selectedPart.Definition.Document

    ' Run the first iLogic rule
    iLogicVb.Automation.RunExternalRule(doc, ruleName1)

    ' Run the second iLogic rule
    iLogicVb.Automation.RunExternalRule(doc, ruleName2)

    ' Change the color of the part to R255 G143 B47
    Dim trans As Transaction = ThisApplication.TransactionManager.StartTransaction(topAsm, "Set Custom Color")
    Try
        ' Create or retrieve the appearance asset
        Dim customAppearance As Asset
        Try
            customAppearance = topAsm.Assets.Item("CustomColor")
        Catch ex As Exception
            customAppearance = topAsm.Assets.Add(AssetTypeEnum.kAssetTypeAppearance, "Generic", "CustomColor")
        End Try

        ' Modify the color of the asset
        Dim colorAssetValue As ColorAssetValue = customAppearance.Item("generic_diffuse")
        colorAssetValue.Value = invApp.TransientObjects.CreateColor(255, 143, 47)

        ' Apply the appearance to the selected part
        selectedPart.Appearance = customAppearance

        MessageBox.Show("Both rules executed and part color updated successfully.", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As Exception
        MessageBox.Show("Error setting part color: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Finally
        trans.End()
    End Try
Else
    MessageBox.Show("No valid part selected.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If

Cast16 ha detto:

Io preferirei non cambiare il materiale, ma solo apparenza nel assieme...
Questa regola aggiunge il cambio del colore dopo avere applicato le 2 regole (non cambia la parte):

Codice:

Dim ruleName1 As String = "1" 'Name of rule 1
Dim ruleName2 As String = "2" 'Name of rule 2


Dim topAsm As AssemblyDocument = ThisDoc.Document

' Prompt the user to select a single part
Dim invApp As Inventor.Application = ThisApplication
Dim selectedObject As Object = invApp.CommandManager.Pick(SelectionFilterEnum.kAssemblyOccurrenceFilter, "Select a part")

If selectedObject IsNot Nothing AndAlso TypeOf selectedObject Is ComponentOccurrence Then
    Dim selectedPart As ComponentOccurrence = CType(selectedObject, ComponentOccurrence)
    Dim doc As Document = selectedPart.Definition.Document

    ' Run the first iLogic rule
    iLogicVb.Automation.RunExternalRule(doc, ruleName1)

    ' Run the second iLogic rule
    iLogicVb.Automation.RunExternalRule(doc, ruleName2)

    ' Change the color of the part to R255 G143 B47
    Dim trans As Transaction = ThisApplication.TransactionManager.StartTransaction(topAsm, "Set Custom Color")
    Try
        ' Create or retrieve the appearance asset
        Dim customAppearance As Asset
        Try
            customAppearance = topAsm.Assets.Item("CustomColor")
        Catch ex As Exception
            customAppearance = topAsm.Assets.Add(AssetTypeEnum.kAssetTypeAppearance, "Generic", "CustomColor")
        End Try

        ' Modify the color of the asset
        Dim colorAssetValue As ColorAssetValue = customAppearance.Item("generic_diffuse")
        colorAssetValue.Value = invApp.TransientObjects.CreateColor(255, 143, 47)

        ' Apply the appearance to the selected part
        selectedPart.Appearance = customAppearance

        MessageBox.Show("Both rules executed and part color updated successfully.", "Success", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Catch ex As Exception
        MessageBox.Show("Error setting part color: " & ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    Finally
        trans.End()
    End Try
Else
    MessageBox.Show("No valid part selected.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If

Comunque si potrebbe fare in modo lanciare tutto in un click su tutti i file, senza dover selezionare le parti uno ad uno.

Clicca per espandere...