I am using black background and with this script I lighten darker layer colors.
- first color row in Color window will be assigned the next row below
- last row row in Color window will be assigned the next row above
Is there any way to slim the code, without using too many lisp functions?
(vlax-for layer (vla-get-Layers (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(if (= 18 (vla-get-Color layer))(vla-put-Color layer 16))
(if (= 28 (vla-get-Color layer))(vla-put-Color layer 26))
(if (= 38 (vla-get-Color layer))(vla-put-Color layer 36))
(if (= 48 (vla-get-Color layer))(vla-put-Color layer 46))
(if (= 58 (vla-get-Color layer))(vla-put-Color layer 56))
(if (= 68 (vla-get-Color layer))(vla-put-Color layer 66))
(if (= 78 (vla-get-Color layer))(vla-put-Color layer 76))
(if (= 88 (vla-get-Color layer))(vla-put-Color layer 86))
(if (= 98 (vla-get-Color layer))(vla-put-Color layer 96))
(if (= 108 (vla-get-Color layer))(vla-put-Color layer 106))
(if (= 118 (vla-get-Color layer))(vla-put-Color layer 116))
(if (= 128 (vla-get-Color layer))(vla-put-Color layer 126))
(if (= 138 (vla-get-Color layer))(vla-put-Color layer 136))
(if (= 148 (vla-get-Color layer))(vla-put-Color layer 146))
(if (= 158 (vla-get-Color layer))(vla-put-Color layer 156))
(if (= 168 (vla-get-Color layer))(vla-put-Color layer 166))
(if (= 178 (vla-get-Color layer))(vla-put-Color layer 176))
(if (= 188 (vla-get-Color layer))(vla-put-Color layer 186))
(if (= 198 (vla-get-Color layer))(vla-put-Color layer 196))
(if (= 208 (vla-get-Color layer))(vla-put-Color layer 206))
(if (= 218 (vla-get-Color layer))(vla-put-Color layer 216))
(if (= 228 (vla-get-Color layer))(vla-put-Color layer 226))
(if (= 238 (vla-get-Color layer))(vla-put-Color layer 236))
(if (= 248 (vla-get-Color layer))(vla-put-Color layer 246))
(if (= 19 (vla-get-Color layer))(vla-put-Color layer 17))
(if (= 29 (vla-get-Color layer))(vla-put-Color layer 27))
(if (= 39 (vla-get-Color layer))(vla-put-Color layer 37))
(if (= 49 (vla-get-Color layer))(vla-put-Color layer 47))
(if (= 59 (vla-get-Color layer))(vla-put-Color layer 57))
(if (= 69 (vla-get-Color layer))(vla-put-Color layer 67))
(if (= 79 (vla-get-Color layer))(vla-put-Color layer 77))
(if (= 89 (vla-get-Color layer))(vla-put-Color layer 87))
(if (= 99 (vla-get-Color layer))(vla-put-Color layer 97))
(if (= 109 (vla-get-Color layer))(vla-put-Color layer 107))
(if (= 119 (vla-get-Color layer))(vla-put-Color layer 117))
(if (= 129 (vla-get-Color layer))(vla-put-Color layer 127))
(if (= 139 (vla-get-Color layer))(vla-put-Color layer 137))
(if (= 149 (vla-get-Color layer))(vla-put-Color layer 147))
(if (= 159 (vla-get-Color layer))(vla-put-Color layer 157))
(if (= 169 (vla-get-Color layer))(vla-put-Color layer 167))
(if (= 179 (vla-get-Color layer))(vla-put-Color layer 177))
(if (= 189 (vla-get-Color layer))(vla-put-Color layer 187))
(if (= 199 (vla-get-Color layer))(vla-put-Color layer 197))
(if (= 209 (vla-get-Color layer))(vla-put-Color layer 207))
(if (= 219 (vla-get-Color layer))(vla-put-Color layer 217))
(if (= 229 (vla-get-Color layer))(vla-put-Color layer 227))
(if (= 239 (vla-get-Color layer))(vla-put-Color layer 237))
(if (= 249 (vla-get-Color layer))(vla-put-Color layer 247))
(if (= 250 (vla-get-Color layer))(vla-put-Color layer 7))
(princ))