Topic: Select all objects on a color

[danny]

I've seen a routine like this on the Swamp before, just can't seem to find it.  Can anyone help?  Select all objects on a color and change layer.
Thanks,

[CAB]

Perhaps this one:
http://www.theswamp.org/phpBB2/viewtopic.php?p=39127#39127

[danny]

CAB,
That is a great routine, and I also like quick select.  But, I need to be able to run it in a script file.  Sorry, I should have been more specific.

[danny]

o.k I tried this, but got a bad ssget list.  What did I do wrong?  Just trying to get all object on color 8 and change them to layer xxfine.

Code: [Select]

(defun c:c2lay ()
  (setq sset
(ssget
  "x"
  '((62.8))
)
  )
  (if sset
    (repeat (sslength sset)
      (command "_.chprop" sset "" "layer" "xxfine" "")
    )
  )
)

[Jürg Menzi]

Code: [Select]

'((62.8))


must be:

Code: [Select]

'((62 . 8))note the spaces...
Cheers

[whdjr]

You also have to step thru each item in a selection set using nth.

Try this:

Code: [Select]

(defun c:c2lay (/ sset len)
  (setq sset (ssget "x" '((62 . 8))))
  (if sset
    (repeat (setq len (sslength sset))
      (setq len (1- len))
      (command "_.chprop" (nth len sset) "" "layer" "xxfine" "")
    )
  )
)

[Jürg Menzi]

ahem...

Code: [Select]

(if sset
 (command "_.chprop" sset "" "layer" "xxfine" "")
)Should be enough

Cheers

[whdjr]

Yeah that would work as well.  I didn't think of that I just fixed his repeat problem.

[danny]

So essentially, this is all I need?

Code: [Select]

(defun c:c2lay ()
  (setq   sset
    (ssget
      "x"
      '((62 . 8))
    )
  )
  (if sset
    (command "_.chprop" sset "" "layer" "xxfine" "")  
  )
)

[CAB]

As long as it's not 'bylayer'

[whdjr]

Yup!

However it is nice to localize your variables:

Code: [Select]

(defun c:c2lay (/ sset)

[danny]

As long as it's not 'bylayer'

oh darn... Just noticed that too.  How can I select colors even if its 'bylayer'?

[Jeff_M]

You need to make a list of layers that are of the color you want to filter.....Someone, coulda even been me, posted something that does this sometime in the past year or so. Lemme check......

[Jeff_M]

OK, here's one I made up that also catches all entities within blocks...... uses ActiveX methods & proporties and no selection set.

After thinking about this, if you want to keep trying your own solution I'm not posting the code here. If you want to see and/or use it, I'm posting it to the Lilly Pond

[danny]

Jeff,
I was thinking about trying ActiveX, if plain lisp didn't work.  I wish I had enough time to learn this method.  Eventually I'll get there...Thanks to the Swamp for everthing, I've become twice as efficient.  Well...I do spend a lot of time browsing around in here.
So, if I had this list

Code: [Select]

WHITE = _XBOLD
YELLOW = _BOLD
CYAN = _MED
RED = _FINE
MAGENTA = _XFINE
GREY = _XXFINE
how or where would I input this in your code?