Why this rule does not to run?

[38620079]

HI,I don't know how to make this rule work below the code, who can tell me what to do?

Thanks!

Dim oDoc As Document
oDoc = ThisApplication.ActiveDocument
Dim osubdoc As Document
Dim opropset As Inventor.PropertySet
Dim icount As Long
For Each osubdoc In oDoc.AllReferencedDocuments
opropset = osubdoc.PropertySets.Item(4).Item 'User DefinedProperties
icount = opropset.Count
If icount>0 Then
For i = icount To 1 Step -1
On Error Resume Next
opropset.Item(i). Delete
Err.Clear
Next
End If
Next

[A.Acheson · Accepted solution]

Hi @38620079 

You have incorrectly set the Property Set.

Working code

Dim oDoc As Document
oDoc = ThisApplication.ActiveDocument

Dim osubdoc As Document
Dim opropset As Inventor.PropertySet
Dim icount As Long

For Each osubdoc In oDoc.AllReferencedDocuments

	opropset = osubdoc.PropertySets.Item(4) 'User DefinedProperties
	icount = opropset.Count

	If icount>0 Then
	
		For i = icount To 1 Step -1
			On Error Resume Next
			opropset.Item(i).Delete
			Err.Clear
		Next
	End If
Next

and here is a shorter version of the same without indexing and with a check for modifiable files ( skip Read only files such as Content center and Library files)

Dim oDoc As Document = ThisApplication.ActiveDocument

For Each osubdoc As Document In oDoc.AllReferencedDocuments
	If osubdoc.IsModifiable Then
		Dim opropset As Inventor.PropertySet = osubdoc.PropertySets.Item(4)

		For Each prop As Inventor.Property In opropset
			prop.Delete
		Next
	End If
Next

[38620079 · Accepted solution]

thank you! but i want to do that

 

[A.Acheson]

This screenshot is from VBA object model editor.

Are you using VBA or ilogic\VB.Net launguage?

The code you provide originally is for ilogic\VB.Net launguage and the revised code is written for their also. 

[38620079]

is Ok thanks

 

[A.Acheson]

Yes this code here will do exactly that, loop over all custom iproperties and delete. If it does not work please provide a screenshot of errorbmessages. 

Dim oDoc As Document = ThisApplication.ActiveDocument

For Each osubdoc As Document In oDoc.AllReferencedDocuments
	If osubdoc.IsModifiable Then
		Dim opropset As Inventor.PropertySet = osubdoc.PropertySets.Item(4)

		For Each prop As Inventor.Property In opropset
			prop.Delete
		Next
	End If
Next

[38620079]

I am wrong，I use rules to run in part, not in assembly.

[A.Acheson]

Here it is to delete custom iprop per document, run as an external rule

Dim oDoc As Document = ThisApplication.ActiveDocument

Dim opropset As Inventor.PropertySet = oDoc.PropertySets.Item(4)
For Each prop As Inventor.Property In opropset
   prop.Delete
Next