topic Betreff: VBA / API - how to iterate through all Components of .IPN in Inventor Programming Forum

VBA / API - how to iterate through all Components of .IPN

fullevent — Fri, 29 May 2020 09:18:10 GMT

Hello,

I'm trying to find a way to go through all PublicationComponents of an .ipn to find a specific one by name.

I have the following information:
FullFileName of the .ipn and the

name of the component (e.g. "00009 - Sechskantschraube:1")

What I need is the Rangebox of that Component.

I can access the document via the .Parent property, but unfortunately not in the same way from the document to the component.

There is no "Publication" property

...so how can I find the PublicationComponent in an IPN only by knowing the name?

Is there a way?

Best regards

Betreff: VBA / API - how to iterate through all Components of .IPN

fullevent — Tue, 02 Jun 2020 09:25:14 GMT

I have a sample data set, which I can send via pm if desired.

Unfortunately I still haven't found a possible solution.

If someone wants to try this and needs the sample data, just let me know.

Would be great to get some support for this issue. Thanks in advance.

Best regards,

Betreff: VBA / API - how to iterate through all Components of .IPN

marcin_otręba — Tue, 02 Jun 2020 09:43:33 GMT

Try this for start:

Dim ipn As PresentationDocument
 ipn = ThisApplication.ActiveDocument
Dim odoc As AssemblyDocument
 odoc = ipn.ReferencedDocuments.Item(1)
Dim occ As ComponentOccurrence
occ = odoc.ComponentDefinition.Occurrences.ItemByName("your name")

and for traverse trough all occ:

Dim ipn As PresentationDocument
 ipn = ThisApplication.ActiveDocument
Dim odoc As AssemblyDocument
 odoc = ipn.ReferencedDocuments.Item(1)
Dim occ As ComponentOccurrence

For Each occ In odoc.ComponentDefinition.Occurrences
Debug.Print occ.Name
Next

Betreff: VBA / API - how to iterate through all Components of .IPN

fullevent — Tue, 02 Jun 2020 11:56:05 GMT

Hello @marcin_otręba,

first of all thank you for your time.

Your code gets me the componentOccurrence of the iam. That's not quite what I'm trying to do.

I am trying to find the PublicationOccurrence of an IPN.

But I can't find a way to go through all PublicationOccurrences of an IPN.

I expected to do something along those lines.

Dim occ As PublicationOccurrence For Each occ In oIPN.PublicationOccurrences 'but it does not exist Debug.Print occ.Name Next

Maybe you have another idea?

regards,

Betreff: VBA / API - how to iterate through all Components of .IPN

marcin_otręba — Tue, 02 Jun 2020 12:11:13 GMT

Something like this ?

Dim ipn As PresentationDocument
ipn = ThisApplication.ActiveDocument
Dim oDoc As PresentationComponent
 oDoc = ipn.ActiveScene.TopSceneComponent
Dim osub As PresentationComponent
For Each osub In oDoc.SubComponents
MessageBox.Show(osub.Name, "Title")
Next

Betreff: VBA / API - how to iterate through all Components of .IPN

fullevent — Tue, 02 Jun 2020 12:47:38 GMT

This is going in the right direction! Thanks a lot for the help.

The reason why I want to find PublicationOccurrence is because I want to check the rangebox.
It seems the PresentationOccurrence has no rangebox or is there a way to get it by the PresentationOccurrence?

Betreff: VBA / API - how to iterate through all Components of .IPN

marcin_otręba — Tue, 02 Jun 2020 13:21:29 GMT

what you want to get from rangebox? position? size?

Betreff: VBA / API - how to iterate through all Components of .IPN

fullevent — Tue, 02 Jun 2020 15:03:17 GMT

I need the MaxPoint and the MinPoint.. so i need all 6 values.

Betreff: VBA / API - how to iterate through all Components of .IPN

marcin_otręba — Tue, 02 Jun 2020 15:04:02 GMT

Try something like code below only be careful it will not work for subcomponents type assemblies, in tjhhis scenario you must go deeper to subcomponent of that component.

On Error Resume Next
Dim ipn As PresentationDocument
 ipn = ThisApplication.ActiveDocument
Dim oDoc As PresentationComponent
  oDoc = ipn.ActiveScene.TopSceneComponent
Dim osub As PresentationComponent
For Each osub In oDoc.SubComponents
If osub.SubComponents.Count = 0 Then
Debug.Print osub.Name & " " & osub.SurfaceBodies.Item(1).RangeBox.MaxPoint.X & " " & osub.SurfaceBodies.Item(1).RangeBox.MaxPoint.Y & " " & osub.SurfaceBodies.Item(1).RangeBox.MaxPoint.Z
Else
Dim osub1 As PresentationComponent
For Each osub1 In osub.SubComponents
Debug.Print osub1.Name & " " & osub1.SurfaceBodies.Item(1).RangeBox.MaxPoint.X & " " & osub1.SurfaceBodies.Item(1).RangeBox.MaxPoint.Y & " " & osub1.SurfaceBodies.Item(1).RangeBox.MaxPoint.Z
Next
End If
Next

Betreff: VBA / API - how to iterate through all Components of .IPN

fullevent — Tue, 02 Jun 2020 15:47:57 GMT

That looks very good. Thank you a lot.

..confusing.. I'm getting different values... here for comparison:

Max Points using your Code:

MaxPoints of "PublicationOccurrence.Rangebox"

I'm not sure what the difference is between the two. Right now I don't even know which range box is the right one. I will try to find out tomorrow and get back to you.

Thanks for your support!

Best regards,

Betreff: VBA / API - how to iterate through all Components of .IPN

fullevent — Wed, 03 Jun 2020 06:54:20 GMT

Hello @marcin_otręba,

I was able to test your code and I got exactly the rangebox I was looking for. Thank you!

The initial question is not answered, but now I also know that the question would not have led to my goal.

..Sometimes you do not know what you are looking for until you find it.
*deep*😎🤣

Have a nice day!

Betreff: VBA / API - how to iterate through all Components of .IPN

edv — Mon, 08 Jun 2020 07:13:34 GMT

Hello @marcin_otręba

is it possible to make the script work for IV2016?

Because there is no PresentationComponent or ActiveScene

Betreff: VBA / API - how to iterate through all Components of .IPN

marcin_otręba — Mon, 08 Jun 2020 07:24:40 GMT

sorry, i do not have 2016.. also i think it is not possible due fact that it was introduced in 2018.