06-11-2020
06:15 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-11-2020
06:15 AM
Hi @robertast
The type of parameter copy that's done in this thread, but from assembly to all its parts would look something like this:
iLogicVb.UpdateWhenDone = True Dim oAsm As AssemblyDocument = ThisDoc.Document For Each oDoc As Document In oAsm.AllReferencedDocuments If oDoc.DocumentType = DocumentTypeEnum.kPartDocumentObject AndAlso oAsm.ComponentDefinition.Occurrences.AllReferencedOccurrences(oDoc).Count > 0 Dim oDef As PartComponentDefinition = oDoc.ComponentDefinition For Each oParam As Inventor.Parameter In oAsm.ComponentDefinition.Parameters.UserParameters Dim paramInPart As Inventor.Parameter Try paramInPart = oDef.Parameters.UserParameters.Item(oParam.Name) Try paramInPart.Expression = oParam.Expression Catch paramInPart.Value = oParam.Value End Try Catch Try oDef.Parameters.UserParameters.AddByExpression(oParam.Name, oParam.Expression, oParam.Units) Catch oDef.Parameters.UserParameters.AddByValue(oParam.Name, oParam.Expression, oParam.Units) End Try End Try Next End If Next
Jhoel Forshav
Download my free Inventor Addin - Hole Projector
LinkedIn | Ideas | Contributions | Blog posts | Website