07-22-2019
10:48 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-22-2019
10:48 PM
Sorry. Below is the code
Dim oAsm As AssemblyDocument
oAsm = ThisApplication.ActiveDocument
Dim oAsmCompDef As AssemblyComponentDefinition
oAsmCompDef = oAsm.ComponentDefinition
Line1 :
Dim oComp As ComponentOccurrence
oComp = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kAssemblyOccurrenceFilter, "Select a components")
If oComp Is Nothing Then
Exit Sub
End If
Dim oCons As AssemblyConstraint
For Each oCons In oComp.Constraints
If oCons.Type = kAngleConstraintObject Or oCons.Type = kAngleConstraintProxyObject Then
oCons.Delete
End If
Next
GoTo Line1