;;; Change Layer colours according to INR (Israel Native Roads) Standard
;;; Created by Igal Averbuh 2017
;;; Based on some subroutines of other CAD developers with respect to them

(defun C:ACB ; = All to Color Bylayer
(/ cb ent obj blk subent)
(defun cb () ; = force Color(s) to Bylayer
(setq obj (vlax-ename->vla-object ent))
(vla-put-color obj 256); ByLayer
(if (wcmatch (vla-get-ObjectName obj) "*Dimension,*Leader")
(foreach prop '(DimensionLineColor ExtensionLineColor TextColor)
;; not all such entity types have all 3 properties, but all have at least one
(if (vlax-property-available-p obj prop)
(vlax-put obj prop 256); ByLayer
); if
); foreach
); if
); defun -- cb
;; Top-level entities:
(setq ent (entnext))
(while ent
(cb)
(setq ent (entnext ent))
); while
;; Nested entities in this drawing's Block definitions:
(setq blk (tblnext "block" t))
(while blk
(if (= (logand 20 (cdr (assoc 70 blk))) 0); not an Xref [4] or Xref-dependent [16]
(progn
(setq ent (cdr (assoc -2 blk)))
(while ent
(cb)
(setq ent (entnext ent))
); while
); progn
); if
(setq blk (tblnext "block"))
); while

(princ)
); defun
;(c:acb)

(defun c:yc (/ colLst lay col) ; change layer colours siutable for screen 231,234,238
(vl-load-com)
(layerstate-save "before-yellow-change" nil nil)
(setq colLst '(
(2 . 1)
(254 . 1)
(255 . 1)
(41 . 1)
(51 . 1)
(61 . 1)
(60 . 1)
(141 . 1)
(50 . 1)
(121 . 1)
(111 . 1)
(90 . 1)
(131 . 1)
(120 . 1)
(130 . 1)
(4 . 1)
))

(vlax-for l (vla-get-layers
(vla-get-activedocument
(vlax-get-acad-object)))
(setq lay (cons l lay)))
(foreach layer lay
(if (setq col (assoc (vla-get-color layer) colLst))
(vla-put-color layer (cdr col))))
(princ))

;(c:yc)

(defun c:ltx ( )
(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TEURA*")
(vl-catch-all-apply 'vla-put-color (list layer 160))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TPZ-HASHMAL*")
(vl-catch-all-apply 'vla-put-color (list layer 30))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*BAR-HASHMAL*")
(vl-catch-all-apply 'vla-put-color (list layer 30))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TPZHASHMAL*")
(vl-catch-all-apply 'vla-put-color (list layer 30))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*BARHASHMAL*")
(vl-catch-all-apply 'vla-put-color (list layer 30))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TPZ-HASHMAL-TXT*")
(vl-catch-all-apply 'vla-put-color (list layer 27))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*BAR-HASHMAL-TXT*")
(vl-catch-all-apply 'vla-put-color (list layer 27))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TPZHASHMAL-TXT*")
(vl-catch-all-apply 'vla-put-color (list layer 27))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*BARHASHMAL-TXT*")
(vl-catch-all-apply 'vla-put-color (list layer 27))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*ARAKA*")
(vl-catch-all-apply 'vla-put-color (list layer 30))
)
)
(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*BEZEQ*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)
(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*BREAK*")
(vl-catch-all-apply 'vla-put-color (list layer 30))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*GVUL*")
(vl-catch-all-apply 'vla-put-color (list layer 175))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*-HOT*")
(vl-catch-all-apply 'vla-put-color (list layer 190))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*KRIZA*")
(vl-catch-all-apply 'vla-put-color (list layer 134))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*PRAT*")
(vl-catch-all-apply 'vla-put-color (list layer 1))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SMOKE*")
(vl-catch-all-apply 'vla-put-color (list layer 190))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TEL*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TIKSH*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*-VP*")
(vl-catch-all-apply 'vla-put-color (list layer 1))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*EL-*")
(vl-catch-all-apply 'vla-put-color (list layer 30))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*-EL-LT*")
(vl-catch-all-apply 'vla-put-color (list layer 162))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TC-BEZ*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TC-CEL*")
(vl-catch-all-apply 'vla-put-color (list layer 132))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TC-HOT*")
(vl-catch-all-apply 'vla-put-color (list layer 190))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TC-PAR*")
(vl-catch-all-apply 'vla-put-color (list layer 123))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TC-PEL*")
(vl-catch-all-apply 'vla-put-color (list layer 99))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TM-*")
(vl-catch-all-apply 'vla-put-color (list layer 66))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*UG-EX*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*ARAK-DIM*")
(vl-catch-all-apply 'vla-put-color (list layer 27))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*ARAK-TXT*")
(vl-catch-all-apply 'vla-put-color (list layer 27))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*BAKARA*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SWITCHBOARD*")
(vl-catch-all-apply 'vla-put-color (list layer 1))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TIKSHORET*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TRCOM*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*BAKARA*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*FRAME*")
(vl-catch-all-apply 'vla-put-color (list layer 1))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*EL-EQIP*")
(vl-catch-all-apply 'vla-put-color (list layer 27))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*EL-EQIP-EX*")
(vl-catch-all-apply 'vla-put-color (list layer 210))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*EX-222*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*HW-*")
(vl-catch-all-apply 'vla-put-color (list layer 14))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*HW-BARI*")
(vl-catch-all-apply 'vla-put-color (list layer 2))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*NEKOZ*")
(vl-catch-all-apply 'vla-put-color (list layer 136))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*NIKUZ*")
(vl-catch-all-apply 'vla-put-color (list layer 136))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TEALA*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*KOLTAN*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "49*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*DIKUR*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*HATCH*")
(vl-catch-all-apply 'vla-put-color (list layer 9))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*DIM*")
(vl-catch-all-apply 'vla-put-color (list layer 1))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SNIKA*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*DRAIN*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*DITCH*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*PIPE*")
(vl-catch-all-apply 'vla-put-color (list layer 136))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TAALA*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*UT-CNCL*")
(vl-catch-all-apply 'vla-put-color (list layer 1))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*ZINOR*")
(vl-catch-all-apply 'vla-put-color (list layer 136))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*RITSOF*")
(vl-catch-all-apply 'vla-put-color (list layer 9))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*RETSUF*")
(vl-catch-all-apply 'vla-put-color (list layer 9))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TKSHR*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TELEFON*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*BEZEK*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*ARON-HASHMAL*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*ARON-TELEFON*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*ARON-TIKSHORET*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*ARON_TV*")
(vl-catch-all-apply 'vla-put-color (list layer 190))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*BIUV*")
(vl-catch-all-apply 'vla-put-color (list layer 226))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*BEOV*")
(vl-catch-all-apply 'vla-put-color (list layer 226))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*BIOV*")
(vl-catch-all-apply 'vla-put-color (list layer 226))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*ELECT*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*EVEN*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*GADER*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*FENCE*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*DIRT*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*GAG*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*GENON*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*GESHER*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*MAAKE*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TREE*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SAN*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*MIFLAS*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*PNT*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "15*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "16*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*ASFLT*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*HATSAIA*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*ASFALT*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*HANAIA*")
(vl-catch-all-apply 'vla-put-color (list layer 14))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*METAH*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*PILER*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*BETON*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*MADREGOT*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*MAHSAN*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*MAIM*")
(vl-catch-all-apply 'vla-put-color (list layer 136))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*MEDRON*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*MDRON*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*NOTE*")
(vl-catch-all-apply 'vla-put-color (list layer 1))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*BATIM*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "1KIR*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*MESLAA*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SAFSAL*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SHAAR*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SHELET*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SHVEL*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SHAHA*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TERACE*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*RAMZOR*")
(vl-catch-all-apply 'vla-put-color (list layer 231))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*WATER*")
(vl-catch-all-apply 'vla-put-color (list layer 136))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "1ZIR*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "21*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "22*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "24*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "25*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "26*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "28*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "30*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "39*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "40*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "42*")
(vl-catch-all-apply 'vla-put-color (list layer 190))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "44*")
(vl-catch-all-apply 'vla-put-color (list layer 160))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "46*")
(vl-catch-all-apply 'vla-put-color (list layer 136))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "48*")
(vl-catch-all-apply 'vla-put-color (list layer 226))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "49*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "51*")
(vl-catch-all-apply 'vla-put-color (list layer 195))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "52*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "60*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "61*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "62*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "63*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "65*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "66*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "68*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "69*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "71*")
(vl-catch-all-apply 'vla-put-color (list layer 190))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*BASIS*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "BEZ*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*BIYOV*")
(vl-catch-all-apply 'vla-put-color (list layer 226))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*-TR-*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SIGN*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "BLD*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SSWR*")
(vl-catch-all-apply 'vla-put-color (list layer 136))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*STRM*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TOPO*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "CEL*")
(vl-catch-all-apply 'vla-put-color (list layer 123))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*CENTER*")
(vl-catch-all-apply 'vla-put-color (list layer 15))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "COD-12*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "COD-15*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "COD-19*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "COD-20*")
(vl-catch-all-apply 'vla-put-color (list layer 226))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "COD-22*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "COD-23*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "COD-24*")
(vl-catch-all-apply 'vla-put-color (list layer 160))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "COD-27*")
(vl-catch-all-apply 'vla-put-color (list layer 136))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "COD-12*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "COD-29*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "COD-30*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "COD-40*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "COD-42*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "COD-43*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "COD-45*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "COD-49*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*CONT*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*DELEK*")
(vl-catch-all-apply 'vla-put-color (list layer 195))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*DEREH*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*DERECH*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*DIKUR*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*DITC*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*POINTS*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*ELC*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*ELEV*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*ESD*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*STONE*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*FNC*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*HELKA*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*MEGRASH*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*GOSH*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "HASHM*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*HI-ALIGN*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*HIDRANT*")
(vl-catch-all-apply 'vla-put-color (list layer 136))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*HPP*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*IPNAME*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*K-H*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*K-B*")
(vl-catch-all-apply 'vla-put-color (list layer 226))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*BEOB*")
(vl-catch-all-apply 'vla-put-color (list layer 226))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*MEKOROT*")
(vl-catch-all-apply 'vla-put-color (list layer 136))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*KOTERET*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*KVISH*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "LR-*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M21*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M22*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M24*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M25*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M26*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M28*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M30*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M39*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M40*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M42*")
(vl-catch-all-apply 'vla-put-color (list layer 190))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M44*")
(vl-catch-all-apply 'vla-put-color (list layer 160))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M46*")
(vl-catch-all-apply 'vla-put-color (list layer 136))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M48*")
(vl-catch-all-apply 'vla-put-color (list layer 226))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M49*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M51*")
(vl-catch-all-apply 'vla-put-color (list layer 195))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M52*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M60*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M61*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M62*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M63*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M65*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M66*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M68*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M69*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M71*")
(vl-catch-all-apply 'vla-put-color (list layer 190))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M15*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M16*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "M10*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*MAGOF*")
(vl-catch-all-apply 'vla-put-color (list layer 136))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*MESGERET*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*BAZEK*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*PLADA*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*_SELK*")
(vl-catch-all-apply 'vla-put-color (list layer 123))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*POINT*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*NUM-*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*OBJS*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*OGEN*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*P-AMG-*")
(vl-catch-all-apply 'vla-put-color (list layer 222))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*LIGHT*")
(vl-catch-all-apply 'vla-put-color (list layer 160))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TAMRUR*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*PARC*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*PCELL*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*PCLP*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*PCLS*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*PHNS*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*POLH*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*POLIG*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*POLS*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*PWTP*")
(vl-catch-all-apply 'vla-put-color (list layer 136))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*PWTS*")
(vl-catch-all-apply 'vla-put-color (list layer 136))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*RAZIF*")
(vl-catch-all-apply 'vla-put-color (list layer 11))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*ROAD*")
(vl-catch-all-apply 'vla-put-color (list layer 14))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*RODP*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*ROZETA*")
(vl-catch-all-apply 'vla-put-color (list layer 1))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "RR-*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*CLIF*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*CURB*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*DETAIL*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*CURB*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*DRAIN*")
(vl-catch-all-apply 'vla-put-color (list layer 8))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*GARDEN*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*GATE*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*GRASS*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*GREEN*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*PAVED*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*PAVEMENT*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*PHONE*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SEWAGE*")
(vl-catch-all-apply 'vla-put-color (list layer 226))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SHRUBS*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*STRCT*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*WALL*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "SEC*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SELA*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SELCOM*")
(vl-catch-all-apply 'vla-put-color (list layer 132))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SGNP*")
(vl-catch-all-apply 'vla-put-color (list layer 231))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SHAON*")
(vl-catch-all-apply 'vla-put-color (list layer 136))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SHARVUL*")
(vl-catch-all-apply 'vla-put-color (list layer 226))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SHIKUA*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SHUH*")
(vl-catch-all-apply 'vla-put-color (list layer 226))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SHUL*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SHVILIM*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SHVIRA*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SIMUN*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SLOPE*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SOLID*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SRVS*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*START*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SWGP*")
(vl-catch-all-apply 'vla-put-color (list layer 226))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SWGS*")
(vl-catch-all-apply 'vla-put-color (list layer 226))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*SYM*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TEKSHORT*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TELE*")
(vl-catch-all-apply 'vla-put-color (list layer 102))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TALAK*")
(vl-catch-all-apply 'vla-put-color (list layer 190))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*TR_*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*UT-IR*")
(vl-catch-all-apply 'vla-put-color (list layer 136))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*WS-S*")
(vl-catch-all-apply 'vla-put-color (list layer 226))
)
)

(vlax-for layer (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
(if (wcmatch (strcase (vla-get-name layer)) "*ZEVA*")
(vl-catch-all-apply 'vla-put-color (list layer 253))
)
)

(princ)
)
(vl-load-com) (princ)

(defun c:inr ( )
(c:acb)
(c:yc)
(c:ltx)
)

;(C:inr)

Advertisements