;;;Command "2m" Returns midpoint between two points.
;;;Command "lp" Returns LASTPOINT system variable.
(defun c:2m ()
  (SETQ P1 (GETPOINT "Select first point: ")
        P2 (GETPOINT "Select second point: ")
  )
  (polar p1 (angle p1 p2)(/(distance p1 p2)2))
)
(defun c:lp ()
  (getvar"lastpoint")
)