Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.

Hey @Curtis_Waguespack 

 

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.

___________________________