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

By Longpark
January 20, 2021 in AutoLISP, Visual LISP & DCL

https://www.cadtutor.net/forum/topic/72043-help-me-adding-layer-boundary-rectang-is-wall-and-layer-hatch-is-hatch/

Followers 0

Recommended Posts

Longpark

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

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.