07-22-2019
11:37 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-22-2019
11:37 PM
Hi Sir,
I have done some update the Loop Code. Now I'm using below code and it is working fine.
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 = Inventor.ObjectTypeEnum.kAngleConstraintObject Or oCons.Type = Inventor.ObjectTypeEnum.kAngleConstraintProxyObject Then
oCons.Delete
End If
Next
GoTo Line1
Thanks & Regards,
Manoj Sampath