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

It works for me when using the code sample. What release of Inventor you are using now?

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,
River Cai

Inventor Quality Assurance Team
Autodesk, Inc.
Email: River-Yijiang.Cai@autodesk.com