Set Layer Color

Set Layer Color

GeryKnee
Advocate Advocate
679 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)
680 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)
)