topic Re: Why this rule does not to run? in Inventor Programming Forum

Why this rule does not to run?

38620079 — Sat, 12 Aug 2023 15:37:20 GMT

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

Re: Why this rule does not to run?

A.Acheson — Sat, 12 Aug 2023 19:22:14 GMT

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

Re: Why this rule does not to run?

38620079 — Sun, 13 Aug 2023 12:14:17 GMT

thank you! but i want to do that

Re: Why this rule does not to run?

A.Acheson — Sun, 13 Aug 2023 15:07:52 GMT

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.

Re: Why this rule does not to run?

38620079 — Sun, 13 Aug 2023 15:11:11 GMT

is Ok thanks

Re: Why this rule does not to run?

A.Acheson — Sun, 13 Aug 2023 15:27:32 GMT

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.

Re: Why this rule does not to run?

38620079 — Sun, 13 Aug 2023 16:57:30 GMT

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

Re: Why this rule does not to run?

A.Acheson — Sun, 13 Aug 2023 19:33:59 GMT

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