increasing a value to count

[matt_jlt]

I have the following code below, I am trying to determine the number of occurences of a symbol "Symbol 01". I can get the basic function to work i just dont know how to use a value "w" and increment it, any help is much appreciated. Thanks.

Public Sub SketchSymbolTest()

Dim oDoc As DrawingDocument
Dim oSheet As Sheet
Dim oSS As SketchedSymbol
Dim w As Long

Set oDoc = ThisApplication.ActiveDocument
Set oSheet = oDoc.ActiveSheet

For Each oSS In oSheet.SketchedSymbols

If oSS.Definition.Name = "Symbol 01" Then
' ### This is where i dont know what to do
End If

Next
MsgBox w, , " Occurences In this Document"
End Sub

[matt_jlt]

I have the following code below, I am trying to determine the number of occurences of a symbol "Symbol 01". I can get the basic function to work i just dont know how to use a value "w" and increment it, any help is much appreciated. Thanks.

Public Sub SketchSymbolTest()

Dim oDoc As DrawingDocument
Dim oSheet As Sheet
Dim oSS As SketchedSymbol
Dim w As Long

Set oDoc = ThisApplication.ActiveDocument
Set oSheet = oDoc.ActiveSheet

For Each oSS In oSheet.SketchedSymbols

If oSS.Definition.Name = "Symbol 01" Then
' ### This is where i dont know what to do
End If

Next
MsgBox w, , " Occurences In this Document"
End Sub

[Anonymous]

I've modified your code to increment the counter. I also initialized the
counter w to zero. This isn't really needed since VB initializes value type
variable to 0, but not all languages do this and I think it makes the code
more readable.

Public Sub SketchSymbolTest()
Dim oDoc As DrawingDocument
Dim oSheet As Sheet
Dim oSS As SketchedSymbol
Dim w As Long

Set oDoc = ThisApplication.ActiveDocument
Set oSheet = oDoc.ActiveSheet

w = 0
For Each oSS In oSheet.SketchedSymbols
If oSS.Definition.Name = "Symbol 01" Then
w = w + 1
End If
Next
MsgBox w, , " Occurences In this Document"
End Sub
--
Brian Ekins
Autodesk Inventor API

[Anonymous]

I've modified your code to increment the counter. I also initialized the
counter w to zero. This isn't really needed since VB initializes value type
variable to 0, but not all languages do this and I think it makes the code
more readable.

Public Sub SketchSymbolTest()
Dim oDoc As DrawingDocument
Dim oSheet As Sheet
Dim oSS As SketchedSymbol
Dim w As Long

Set oDoc = ThisApplication.ActiveDocument
Set oSheet = oDoc.ActiveSheet

w = 0
For Each oSS In oSheet.SketchedSymbols
If oSS.Definition.Name = "Symbol 01" Then
w = w + 1
End If
Next
MsgBox w, , " Occurences In this Document"
End Sub
--
Brian Ekins
Autodesk Inventor API

[matt_jlt]

thanks mate, worked like a charm.

[matt_jlt]

thanks mate, worked like a charm.