Layer Color Change LISP Routine

[guardianfiredesign774457]

Hi all,

Just joined the site today and it looks very helpful. Hoping to
learn a lot and broaden my basic lisp routine skills. Was wondering if anyone
could help me with this lisp routine.

When I get a drawing from a
architect its usually filled with all kinds of colors. I manually usually run a
burst lisp routine to break the blocks apart and get them to there true layer
state. Then I will select all objects in the drawing and turn then over to color
250 so they will plot very faded and light and my customers can focus on my fire
sprinkler drawings more. Is that a way to have a list routine do this for me?
Possibly with out having to explode the blocks and make the drawing huge? Even
if the routine couldn't burst then change all objects over to color 250 that
would be fine also.

Looking forward to hear from a professional

Rodney

[Tharwat]

Try this code and select the block that you want to change their element's colors to color number 250

(defun c:Test (/ ss i sn name lst)
  (vl-load-com)
  ;;;        ------ Tharwat 15. June. 2012 -----      ;;;
  ;;; codes to change elements in the selected blocks ;;;
  ;;;                  to color 250                   ;;;
  (if (not acdoc)
    (setq acdoc (vla-get-activedocument (vlax-get-acad-object)))
  )
  (if (setq ss (ssget "_:L" '((0 . "INSERT"))))
    (repeat (setq i (sslength ss))
      (setq sn (ssname ss (setq i (1- i))))
      (if (not (member (setq name (cdr (assoc 2 (entget sn)))) lst))
        (progn
          (setq lst (cons name lst))
          (vlax-for each (vla-item (vla-get-blocks acdoc) name)
            (vla-put-color each 250)
          )
        )
      )
    )
    (princ)
  )
  (if ss
    (vla-regen acdoc AcAllviewports)
  )
  (princ)
)

[BlackBox]

Provided you open the received drawing (without already inserting it into another of your drawings, etc.), you can run this once, and BOOM:

(defun c:BOOM ()
  (command "._setbylayer" (ssget "_x") "" "yes" "yes" "._-layer" "color" 250 "*" "")
  (princ))

[pbejse]

(defun c:BOOM ()
  (command "._setbylayer" (ssget "_x") "" "yes" "yes" "._-layer" "color" 250 "*" "")
  (princ))

SETBYLAER

crawling... crawling..... I'm just too slow.....

[BlackBox]

SETBYLAER

crawling... crawling..... I'm just too slow.....

SETBYLAYER's the bomb (pun intended)...

[pbejse]

SETBYLAYER's the bomb (pun intended)...

Yup, Saw your post on another window even before i clicked Post Quick Reply , I would've named it BAM!!!! if ever i'll get to the point that i can outdraw you RenderMan

[guardianfiredesign774457]

Man you guys ROCK!!!!!!!! Just saved me a ton of time! Can I donate to this site?

Provided you open the received drawing (without already inserting it into another of your drawings, etc.), you can run this once, and BOOM:

(defun c:BOOM ()
  (command "._setbylayer" (ssget "_x") "" "yes" "yes" "._-layer" "color" 250 "*" "")
  (princ))

[BlackBox]

Man you guys ROCK!!!!!!!! Just saved me a ton of time! Can I donate to this site?

That is kind of you to say; There's no need for donations, we're happy to help... Just learn what you can, and help someone else when the opportunity presents itself.

I would've named it BAM!!!!

Name it what you like, I was going for a punny (this commercial cracks us up at home):

if ever i'll get to the point that i can outdraw you RenderMan

Ha, ha, it's not about 'firing' first, it's about getting the job done.

(Inappropriate content)

[guardianfiredesign774457]

Ok so it seems these codes you guys provided will turn even my title block and my blocks that i want red and other colors to be turned to 250 Is there a way to select only the iteams you want changed to be turned to 250? Like have the routine ask you to select all objects, grab them all then BOOM?

That is kind of you to say; There's no need for donations, we're happy to help... Just learn what you can, and help someone else when the opportunity presents itself.



Name it what you like, I was going for a punny (this commercial cracks us up at home):



Ha, ha, it's not about 'firing' first, it's about getting the job done.

(Inappropriate content)

[BlackBox]

(Inappropriate content)

... Seriously?

Ok so it seems these codes you guys provided will turn even my title block and my blocks that i want red and other colors to be turned to 250 Is there a way to select only the iteams you want changed to be turned to 250? Like have the routine ask you to select all objects, grab them all then BOOM?

Just guessing:

(defun c:BOOM ( / *error* ss oss layerName layers)
  (vl-load-com)

  (if (setq ss (ssget "_:L" '((0 . "INSERT"))))
    (progn
      (vlax-for x  (setq oss (vla-get-activeselectionset
                               (vla-get-activedocument
                                 (vlax-get-acad-object))))
        (if
          (not (vl-position (setq layerName (vla-get-layer x)) layers))
           (setq layers (cons layerName layers))))
      (vla-delete oss)
      (command
        "._setbylayer"
        ss
        ""
        "yes"
        "yes"
        "._-layer"
        "color"
        250
        (vl-string-right-trim
          ","
          (apply 'strcat (mapcar '(lambda (x) (strcat x ",")) layers)))
        ""))
    (prompt "\n** Nothing selected ** "))
  (princ))