Set Layer Color

Set Layer Color

GeryKnee
Advocate Advocate
677 Views
1 Reply
Message 1 of 2

Set Layer Color

GeryKnee
Advocate
Advocate

the following code causes error

where's the bug??

 

 

(defun fnSetLayerColor ( laname col )
(if (tblsearch "layer" laname)
(Command "_.layer" "c" col laname "")
)
(princ)
)

(defun c:lh ( / d )
;
(fnSetLayerColor "0" 6)
(fnSetLayerColor "A-COLUMNS" 1)
(fnSetLayerColor "PELMA_THEM" 7)
(fnSetLayerColor "PEN_1" 5)
(fnSetLayerColor "PEN_2" 7)
(fnSetLayerColor "PEN_3" 7)
(fnSetLayerColor "PEN_4" 7)
(fnSetLayerColor "PEN_5" 5)
(fnSetLayerColor "PEN_7" 5)
(fnSetLayerColor "PEN_8" 254);;253
(fnSetLayerColor "TEXT_1" 7)
(fnSetLayerColor "DETAIL Rebars" 5)
(fnSetLayerColor "Leader Lines" 5)
(fnSetLayerColor "IRON_SLAB" 7)
(fnSetLayerColor "Z-Z221-T_Text _25" 7)
(fnSetLayerColor "T-Z22-T_Title_Text_Secondary" )
(fnSetLayerColor "ÔÅ×Ô COLUMN_1" 7)
(fnSetLayerColor "dokaria" 3)
(fnSetLayerColor "BEAM_TEXT" 7)
(fnSetLayerColor "DETTXT" 7)
(fnSetLayerColor "SLAB_REINFORCEMENT" 7)
(fnSetLayerColor "SLAB_REINFORCEMENT_TEXT" 7)
(fnSetLayerColor "SLABBAR_NAME" 7)
(fnSetLayerColor "SLABBAR_LINE" 3)
(fnSetLayerColor "KATAKLISEIS"5)
(fnSetLayerColor "BEAM_PREFIX_NAME_BETON" 7)
(fnSetLayerColor "STAIRS-2D" 5)
(fnSetLayerColor "BRIGHTWHITE" 7)
(fnSetLayerColor "PINAKIDA" 5)
(fnSetLayerColor "COLTXT1" 7)
(fnSetLayerColor "COLTXT2" 7)
(fnSetLayerColor "DETSYND" 12)
(fnSetLayerColor "DETIRON" 3)
(fnSetLayerColor "DETOTHERS" 5)
(fnSetLayerColor "DETC" 7)
(fnSetLayerColor "DETDIST" 231)
(fnSetLayerColor "diastaseis" 231)
(fnSetLayerColor "DISTTXT" 7)
(fnSetLayerColor "iron beam text" 7)
(fnSetLayerColor "TITLES-2D" 5)
(fnSetLayerColor "STAIRS-2D" 5)
;
(princ)
)

0 Likes
Accepted solutions (1)
678 Views
1 Reply
Reply (1)
Message 2 of 2

nathanwheeler27
Advocate
Advocate
Accepted solution

You are missing a value:

 

(defun fnSetLayerColor ( laname col )
(if (tblsearch "layer" laname)
(Command "_.layer" "c" col laname "")
)
(princ)
)

(defun c:lh ( / d )
;
(fnSetLayerColor "0" 6)
(fnSetLayerColor "A-COLUMNS" 1)
(fnSetLayerColor "PELMA_THEM" 7)
(fnSetLayerColor "PEN_1" 5)
(fnSetLayerColor "PEN_2" 7)
(fnSetLayerColor "PEN_3" 7)
(fnSetLayerColor "PEN_4" 7)
(fnSetLayerColor "PEN_5" 5)
(fnSetLayerColor "PEN_7" 5)
(fnSetLayerColor "PEN_8" 254);;253
(fnSetLayerColor "TEXT_1" 7)
(fnSetLayerColor "DETAIL Rebars" 5)
(fnSetLayerColor "Leader Lines" 5)
(fnSetLayerColor "IRON_SLAB" 7)
(fnSetLayerColor "Z-Z221-T_Text _25" 7)
(fnSetLayerColor "T-Z22-T_Title_Text_Secondary" ) ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<
(fnSetLayerColor "ÔÅ×Ô COLUMN_1" 7)
(fnSetLayerColor "dokaria" 3)
(fnSetLayerColor "BEAM_TEXT" 7)
(fnSetLayerColor "DETTXT" 7)
(fnSetLayerColor "SLAB_REINFORCEMENT" 7)
(fnSetLayerColor "SLAB_REINFORCEMENT_TEXT" 7)
(fnSetLayerColor "SLABBAR_NAME" 7)
(fnSetLayerColor "SLABBAR_LINE" 3)
(fnSetLayerColor "KATAKLISEIS"5)
(fnSetLayerColor "BEAM_PREFIX_NAME_BETON" 7)
(fnSetLayerColor "STAIRS-2D" 5)
(fnSetLayerColor "BRIGHTWHITE" 7)
(fnSetLayerColor "PINAKIDA" 5)
(fnSetLayerColor "COLTXT1" 7)
(fnSetLayerColor "COLTXT2" 7)
(fnSetLayerColor "DETSYND" 12)
(fnSetLayerColor "DETIRON" 3)
(fnSetLayerColor "DETOTHERS" 5)
(fnSetLayerColor "DETC" 7)
(fnSetLayerColor "DETDIST" 231)
(fnSetLayerColor "diastaseis" 231)
(fnSetLayerColor "DISTTXT" 7)
(fnSetLayerColor "iron beam text" 7)
(fnSetLayerColor "TITLES-2D" 5)
(fnSetLayerColor "STAIRS-2D" 5)
;
(princ)
)