This little program is invaluable to me, maybe there is a replacement.
I've played with this this lsp but it wont work in acad 2008 even when
hatches are set to not be assosiative. thanks anyone.
;;; HM.lsp Change the HATCH BASE POINT of one or many hatches
;;;
(defun c:HM (/ oldos oldsn oldcmdecho i ent)
(setq oldos (getvar "osmode"))
(setq oldsn (getvar "snapbase"))
(setq oldcmdecho (getvar "cmdecho"))
(setvar "osmode" 47)
(princ "\nSelect point you wish Hatch(s) to start from...")
(command "._snapbase" pause)
(princ "\nSelect Hatch(s) to adjust snapbase")
(if (not (setq ss (ssget)))
(alert "\n No Entities selected..... Please try again.")
(progn
(setq i 0)
(while (setq ent (ssname ss i))
(command "._hatchedit" ent "" "" "" "")
(setq i (1+ i))
)
)
)
(setvar "snapbase" oldsn)
(setvar "osmode" oldos)
(setvar "cmdecho" oldcmdecho)
(princ)
)
