Find closest node and paste it to a fixed node in tcl

Hi everybody,

I have a question regarding how to find the closest node to a specific temp node and than paste to this specific node by usage of a tcl script?

Which command do I need to use?

thanks in advance

<?xml version="1.0" encoding="UTF-8"?>