How to catch alls

Dear alls,
How to put (0 . "circle"),(0 . "line"),(0 . "arc"),(0 . "text"),(0 .
"point"),(0 . "pline")...etc in
"(setq ss (ssget '((0 . "POINT"))))",I want combine in one statement
(ss),thanks for your help
Best regards
Ade Suharna

 

(setq ss (ssget '((0 . "CIRCLE,LINE,ARC,TEXT,POINT,POLYLINE"))))

"PLINE" isn't an object, it's a command to create either POLYLINEs or
LWPOLYLINEs.
___

 

Hi Paul,it is enough and clear,thanks a lot.,yes lwpolyline

 

Paul,

Would this hold true for

(setq ss (ssget '((62 . "1,2,3,...and so on

?

J. Logan

 

No, only groups that use strings. Group 62 uses integers.
___

 

So if I'm trying to select more than one Color?

(-4 . "<XOR") (62 . 1) (62 . 5) (62.15) (-4 . "XOR>")))

J.

 

"<OR" and "OR> ... not XOR. And don't forget to leave spaces on both sides
of the dot.
___

 

And, BTW, this works only for objects with explicitly assigned colors; it
won't find anything with color BYLAYER.
___

 

Right. What I'm trying to do is select those objects (specifically all
entities with colors Red, Blue and 15) to return them to their Bylayer
color.

J. Logan

 

I'm also trying to create routines to do the opposite as well. Turn Selected
objects to colors Red, Blue and 15. I've got one of them working
with....

(defun c:RED ()
(setq ss
(ssget '((0 . "Circle,Line,Arc,Text,Mtext,Polyline"))))
(command "_.change" ss "" "p" "c" "red" "")
(princ)
)

Using your suggestion from your earlier post to Adesu above. Thanks for
that.

J. Logan