Here is a lisp from the Cadalyst website (Oct 1999), that adjusts the
origin
of a hatch pattern after it has
been created.
;Tip1560: ADJUST.LSP Adjust Hatch
(c)1999, Ali Khalfan
(defun c:adjust (/)
(setvar "cmdecho" 0)
(setq OBJ (entsel "\nSelect Hatch pattern to edit:"))
(setq PT1 (getpoint "\nSelect new starting point of hatch pattern:"))
(setq XCORD (car PT1))
(setq YCORD (cadr PT1))
(setq SP1 (list XCORD YCORD))
(setvar "snapbase" SP1)
(command "-hatchedit" OBJ "p" "" "" "")
(command "snapbase" "0,0")
(princ)
)
;;; end adjust.lsp
**************************************************************
Please, DO NOT send technical requests to me via private e-mail
**************************************************************
Tracy W. Lincoln
Assistant Moderator - Autodesk Discussion Forums
Discussion Group Links:
-----------------------
Index: http://discussion.autodesk.com
Rules: http://discussion.autodesk.com/webx?groundrules