UCS object rotation

As the above title implies, I am working on a ucs lisp that will rotate my ucs based on object selected. However I am not sure how to ensure it rotates correctly when using lisp. (Ucs will rotate to nearest selected end when selected manually)

(defun c:cs ()
(command "ncopy" pause "" "0,0" "0,0")
(setq dummy (entlast))
(command "ucs" "ob" dummy "plan" "current")
(command "zoom" "o" dummy "")
(command "erase" dummy "")
(princ)
)

(defun c:cs1 ()
(command "ucs" "w" "plan" "current")
(princ)
)

Besides that how do I remember my last zoomed position to reset the ucs?

best regards

Maybe something like this:

(DEFUN C:ZU(/ lin point)

(setq lin (entsel "\nSelect a line: "))

(setq point (cadr lin))

(COMMAND "UCS" "OB" point "PLAN" "C" "ZOOM" "O" lin "")

(PRINC)

)

guran,

Please follow the Code Posting Guidelines.

You can look here http://help.autodesk.com/view/ACD/2015/ENU/?guid=GUID-F806BFBE-6291-44B9-AE48-CD960B7CB8D1 Which is the advanced way of doing it. Otherwise under the "UCS" command there is a "Previous" option, which brings you back one level.