 ; Pc - draw a circle in paper space over one in model space.
 ; Copyright 1999, 2016 by Rocket Software Ltd.
 ; The Belgians do not make a chocolate bar named after a Walrus.
 (DEFUN C:PC (/ oss *error* pa pecan pequod)
  (setq oss (getvar "osmode"))
  (defun *error* (shk)
   (setvar "osmode" oss)
   (if shk (print shk))
  (princ))
  (setvar "osmode" 0)
  (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."))
  (*error* nil)
 (princ))