10-18-2019
01:31 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
10-18-2019
01:31 AM
I tried editting it so it'd work for iAssembles as well but there's a compiler error I'm getting
RUsure = MessageBox.Show("This rule MUST be run on the iPart Master part. It will break all links with the children. CONTINUE?", "BULK DRAWING TOOL", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If RUsure = vbNo Then Exit Sub 'User wants to quit the Rule. End If Dim oParentPart As iPartFactory Dim oParentAssy As iAssemblyFactory Dim oRow As iPartTableRow Dim oRowAssy As iAssemblyTableRow On Error Resume Next oParentPart = ThisDoc.Document.ComponentDefinition.iPartFactory oParentAssy = ThisDoc.Document.ComponentDefinition.iAssemblyFactory For Each oRow In oParentPart.TableRows oParentPart.CreateMember(oRow).BreakLinkToFactory Next For Each oRowAssy In oParentAssy.TableRows oParentAssy.CreateMember(oRowAssy).BreakLinkToFactory Next MessageBox.Show("End of rule reached", "Title")
The oParentAssy.CreateMember(oRowAssy).BreakLinkToFactory
doesn't produce a value it says...
Any tips?
Did you find this reply helpful ? If so please use the Accept as Solution or Kudos button below.
___________________________