宏命令更改标注，字体颜色

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))


  )
  )
  )

dunkel

上面的 prog 应该是 progn 丢了个字母 n

zmqjason

顶起来下，大佬请帮帮忙哦！！！！

dunkel

如果将是这些项，合并不合并，好像也没太大的区别。一定要合并，可以把它们罗列在一起建一个大表，然后检索是否在表中，在的话，修改颜色。
如果不只是这些，比如那些序号会一直延伸下去，DIMS_41, DIMS_42, ... 可以看看 (wcmatch ...) 函数。

还有更深的疑问，可以到 lsp开发区 去：http://bbs.mjtd.com/forum-3-1.html

zmqjason

dunkel 发表于 2020-3-17 10:16
如果将是这些项，合并不合并，好像也没太大的区别。一定要合并，可以把它们罗列在一起建一个大表，然后检索 ...

非常感谢你百忙之中的答复，我对这个实在不是很懂，所以如果方便的话，是否可以帮我出一个（wcmatch）函数的例子，因为那个序号是真的会延续下去，再次感谢

dunkel

那些拖数字序号的有没有其它的非数字的可能，比如 DIMS_a 什么的是不要被处理的，如果没有，比较好办:
(if (wcmatch (vla-get-name x) "DIMS_*,SCS_*_DIM,SCS_*_DIM")
    (prog
       (vla-setrgb acmCol 0 255 0)
       (vla-put-TrueColor x acmCol)
    )
)
如果有，由于 lsp 的这个 wcmatch 函数不支持完整的正则表示，可能需要罗列 1和 2 和 3位的数字序号才行：
(if (wcmatch (vla-get-name x) "DIMS_#,DIMS_##,DIMS_###,SCS_#_DIM,SCS_##_DIM,SCS_###_DIM,SCS_#_DIM,SCS_##_DIM,SCS_###_DIM")
要是有 4位序号的，还得再加它进去。
其它没有罗列进去的照样添加进去即可。
上面的 (if ...) 是替代原来的 (cond ...) 的。

zmqjason

dunkel 发表于 2020-3-17 13:58
那些拖数字序号的有没有其它的非数字的可能，比如 DIMS_a 什么的是不要被处理的，如果没有，比较好办:
(i ...

你好，就是数字的，没有其他的非数字的可能，
我把你的代码替换进去，运行输入tt显示为止命令呢，代码如下是正确的么？
(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)))
  (if (wcmatch (vla-get-name x) "DIMS_*,SCS_*_DIM,CCS_*_DIM,SWAY_*,TLTBLCK_TEXT,BARS_*,INTDRIVE*,LIP-TOLIP_*,LIP-TO-LIP")
      (prog
         (vla-setrgb acmCol 0 255 0)
         (vla-put-TrueColor x acmCol)

      )
)

dunkel

最前面要加上 (vl-load-com) 吧，这个是使用 vl... 类函数的必需。

zmqjason

dunkel 发表于 2020-3-17 15:09
最前面要加上 (vl-load-com) 吧，这个是使用 vl... 类函数的必需。

再次感谢，我后面加个了)，现在能运行了，但是发现只有几个颜色变了，DIMS_1和DIMS_4颜色变了，其他的都没变，不知道怎么回事，代码如下

(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)))
  (if (wcmatch (vla-get-name x) "DIMS_*, SCS_*_DIM, CCS_*_DIM, SWAY_*, TLTBLCK_TEXT,BARS_*, INTDRIVE*, LIP-TO-LIP_*, LIP-TO-LIP, DIM.")
      (prog
         (vla-setrgb acmCol 0 255 0)
         (vla-put-TrueColor x acmCol)

)
)
)
)

zmqjason

dunkel 发表于 2020-3-17 16:12
上面的 prog 应该是 progn 丢了个字母 n

万分感谢，解决了，是的，少了个n字母。