How to SAVE x-y coordinates of a point

Here we have seen how to save a selection with our favorite name. How about saving a PICK POINT with a specified name?
Someone will think that whats the use of saving an specified x-y coordinate in a drawing session?
Ofcourse there is a need. Lets assume that in a large scale drawing, you have drawn a temporary object say line/circle/point for some reference. Later on you forget to erase that object & also forget the exact location of its placement. This single line command will SAVES the exact location point (x-y-z coordinates) which you can get back any time in the whole drawing session. Even after erasing the object placed temporary on that point, you can always get back the point just by entering
!pt
at "Specify point" prompt of any AutoCAD builtin command.

* GETPT.lsp (1Kb)
This command will save x-y-z coordinates of any specified point under the name PT.

Sequence of command lines for this routine:-

Command: GETPT
Pick point to SAVE its location :

Download : GETPT.lsp