topic Re: Explode, delete & change colour in modelspace & all viewports in Visual LISP, AutoLISP and General Customization Forum

Explode, delete & change colour in modelspace & all viewports

Anonymous — Mon, 15 Apr 2019 20:57:42 GMT

I am trying to get same code that will explode dimensions, hatches, etc, then delete leftover hatches that cannot not exploded, send the wipeouts to back & then change colour & layer of everything. I need this done in all drawing, in BOTH modelspace and paperspace across multiple layouts. I tried something like:

(if (setq ss (ssget "_X" '((0 . "DIMENSION,LEADER,MTEXT,HATCH"))))
(repeat (setq i (sslength ss))
(setq ename (ssname ss (setq i (1- i))))
(command "_.explode" ename)
)

)

(if (setq ss (ssget "_X" '((0 . "HATCH"))))
(repeat (setq i (sslength ss))
(setq ename (ssname ss (setq i (1- i))))
(command "_.erase" ename "")
)
)

(if (setq ss (ssget "_X" '((0 . "WIPEOUT"))))
(command "_.draworder" ss "" "")
)

(if (setq ss (ssget "_X"))
(command "_.chprop" ss "" "_layer" "0" "_c" "7" "")
)

but I keep getting the error: "1 was not in current space". Can anyone help?

Re: Explode, delete & change colour in modelspace & all viewports

dlanorh — Mon, 15 Apr 2019 22:37:20 GMT

You are trying to do something (probably erasing) an object that is not in the current space, i.e. erase an object in paperspace whilst you are in modelspace. This happens because you are using (ssget "_X") incorrectly. You need to specify the current space as part of the filter string

(ssget "_X" ( list '(0 . "HATCH") (cons 410 (getvar 'ctab))))

and put all your code inside a loop that iterates through each layout

Re: Explode, delete & change colour in modelspace & all viewports

Anonymous — Tue, 16 Apr 2019 17:44:38 GMT

Thanks, I appreciate your help.