mdharmon Posted January 19, 2009 Posted January 19, 2009 I have a drawing with many hatches on the same layer. I need a lsp that will allow me to select one of the hatches and send the entire layer to the back. Any ideas? Quote
Lee Mac Posted January 19, 2009 Posted January 19, 2009 Are you referring to the drawing order of the objects? Quote
mdharmon Posted January 19, 2009 Author Posted January 19, 2009 yes, i am dealing with many areas of concrete pavement all with a hatch. I have many utilities and such that are below the walk hatch and i need to be able to send the entire layer to the back (draw order) as opposed to sending each hatch back one section at a time. Quote
Lee Mac Posted January 19, 2009 Posted January 19, 2009 This should do the trick - will work on any entity: (defun c:hatchback (/ lEnt lLay lSels) (setvar "cmdecho" 0) (while (setq lEnt (car (entsel "\nSelect Entity on Layer to Send to Back > "))) (setq lLay (cdr (assoc 8 (entget lEnt))) lSels (ssget "X" (list (cons 8 lLay)(if (getvar "CTAB") (cons 410 (getvar "CTAB")) (cons 67 (- 1 (getvar "TILEMODE"))))))) (command "_.draworder" lSels "" "B")) (setvar "cmdecho" 1) (princ)) Quote
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.