LookiLisp to Hatch multiple objects on multiple layers as single hatch per layer
@zasanil wrote:
....
I would like to take a selection set, which has multiple objects across multiple layers, and cycle through each layer creating a single hatch of only the selected objects on that layer. Then it would go to he next layer and hatch only what was selected for that layer, etc.
....
Try this [very lightly tested, and without the usual enhancements yet]:
(defun C:HBL (/ ss n laylist); = Hatch By Layer
(prompt "\nTo Hatch objects collectively for each included Layer,")
(if (setq ss (ssget))
(progn ; then
(repeat (setq n (sslength ss))
(if (not (member (setq layname (cdr (assoc 8 (entget (ssname ss (setq n (1- n))))))) laylist))
(setq laylist (cons layname laylist))
); if
); repeat
(foreach layname laylist
(sssetfirst nil ss); pre-select all for filtered implied-selection below
(command
"_.hatch" "_solid" (ssget "_I" (list (cons 8 layname))) "" ""
"_.chprop" "_last" "" "_layer" layname ""
); command
); foreach
); progn
); if
); defun
I thought it should work with one less Enter [""] at the end of the Hatch command, but it seems to want two of them -- that may be affected by your version, so if it doesn't work, the first thing I'd try is removing one of those.
@zasanil wrote:
It runs and it looks like its doing something to each layer, but when it finishes running, there is nothing there. I tried it both ways (with and without the second set of quotes). I made sure to check for fill-on also.
Then I suggest doing this:
(command "_.hatch")
to get the same operational version of the command that the AutoLisp is getting [certain things are different even in the -Hatch command-line version from the (command)-function version, at least in some versions of AutoCAD], and take note of exactly what it's asking for and in what order, and supply appropriate answers to those prompts.
