Macro - Count Extrude or Revolved features

[isocam]

Can anybody help?

I have a Inventor part (ipt) open.

I want to check if the part contains more than one "extrude" or "revolved" features.

Does anybody know how to do this with a Inventor macro?

All I need to do at present is to put the value in a message box

eg:

Number of extruded features = 4

Many thanks in advance!!!

Darren

[Owner2229]

Hi, something like this?

Dim oDoc As Document = ThisApplication.ActiveDocument
Dim oDef As ComponentDefinition = oDoc.Componentdefinition
Dim Revolve As Integer = 0
Dim Extrude As Integer = 0
Dim oFt As PartFeature
For Each oFT In oDef.Features
    If oFT.Type.ToString = "kRevolveFeatureObject" Then
        Revolve = Revolve + 1
    Else If oFT.Type.ToString = "kExtrudeFeatureObject" Then
        Extrude = Extrude + 1
    End If
Next
MsgBox("Revolve features: " & Revolve & vbLf & "Extrude features: " & Extrude)