' Get the active assembly. Dim oAsmDoc As AssemblyDocument oAsmDoc = ThisApplication.ActiveDocument 'Get BOM count for all types AQTY = ThisBOM.CalculateQuantity("Model Data", "TypeA") BQTY= ThisBOM.CalculateQuantity("Model Data", "TypeB") 'Calculate total number of screws for each type SAQTY = AQTY * A_count SBQTY = BQTY * B_count 'Override virtual part QTY ThisBOM.OverrideQuantity("Model Data","ScrewTypeA",SAQTY) ThisBOM.OverrideQuantity("Model Data","ScrewTypeB",SBQTY)