A couple of suggestions to try,
check does UCS "VIEW V" exist
UCS OB pick line
UCS S "VIEW V" can do say "view x" where x keeps increasing each time a new UCS is made.
(while (setq pt (getpoint "\pick point "))
(command "DIMORDINATE" pt pause)
) ; end while
Look at UCS R "VIEW V"