HELP ME ! ADDING LAYER BOUNDARY RECTANG IS WALL AND LAYER HATCH IS HATCH

[Long Park]

(defun C:PZ ();
(setq pnt1 (getpoint "Select upper left hand corner for placement of rectangle: "))
(setq pnt2 (getcorner pnt1 "Select lower right hand corner for placement of rectangle: "))
(command "rectangle" pnt1 pnt2)
(setq ent1 (entlast))
(command "-hatch" "P" "ANSI31" "1000" "0" "S" ent1"" "")

[Tom Beauford]

Moderator shouldn't this be in https://forums.augi.com/forumdisplay.php?91-AutoLISP

[tedg]

(defun C:PZ ();
(setq pnt1 (getpoint "Select upper left hand corner for placement of rectangle: "))
(setq pnt2 (getcorner pnt1 "Select lower right hand corner for placement of rectangle: "))
(command "rectangle" pnt1 pnt2)
(setq ent1 (entlast))
(command "-hatch" "P" "ANSI31" "1000" "0" "S" ent1"" "")

Give this a whirl..
(of course you would need to edit the properties of those layers you mentioned, I used layer colors I use a lot)

(defun C:PZ (/ lyr LR1 LR2 ent1);
(setq lyr (getvar "clayer"))
(setq pnt1 (getpoint "Select upper left hand corner for placement of rectangle: "))
(setq pnt2 (getcorner pnt1 "Select lower right hand corner for placement of rectangle: "))
	(setq LR1 (tblsearch "layer" "WALL"));;checks to see if the layer exists already  
	(setq LR2 (tblsearch "layer" "HATCH"));;checks to see if the layer exists already
		(if (= LR1 nil)
		(command "layer" "make" "WALL" "color" "3" "" "" "" "")) ;;edit for your desired layer properties
		(if (= LR2 nil)
		(command "layer" "make" "HATCH" "color" "150" "" "" "" "")) ;;edit for your desired layer properties
(command "layer" "s" "WALL" "" "")
(command "rectangle" pnt1 pnt2)
(setq ent1 (entlast))
(command "layer" "s" "HATCH" "" "")
(command "-hatch" "P" "ANSI31" "1000" "0" "S" ent1"" "")
(setvar "clayer" lyr)
(princ)
)

Hope this helps.
It was nice that you had a starting point to help you with.

A few etiquette hints, please don't use UPPERCASE letters when posting questions, or explanation points (!), it comes across as shouting a demand, not a request.
Also the thread title should just state it's purpose "please help with wall and hatch lisp" or similar, and then describe your issues in the body of the thread.

[BIG-AL]

Nice idea tedg for me if making a lot of lisps then I have a Autoload lisp and one of the defuns in it is laychk it does as it suggests does layer exist if not then make. So 1 line in code.

(laychk "Abcdefg" 3 "Continous") or a simpler version that ignores color and line type (laychk1 "Abcdefg") and (laychk2 "Abcdefg" 3).