Code:(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"" "")