Automated Hatching

I am trying to solid hatch numerous polyline boxes and each one has to be done seperately. Is there any quick easy program code to facilitate this which would just mean clicking the perimeter of each box?

Many thanks in advance

 

Tablet/Screen/Toolbar approach:

*^C^CHATCH S \;

Pick on the menu item once and you should be able to pick items
continuously, each of which would be solid-hatched individually. (But I
haven't tested it.) This should work with closed polylines, circles, and
other stuff that can form a hatch boundary with one entity.

Add in whatever layer controls, error handling (e.g. if what you pick isn't
a closed shape), etc., you need.

Kent Cooper, AIA


...

 

LISP approach:

(defun C:MHATCH (/ ent)
(while (setq ent (entsel "\nObject to hatch (ENTER when done): "))
(command "-bhatch" "_p" "_s" "_s" ent "" "")
)
(princ)
)
___

done seperately. Is there any quick easy program code to facilitate this
which would just mean clicking the perimeter of each box?

 

If you need them to be associative:

*^C^C-BHATCH A A Y ;P S S \;;

Kent Cooper, AIA

 

Thank you very much thats has made life so much easier.

Colin