topic Lisp explode all Except Line in Visual LISP, AutoLISP and General Customization Forum

Lisp explode all Except Line

Edwin.Saez — Mon, 19 Jun 2017 15:16:45 GMT

hi everyone!

Someone will have a lisp, that works just like the command "explode", but does not ask for a selection, but when running the command explode everything. It should also exclude exploiting the lines.

This code does what I need, but does not exclude the lines, Could someone change it?

(setvar "QAFLAGS" 1) (command "_.explode" (ssget "_X") "") (setvar "QAFLAGS" 0)

Re: Lisp explode all Except Line

Kent1Cooper — Mon, 19 Jun 2017 15:30:16 GMT

@Edwin.Saez.Jamanca wrote:

... works just like the command "explode", but does not ask for a selection, but when running the command explode everything. It should also exclude exploiting the lines.

This code does what I need, but does not exclude the lines, Could someone change it?
(setvar "QAFLAGS" 1) (command "_.explode" (ssget "_X") "") (setvar "QAFLAGS" 0)

Another way:

(initcommandversion 2)
(command "_.explode" "_all" "")

BUT what do you mean by excluding the Lines? They can't be Exploded anyway, so the above just counts them as among the things that it couldn't Explode [along with other kinds of things, such as plain Text, Circles, etc.]. Do you mean some other kind of object(s), such as Polylines? If so:

(initcommandversion 2)
(command "_.explode" (ssget "_X" '((0 . "~*POLYLINE"))) "")

Re: Lisp explode all Except Line

Edwin.Saez — Mon, 19 Jun 2017 16:12:33 GMT

@Kent1Cooper,

Thanks for the help, if it is working well.

I wanted to ask you if it could be included in a single line of code, excluding polylines and hatchs. it's possible?

Re: Lisp explode all Except Line

Kent1Cooper — Mon, 19 Jun 2017 16:37:59 GMT

@Edwin.Saez.Jamanca wrote:

....
I wanted to ask you if it could be included in a single line of code, excluding polylines and hatchs. it's possible?

That would require a "logical grouping" of things that are not Polylines AND are not Hatches. Read about logical groupings in (ssget) filter lists in Help.

(initcommandversion 2)
(command "_.explode" (ssget "_X" '((-4 . "<AND") (0 . "~*POLYLINE") (0 . "~HATCH") (-4 . "AND>"))) "")

Re: Lisp explode all Except Line

Ranjit_Singh — Mon, 19 Jun 2017 17:35:50 GMT

@Edwin.Saez.Jamanca wrote:

................

I wanted to ask you if it could be included in a single line of code, excluding polylines and hatchs..........

(ssget "_x" '((-4 . "<not") (0 . "*polyline,hatch") (-4 . "not>"))