LAYCOL

[Efeezy]

I have had this scrip for years. I am running Autocad 2022 right now. I have been a mbemer on here for over 15 years I can not get in my old account Efeezy. Can someone fix this. I use it for my backgrounds. It cleanes everything up really fast. I run a script before this to change all the colors to red or what ever so evething I don't need stands out.   I am glad this site is still here.

 

ERROR WTF MAYBE MAKE NEW SCRIPT
-----------------------------------------------
LAYCOL 

(defun c:98 ( / col lay lst )
    (setq lst
       '(
            ("*MATC*"          . 001)
            ("*SYMB*"          . 001)
            ("*existing*wall*" . 009)
            ("*wall*"          . 009)
            ("*-wall*"         . 009)
            ("*COLS*"          . 009)
            ("*BEAM*"          . 009)
            ("*door*"          . 009)
            ("*stairs*"        . 009)
            ("*stair*"         . 009)
            ("*strs*"          . 009)
            ("*grid*"          . 113)      
            ("*area-iden*"     . 113)
            ("*ANNO-TEXT*"     . 142)
	    ("*Sanr-fixt*"     . 160)
            ("*glaz*"          . 141)
            ("*window*"        . 141)
            ("*glazing*"       . 141)
            ("*SPCQ*"          . 141)
            ("*CASE*"          . 043)
            ("*furniture*"     . 043)
            ("*A-FLOR-FURN*"   . 043)     
            ("*ROOF*"          . 151)
            ("*HVAC*"          . 031)
            ("*LITE*"          . 103)
            ("*CLNG*"          . 181)
            ("*fixture*"       . 160)
            ("*P-FIXT*"        . 160)
	    ("*EN-LITE-CIRC    . 160)
        )
    )
    (vlax-for obj (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
        (if (setq lay (strcase (vla-get-name obj))
                  col (vl-some '(lambda ( x ) (if (wcmatch lay (strcase (car x))) (cdr x))) lst)
            )
            (vla-put-color obj col)
        )
    )
    (princ)
)
(vl-load-com) (princ)

 

Edited May 3 by Efeezy2

[CADTutor]

13 hours ago, Efeezy said:

I have been a mbemer on here for over 15 years I can not get in my old account Efeezy. Can someone fix this.

 

Done. Please see your email for new login details.

[BIGAL]

It may be as simple as delete these lines at start. I did not look any further. Add (c:98) as last line then it will run when you load it.

 

ERROR WTF MAYBE MAKE NEW SCRIPT
-----------------------------------------------
LAYCOL 

 

[Efeezy]

the lines seperate the lips in my list. I am not sure why this code no longer works.  Ioaded it in Autocad 2022 

[nod684]

change this : 

("*EN-LITE-CIRC   . 160)

to this 

("*EN-LITE-CIRC"  . 160)

 

and if you want to keep this line 

ERROR WTF MAYBE MAKE NEW SCRIPT

-----------------------------------------------

LAYCOL

 

add a ;; before the line as bigal pointed out

;;ERROR WTF MAYBE MAKE NEW SCRIPT

;;-----------------------------------------------

;;LAYCOL

 

Edited May 7 by nod684

[ronjonp]

To add to this, if you had pasted the code into the VLIDE, the color coding is an easy indicator of the missing " since all the code at the end is color coded as a string.

 

[Efeezy]

Thank youronjonp & nod684, I will update my script right now. one little "..... I didn't even notice.