Create iRule to count Sketched Sybols in .DWG Drawing

[Anonymous]

Hi all,

I´m trying to create an iRule to count all Sketched Symbols alike in a drawing and per sheet. 

My idea is to create custom iPropertie per sheet to print the total of sketched symbols in each sheet.

So far, I reach this code for this counting, but unsuccessfully:

SyntaxEditor Code Snippet

Dim oDWG As DrawingDocument = ThisDoc.Document
Dim oSheet As Sheet = ActiveSheet.Sheet
Dim oSymDef = oDWG.oSheet.SketchedSymbolDefinitions.Item("ITEM1")
Dim i As Integer
For i=1 To oSymDef.count
Next
iProperties.Value("Custom","ITEM1") = i

This is for one sheet, of course, but my idea is to had this code for multiple sheets....

Thank you, in advance, for your help!

João Pinto