11-06-2018
11:17 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-06-2018
11:17 AM
I found a solution.
Dim oDoc As AssemblyDocument = ThisDoc.Document
Dim oAsmDef As AssemblyComponentDefinition = oDoc.ComponentDefinition
Dim oConstrs As AssemblyConstraints = oAsmDef.Constraints
For Each oConstr As AssemblyConstraint In oConstrs
If oConstr.OccurrenceOne.Suppressed = True Or oConstr.OccurrenceOne.Suppressed = True Then
oConstr.Suppressed = True
Else
oConstr.Suppressed = False
End If
Next