iLogic. Find all planes in file and add them to collection.

[a9011]

Greetings to all forum participants.
Can you help write the code for the rule? I need to find all planes in the file, add them to the list. After that, it is necessary to find a closed contour in each plane and apply the extrusion operation to it.
Thank you for your attention to my question!

[bhavik4244 · Accepted solution]

@a9011 

To set the array for Workplanes here below is the code, to get the extrude feature for the close profiles you may find something from below this link: http://inventortrenches.blogspot.com/2012/03/ilogic-to-select-all-of-closed-profiles.html

Dim oDoc As PartDocument
oDoc = ThisApplication.ActiveDocument

Dim WPArray As New ArrayList

For Each oWorkPlane In ThisDoc.Document.ComponentDefinition.WorkPlanes

If oWorkPlane.IsCoordinateSystemElement = False Then 

WPArray.Add(oWorkPlane.Name)
End If
MessageBox.Show(oWorkPlane.Name, "Title")


Next

[a9011]

Thank You! It works for me!