Translate point to current UCS

Hi

I would like to make lisp, that will draw line from point 0,0,0 to each block in the drawing.

I wrote following routine that gives me back the insertion point of each block.

(defun GetBasePoint( Entity )
 (setq Return (cdr (assoc 10 (entGet Entity))) )
 )

Problem is that this point is always in default (World) UCS, coordinate system.

If I am using different UCS, I would have to translate this point into current UCS.

But how?

Trans function did it.