07-22-2019
10:27 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
07-22-2019
10:27 PM
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
River Cai
Inventor Quality Assurance Team
Autodesk, Inc.
Email: River-Yijiang.Cai@autodesk.com