使用iLogic删除已抑制的装配体中的零部件
2021/06/17 22:00:44
Here's how to do it, ignoring occurrences in patterns.
- Trace.WriteLine(" Starting....")
- Dim oComp As ComponentOccurrence
- Dim oComps As ComponentOccurrences
- oComps = ThisDoc.Document.ComponentDefinition.Occurrences
- For Each oComp In oComps
- If oComp.Suppressed Then
- Trace.WriteLine(oComp.Name + " is suppressed")
- If Not oComp.IsPatternElement Then
- oComp.Delete
- End If
- Else
- Trace.WriteLine(oComp.Name + " NOT suppressed")
- End If
- Next