iLogic: Automate Common Virtual Parts

If you use “Virtual Parts” in your assemblies, you probably find yourself creating the same parts over and over. This quick blog post shares some iLogic code to create “Virtual Parts” from an Input List Box.

The contents of this Input List Box are created from an Array which you can edit to suit your needs:

'Create Array & Input list box
Dim ClintBrown3D As New ArrayList
ClintBrown3D.Add("Locktite")
ClintBrown3D.Add("Tape")
ClintBrown3D.Add("Carton")
ClintBrown3D.Add("Grease")
ClintBrown3D.Add("Oil")

The Animated GIF below shows how the code works:

Note that the code is only designed to run in an assembly, it will return an error stating as much if it is run in a part or drawing file. This version of code will not create a 2nd instance of a “Virtual Part”.

Here’s the iLogic code:

'iLogic code by Clint Brown @ClintBrown3D, adapted from Inventor API sample code found here:
'http://adndevblog.typepad.com/manufacturing/2013/04/create-virtual-component-by-code.html
'this version originally posted at https://clintbrown.co.uk/virtualpart

'Create Array & Input list box
Dim ClintBrown3D As New ArrayList
ClintBrown3D.Add("Locktite")
ClintBrown3D.Add("Tape")
ClintBrown3D.Add("Carton")
ClintBrown3D.Add("Grease")
ClintBrown3D.Add("Oil")

On Error GoTo ClintBrown3D: 'Ignore multiple instances of the Virtual Component
'Check that this is an Assembly
oDoc = ThisDoc.ModelDocument
If oDoc.DocumentType = kPartDocumentObject Then
MsgBox("This only works in Assemblies")
Return
End If

Dim oAssDef As AssemblyComponentDefinition 
oAssDef = oDoc.ComponentDefinition 
Dim oMatrix As Matrix 
oMatrix = ThisApplication.TransientGeometry.CreateMatrix
NameOfVirtualPart = InputListBox("Virtual Part Creator", ClintBrown3D, d0, Title := "@ClintBrown3D ", ListName := "Pick a Virtual Part to Add")

' Create Virtual part 
Dim oNewOcc As ComponentOccurrence 
oNewOcc = oAssDef.Occurrences.AddVirtual(NameOfVirtualPart, oMatrix) 
Dim oCVirtualCompDef As VirtualComponentDefinition 
oCVirtualCompDef = oNewOcc.Definition 
Exit Sub

ClintBrown3D:
Return

I hope this is useful, please enjoy, share, edit, remix and use this code, but please point back to this page if you do.