09-27-2019
05:43 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
09-27-2019
05:43 AM
See code below ![]()
bRows = oBOMView.BOMRows For Each bRow In bRows Dim rDoc As Document rDoc = bRow.ComponentDefinitions.Item(1).Document Dim docPropertySet As PropertySet docPropertySet = rDoc.PropertySets.Item("Design Tracking Properties") xlWorksheet.Range("A" & Row).Value = bRow.ItemNumber xlWorksheet.Range("C" & Row).Value = docPropertySet.Item("Part Number").Value xlWorksheet.Range("D" & Row).Value = docPropertySet.Item("Description").Value xlWorksheet.Range("E" & Row).Value = bRow.ItemQuantity xlWorksheet.Range("F" & Row).Value = docPropertySet.Item("Vendor").Value xlWorksheet.Range("P" & Row).Value = docPropertySet.Item("Cost").Value '----------------------------Here is what you need------------------------------------------- Dim customPropSet As PropertySet customPropSet = rDoc.PropertySets.Item("Inventor User Defined Properties") 'xlWorksheet.Range("Q" & Row).Value = customPropSet.Item("Welding").Value 'If you want True/False xlWorksheet.Range("Q" & Row).Value = customPropSet.Item("Welding").Expression 'If you want Yes/No '----------------------------------------------------------------------- Next
Jhoel Forshav
Download my free Inventor Addin - Hole Projector
LinkedIn | Ideas | Contributions | Blog posts | Website