How to get the hatch origin point?

[Johntosh]

I'm seeking to overlay a ANSI31 hatch over a previous one but offset it (to get a two colour alternating line affect), I'm supposing I'll need the hatch origin point and then calculate from there?

[profcad]

It's typically 0,0 unless it was changed. There is an option on the hatch dialog box to change the origin.

 

You may need to rehatch the first hatch pattern and specify the origin, then hatch the second area with the new origin.

[lpseifert]

quick and dirty....

(defun c:test ()
 (setq htch (entget (car (entsel "Select hatch: "))))
 (if
   (/= (cdr (assoc 0 htch)) "HATCH")
    (progn
      (princ "\nSelected object is not a hatch, try again")
      (command)
      (princ)
    )                    ;progn
    (princ (strcat "\nHatch origin is "(rtos (cdr (assoc 43 htch)))","(rtos (cdr (assoc 44 htch)))
       )
    )
 )                    ;if
 (princ)
)                    ;defun

[Lee Mac]

If you want to use the point for future reference within a LISP, just use an entsel/entlast command (as in lpseifert's LISP), then use the following:

 

(setq a (entget (car (entsel)))) ;  <<--->>  OR (setq a (entget (entlast)))
(setq b (cdr (assoc 43 a)))
(setq c (cdr (assoc 44 a)))
(setq d (list b c))

[Johntosh]

Thanks guys, all very helpful.

 

God bless!

[dtkell]

quick and dirty....

 

Never gave this much thought as to needing it, but I do see thatit could come in handy!

 

Thanks.