Move EOP Marker Step by Step in the modeling tree

[danijel.radenkovic]

Hello,

I am iterested if is there a VBA code example to move EOP ( End Of Part) Marker from the Top to the Bottom and when macro catch some feature crash, then EOP need to stop moving.

I would appreciate any help.

Best regards

Danijel

[ekinsb · Accepted solution]

Are you looking for something like this?

Public Sub RecomputeToFailure()
    Dim partDoc As PartDocument
    Set partDoc = ThisApplication.ActiveDocument
    Dim partDef As PartComponentDefinition
    Set partDef = partDoc.ComponentDefinition
    
    ' Reposition the stop node to the top.
    Call partDef.SetEndOfPartToTopOrBottom(True)
    
    ' Get the browser.
    Dim browser As BrowserPane
    Set browser = partDoc.BrowserPanes.Item(1)
    
    Dim topNode As BrowserNode
    Set topNode = browser.topNode
    
    Dim childNode As BrowserNode
    For Each childNode In topNode.BrowserNodes
        Dim ent As Object
        Set ent = childNode.NativeObject
        
        ' Check to see if it's an entity type that the stop node can be positioned to.
        If Not ent Is Nothing Then
            If TypeOf ent Is PartFeature Then
                Dim feature As PartFeature
                Set feature = ent
                
                Call feature.SetEndOfPart(False)
                
                If feature.HealthStatus <> kUpToDateHealth Then
                    MsgBox feature.name & " Failed to successfully compute."
                    Exit Sub
                End If
            ElseIf TypeOf ent Is WorkPlane Then
                Dim wPlane As WorkPlane
                Set wPlane = ent
                
                Call wPlane.SetEndOfPart(False)
                If wPlane.HealthStatus <> kUpToDateHealth Then
                    MsgBox wPlane.name & " Failed to successfully compute."
                    Exit Sub
                End If
            ElseIf TypeOf ent Is WorkAxis Then
                Dim wAxis As WorkAxis
                Set wAxis = ent
                
                Call wAxis.SetEndOfPart(False)
                If wAxis.HealthStatus <> kUpToDateHealth Then
                    MsgBox wAxis.name & " Failed to successfully compute."
                    Exit Sub
                End If
            ElseIf TypeOf ent Is WorkPoint Then
                Dim wPoint As WorkPoint
                Set wPoint = ent
                
                Call wPoint.SetEndOfPart(False)
                If wPoint.HealthStatus <> kUpToDateHealth Then
                    MsgBox wPoint.name & " Failed to successfully compute."
                    Exit Sub
                End If
            ElseIf TypeOf ent Is sketch Then
                Dim sk As PlanarSketch
                Set sk = ent
                
                Call sk.SetEndOfPart(False)
                If sk.HealthStatus <> kUpToDateHealth Then
                    MsgBox sk.name & " Failed to successfully compute."
                    Exit Sub
                End If
            End If
        End If
        
        ThisApplication.ActiveView.Update
    Next
    
    MsgBox "Successfully computed model."
End Sub

[danijel.radenkovic]

Hello Mr. Ekins,

Yes, I am looking for that and I tried code but I am getting the message which says:

Problematical line.

    Dim topNode As BrowserNode
    Set topNode = browser.topNode

Thank you very much.

Regards

Danijel

[Anonymous · Accepted solution]

Change this:

 ' Get the browser.
    Dim browser As BrowserPane
    Set browser = partDoc.BrowserPanes.Item(1)

To this:

 ' Get the browser.
    Dim browser As BrowserPane
    Set browser = partDoc.BrowserPanes.Item("Model")

And it will work.

[danijel.radenkovic]

Hello Ken,

Thank you very much for the help. It works perfect!

What if I want to move the node on some feature in the middle of the tree, not on the top?

Best regards

Danijel

[Anonymous]

If you follow the tutorial at the link below and combine the code found in the form with the code from above you will have a nice control for the macro.

http://modthemachine.typepad.com/my_weblog/2011/06/stepping-through-the-features-of-a-model.html

[Maxim-CADman77]

I wonder which is the best way to limit EoP moving up to just below the first feature in the tree?
Is there any ready for use counter of features that are above the EoP-marker?