Elevation Offset

[Anonymous]

I have wrote a few simple lisp routines for locking/unlocking the z-elevation as well as setting a predefined value as follows:

(DEFUN C:zr()
 (command "osnapz" "0")
   (princ)
  );end

(DEFUN C:z0()
 (command "elevation" "0" "osnapz" "1")
   (princ)
  );end

(DEFUN C:z8()
 (command "elevation" "8'1" "osnapz" "1")
   (princ)
  );end

I was hoping someone could write a lisp routine that allows for a z-value based on a selection point.

Any help is greatly appreciated!