topic Re: Check all Parameter from assembly by Regenerate Ilogic in Inventor Programming Forum

Check all Parameter from assembly by Regenerate Ilogic

tamnn.designer — Tue, 27 Jun 2023 04:27:26 GMT

I have many mirror part but they are not automatically check the parameter box as original part. Could you please help me to create a ilogic to check all parameter from regenerate at 3D assembly file.

Re: Check all Parameter from assembly by Regenerate Ilogic

Andrii_Humeniuk — Tue, 27 Jun 2023 06:45:36 GMT

Hi @tamnn.designer . If you need to add a check box to the parameters of your MirrorPart, then in line 2 bRef = True, if you need to remove the check box, set the value bRef = False.

Private Sub Main() Dim bRef As Boolean = True Dim oDoc As Document = ThisApplication.ActiveDocument Dim oTM As Transaction = ThisApplication.TransactionManager.StartTransaction(oDoc, "CheckMirroredPart") If TypeOf oDoc Is AssemblyDocument Then Dim oAsmDoc As AssemblyDocument = oDoc Call GetAllRefDoc(oAsmDoc, bRef) Else If TypeOf oDoc Is PartDocument Then Dim oPartDoc As PartDocument = oDoc Call CheckMirroredPart(oPartDoc, bRef) End If oTM.End() End Sub Private Sub GetAllRefDoc(ByVal oAsmDoc As AssemblyDocument, ByVal bRef As Boolean) Dim oOccs As ComponentOccurrences = oAsmDoc.ComponentDefinition.Occurrences For Each oRefDoc As Document In oAsmDoc.AllReferencedDocuments If oOccs.AllReferencedOccurrences(oRefDoc).Count > 0 Then Dim oOcc As ComponentOccurrence = oOccs.AllReferencedOccurrences(oRefDoc)(1) If oOcc.Suppressed Then Continue For If oOcc.DefinitionDocumentType <> DocumentTypeEnum.kPartDocumentObject Then Continue For Call CheckMirroredPart(oOcc.Definition.Document, bRef) End If Next End Sub Private Function CheckMirroredPart(oDoc As PartDocument, ByVal bRef As Boolean) If Not oDoc.IsModifiable Then Exit Function If oDoc.ComponentDefinition.Type = ObjectTypeEnum.kSheetMetalComponentDefinitionObject Then Dim oDef As PartComponentDefinition = oDoc.ComponentDefinition If oDef.ReferenceComponents.DerivedPartComponents(1).Definition.Mirror Then If oDef.Parameters.DerivedParameterTables.Count = 0 Then Exit Function Dim oDerivedParams As DerivedParameters = oDef.Parameters.DerivedParameterTables.Item(1).DerivedParameters If oDerivedParams.Count = 0 Then Exit Function For i As Integer = 1 To oDerivedParams.Count If oDerivedParams(i).ExposedAsProperty <> bRef Then oDerivedParams(i).ExposedAsProperty = bRef Next i End If End If End Function

Re: Check all Parameter from assembly by Regenerate Ilogic

tamnn.designer — Tue, 27 Jun 2023 07:00:16 GMT

That's greate. It's very helpful for me. Bro.

It worked well. But it showed a messages. Is there any change to remove messages.

Error in rule: Check box mirror part, in document: Assembly3.iam

The parameter is incorrect. (Exception from HRESULT: 0x80070057 (E_INVALIDARG))

Re: Check all Parameter from assembly by Regenerate Ilogic

Andrii_Humeniuk — Tue, 27 Jun 2023 07:12:36 GMT

I tried to optimize the code and remove rudimentary lines of code, hope this helps you. If that doesn't help you, then send your files if possible.

Private Sub Main() Dim bRef As Boolean = True Dim oDoc As Document = ThisApplication.ActiveDocument Dim oTM As Transaction = ThisApplication.TransactionManager.StartTransaction(oDoc, "CheckMirroredPart") If TypeOf oDoc Is AssemblyDocument Then Dim oAsmDoc As AssemblyDocument = oDoc Call GetAllRefDoc(oAsmDoc, bRef) Else If TypeOf oDoc Is PartDocument Then Dim oPartDoc As PartDocument = oDoc Call CheckMirroredPart(oPartDoc, bRef) End If oTM.End() End Sub Private Sub GetAllRefDoc(ByVal oAsmDoc As AssemblyDocument, ByVal bRef As Boolean) Dim oOccs As ComponentOccurrences = oAsmDoc.ComponentDefinition.Occurrences For Each oRefDoc As Document In oAsmDoc.AllReferencedDocuments If oOccs.AllReferencedOccurrences(oRefDoc).Count > 0 Then If oRefDoc.DocumentType <> DocumentTypeEnum.kPartDocumentObject Then Continue For Call CheckMirroredPart(oRefDoc, bRef) End If Next End Sub Private Function CheckMirroredPart(oDoc As PartDocument, ByVal bRef As Boolean) If Not oDoc.IsModifiable Then Exit Function Dim oDef As PartComponentDefinition = oDoc.ComponentDefinition If oDef.ReferenceComponents.DerivedPartComponents(1).Definition.Mirror Then If oDef.Parameters.DerivedParameterTables.Count = 0 Then Exit Function Dim oDerivedParams As DerivedParameters = oDef.Parameters.DerivedParameterTables.Item(1).DerivedParameters If oDerivedParams.Count = 0 Then Exit Function For i As Integer = 1 To oDerivedParams.Count If oDerivedParams(i).ExposedAsProperty <> bRef Then oDerivedParams(i).ExposedAsProperty = bRef Next i End If End Function