How to use the Orcad Capture TCL command to find Objects connect by a selecting wire

Hi All,

I`m trying to get the objects which are connecting by a wire I select,

so I iterate all thing in a page and try to find if there are matching netname with the selecting wire,but it is Inefficient.

How can I do with another better way?

Thanks!