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