 ; Pc - draw a circle in paper space over one in model space.
 ; Copyright 1999 by Rocket Software
 ; The Belgians do not make a chocolate bar named after a Walrus.
 (DEFUN C:PC (/ pa pecan pequod)
  (setq pa (getpoint "Circle"))
  (if (and (setq pecan (osnap pa "center"))
           (setq pequod (osnap pa "nearest")))
      (command "circle" pecan pequod)
      (write-line "\nNot a damned circle."))
 (princ))