Article	41023402
Type	HowTo
Product	Engine
Version	4.1.6.1029
Date Added	1/20/2004
Submitted by	Karl Amman
Keywords

Subject

ChangeOrder layouts , to apply for entities

Summary

The object vdLayers has now the method "ChangeOrder", but it does not apply for the entities on the layer.
What can I do?

Solution

For example I change the order(move back) of all the lines in the layer "Border"

Dim vdclay As vdLayer
Dim vdcflt As vdFilterObject
Dim vdcsel As vdSelection
Dim vdcfig As vdFigure

    Set vdclay = vdraw.ActiveDocument.Layers.FindName("Border")
    vdraw.ActiveDocument.Layers.ChangeOrder vdclay, 1
    vdraw.Redraw
    
    Set vdcflt = vdraw.ActiveDocument.Selections.CreateFilter(Array("VDLINE"), Array("Border"))
    Set vdcsel = vdraw.ActiveDocument.Selections.FilterSelect("SEL_KLINE", vdcflt)
    vdcsel.Invalidate
    For Each vdcfig In vdcsel
      vdraw.ActiveDocument.Entities.ChangeOrder vdcfig, 1
    Next