Automated hatching

Can anyone help me with regard to this. I want to be able to point the mouse within a boundary and have that selected as an area for solid hatching. Also i want it to be the points selected are individual solid hatches.

Thanks for your help

Colin

 

This code was taken from somewhere else on this forum.
I forget where, when and who. Apologies to the author.
Works fine for me.
From command line type - mhatchsolid

HOLLY x

;;;--------------------------------------
(defun SSHatch (ent1)
(command "_.bhatch" "a" "a" "y" "" "p" "solid" "s" ent1 "" "")
)
(defun SelSetPro (sset dowhat / ssent)
(while (/= (sslength sset) 0)
(setq ssent (ssname sset 0))
(dowhat ssent)
(ssdel ssent sset)
)
)

(defun c:mhatchsolid (/ ss)
(command "_.undo" "_end")
(command "_.undo" "_group")
(prompt "\nSelect areas to hatch")
(setq ss (ssget))
(SelSetPro ss SSHatch)
(command "_.unod" "_end")
)
;;;----------------------------------------

 

Thanks Holly will give it a try

Colin

 

Command worked good after I changed unod to undo.

 

Hi colin1234, maybe I help you,try this

; mh is stand for making hatch
; Design by Ade Suharna <>
; 5 October 2004
; Program no.101/10/2004
(defun c:mh ()
(while
(setq ent (getpoint "\nCLICK OBJECT FOR HATCH: "))
(setq inp1 (getstring "\nENTER NEW NAME OF HATCH PATTERN: "))
(setq inp2 (getreal "\nENTER NEW SCALE OF HATCH: "))
(setq inp3 (getreal "\nENTER NEW ANGLE OF HATCH: "))
(command "_bhatch" "p" inp1 inp2 inp3 ent "")
)
)