Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
Anonymous
in reply to: chandra.shekar.g

@chandra.shekar.g 

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