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

Please use the updated one, and it should be fixed. If it works for you, please accept it as solution.

 

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 

 

Thanks,
River Cai

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