;Set temp. UCS before Bhatch to control hatch origin.
;	Author:
;		Henry C. Francis
;		425 N. Ashe St.
;		Southern Pines, NC 28387
;	http://www.pinehurst.net/~pfrancis
;	e-mail hfrancis@pinehurst.net
;	All rights reserved.
(DEFUN C:HOP ( / )
  (if dimscl nil (load"dimscl"))
  (if (and mjrg prod (or colr (and colra colri)) llt ltyp modf)
    (command ".layer" "m" (strcat mjrg llt prod (if colr colr colra) modf) "c" (if colr colr colri) "" "lt" ltyp "" "")
  )
  (setq omode (getvar"osmode"))
  (setq osbase (getvar"snapbase"))
  (setvar "osmode" 0)
  (setq pt1 (getpoint "\nOrigin for Hatching "))
  (setvar "snapbase" (reverse(cdr(reverse pt1))))
  (setvar "osmode" omode)
;  (princ)
);defun