- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hello,
I am trying to change an iPart member in VBA, but I don't know how to use "ChangeRow" function.
Sub iPartsChangeRow()
Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument
Dim oAssemblyComponent As AssemblyComponentDefinition
Set oAssemblyComponent = oDoc.ComponentDefinition
Dim oComponentOccurrenceToChange As ComponentOccurrence
Set oComponentOccurrenceToChange = ThisApplication.CommandManager.Pick(kAssemblyOccurrenceFilter, "Wybierz element do zmiany")
Dim oIPartMember As iPartMember
Set oIPartMember = oComponentOccurrenceToChange.Definition.iPartMember
Dim oFactory As iPartFactory
Set oFactory = oIPartMember.ParentFactory
Dim oPartIdentifier As String
oPartIdentifier = oFactory.TableRows.Item(5).PartIdentifier
oIPartMember.ChangeRow (oPartIdentifier)
End Sub
Solved! Go to Solution.