Create object then use leHiMove or leHiCopy

I want to create an object then use the Hi commands to move or copy the object and possibly create a loop for the function.

I have tried some mouse select or add point but it does not select the object to move.

Paul

Example:

procedure(testLabelLoop(string)
foreach(str parseString(string)
             testLabelFunc(txt))
t
)); end of testLabelLoop

procedure(testLabelFunc(txt)
let( (
(cv geGetEditCellView())
(cw hiGetCurrentWindow())
(defLp list("text" "drawing"))
(jst "centerCenter")
(ort "R0")
(fnt "stick")
(sz 0.015)
(defPt hiGetPoint(getCurrentWindow()))
)
geSelectObject(dbCreateLabel(cv defLp defPt txt jst ort fnt sz))
mouseAddSelectPt()
leHiMove()
)); end of testLabelFunc