;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 4/13/2006
;;;>		   EDITED: 08-18-1999
;;;
(defun c:vpcen ()
  (setq vcentr (upoint 1 "" "Pick view center point. " nil nil))
  (getpoint "\nSelect view to transfer center point. ")
  (command ".zoom" "c" vcentr "")
)