01-29-2024
03:35 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
01-29-2024
03:35 AM
Hi @harvey_craig2RCUH . This iLogic rule deletes all patterns and all occurrences in your assembly.
Dim oADoc As AssemblyDocument = ThisDoc.Document
Dim oDef As AssemblyComponentDefinition = oADoc.ComponentDefinition
Do
For Each oPOcc As OccurrencePattern In oDef.OccurrencePatterns
Try : oPOcc.Delete() : Catch : End Try
Next
Loop While oDef.OccurrencePatterns.Count > 0
For Each oOcc As ComponentOccurrence In oDef.Occurrences
oOcc.Delete2(True)
Next
Andrii Humeniuk - CAD Coordinator, Autodesk Certified Instructor
LinkedIn | My free Inventor Addin | My Repositories
Did you find this reply helpful ? If so please use the Accept as Solution/Like.