Thank you guys for your kind words and sorry for the late response.
Now is working on any UCS and I've added new features, like the option to select object.
Works with any curve not part of a block.
I'll post a new demo but not the lisp file, because I have some doubts...