Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
MechMachineMan
in reply to: Anonymous

You can also perfrom the selection of the parts BEFORE you run the rule by using the method:

 

Dim oDoc As Document = ThisApplication.ActiveDOcument
Dim oSelectSet As SelectSet = oDoc.SelectSet

If oSelectSet.Count = 0
     MsgBox("Nothing selected!")
Else
         For Each oItem in oSelectSet
               If oItem.Type = ObjectTypeEnum.kComponentOccurrenceObject 'Change sheet/object OR Perform test as necessary.
                        'Do Stuff here if it is a component occurrence
               End if ' Item Type
         Next
End if 'Selection

 


--------------------------------------
Did you find this reply helpful ? If so please use the 'Accept as Solution' or 'Like' button below.

Justin K
Inventor 2018.2.3, Build 227 | Excel 2013+ VBA
ERP/CAD Communication | Custom Scripting
Machine Design | Process Optimization


iLogic/Inventor API: Autodesk Online Help | API Shortcut In Google Chrome | iLogic API Documentation
Vb.Net/VBA Programming: MSDN | Stackoverflow | Excel Object Model
Inventor API/VBA/Vb.Net Learning Resources: Forum Thread

Sample Solutions:Debugging in iLogic ( and Batch PDF Export Sample ) | API HasSaveCopyAs Issues |
BOM Export & Column Reorder | Reorient Skewed Part | Add Internal Profile Dogbones |
Run iLogic From VBA | Batch File Renaming| Continuous Pick/Rename Objects

Local Help: %PUBLIC%\Documents\Autodesk\Inventor 2018\Local Help

Ideas: Dockable/Customizable Property Browser | Section Line API/Thread Feature in Assembly/PartsList API Static Cells | Fourth BOM Type