Longpark Posted January 20, 2021 Share Posted January 20, 2021 (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"" "") Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.