宏命令改标注，字体颜色

zmqjason

请教大佬们一个问题，万分感谢！！！

我想通过宏命令更改图纸里很多的标注系列，字体的颜色，现有一段语句，但是不会合并，比如从"DIMS_2"到"DIMS_200"这种，各位大神有办法帮我修改下么，再次谢过

(defun c:tt()
(setq acmCol (vla-getinterfaceobject
            (vlax-get-acad-object)  (strcat "AutoCAD.AcCmColor." (substr (getvar "ACADVER") 1 2))))
(vlax-for x (vla-get-layers (vla-get-activedocument (vlax-get-acad-object)))
   (cond
     ((= (vla-get-name x) "DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIM_1") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIM_3") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_1") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_2") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_4") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_3") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_5") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_6") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_7") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_8") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_9") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_10") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_11") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_12") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_13") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_14") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_15") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_16") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_17") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_18") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_19") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_20") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_21") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_22") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_23") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_24") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_25") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_26") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_27") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_28") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_29") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_30") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_31") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_32") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_33") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_34") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_35") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_36") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_37") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_38") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_39") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "DIMS_40") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_1_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_2_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_3_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_4_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_5_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_6_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_7_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_8_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_9_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_10_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_11_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_12_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_13_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_14_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_15_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_16_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_17_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_18_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_19_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_20_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_21_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_22_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_23_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_24_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_25_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_26_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_27_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_28_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_29_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_30_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_31_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_32_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_33_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_34_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_35_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_36_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_37_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_38_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_39_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_40_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_41_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_42_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_43_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SCS_44_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_1_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_2_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_3_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_4_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_5_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_6_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_7_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_8_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_9_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_10_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_11_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_12_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_13_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_14_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_15_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_16_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_17_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_18_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_19_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_20_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_21_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_22_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_23_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_24_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_25_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_26_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_27_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_28_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_29_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_30_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_31_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_32_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_33_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_34_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_35_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_36_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_37_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_38_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_39_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "CCS_40_DIM") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_1") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_2") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_3") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_4") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_5") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_6") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_7") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_8") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_9") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_10") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_11") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_12") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_13") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_14") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_15") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_16") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_17") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_18") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_19") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_20") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_21") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_22") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_23") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_24") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_25") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_26") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_27") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_28") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_29") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_30") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_31") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_32") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_33") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_34") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_35") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_36") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_37") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_38") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_39") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "SWAY_40") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "TLTBLCK_TEXT") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_1") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_2") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_3") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_4") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_5") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_6") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_7") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_8") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_9") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_10") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_11") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_12") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_13") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_14") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_15") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_16") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_17") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_18") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_19") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_20") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_21") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_22") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_23") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_24") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_25") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_26") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_27") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_28") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_29") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_30") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_31") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_32") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_33") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_34") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_35") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_36") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_37") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_38") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_39") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "BARS_40") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE1") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE2") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE3") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE4") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE5") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE6") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE7") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE8") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE9") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE10") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE11") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE12") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE13") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE14") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE15") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE16") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE17") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE18") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE19") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE20") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE21") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE22") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE23") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE24") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE25") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE26") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE27") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE28") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE29") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE30") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE31") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE32") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE33") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE34") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE35") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE36") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE37") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE38") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE39") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE40") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))
     ((= (vla-get-name x) "INTDRIVE41") (vla-setrgb acmCol 0 255 0) (vla-put-TrueColor x acmCol))


   )
   )
   )