Thanks Paul, but I am having trouble making it work, this is what I have.
(defun C:hatc ()
(setq scal (getvar "dimscale"))
(setq clayer (getvar "clayer"))
(setvar "clayer" "LINE Hatch")
(command "_.-bhatch" "_p" "ANSI31" (/ scal 2) "45")
(while (= (logand (getvar "cmdactive") 1) 1)
(command pause)
);; while
(setvar "clayer" clayer)
)
I have very limited lisp skills!!!
Thanks for any help
"Paul Turvill"
wrote in message
news:A1F104E2F102A570109833D5DDCB3162@in.WebX.maYIadrTaRb...
> Something like this should work (you'll need to gather the various
> parameters with your own (getxxx) statements):
>
> (setq clayer (getvar "clayer"))
> (setvar "clayer" "<>")
> (command "_.-bhatch" "_p" "<>" "<>" "<>")
> (while (= (logand (getvar "cmdactive") 1) 1)
> (command pause)
> );; while
> (setvar "clayer" clayer)
> ___
>
> "Cory Sullivan" wrote in message
> news:EE2DEE93ADD677E763CBCDA70E552444@in.WebX.maYIadrTaRb...
> >
> > I am looking for a simple lisp (I guess using -bhatch) that generates a
> > hatch with my pre-selected pattern, scale, rotation, etc.. Also I would
> > like it to place the hatch a specfic layer and then return to the
current
> > active layer. I remeber seeing this sometime ago, but can't seem to
find
> it
> > now.
>
>