一。（defun c:测试（/color ss i sn obj lst name）2。（VL加载COM）3.;;;塔瓦27号。12月。2012年；四。（或acdoc（setq acdoc（vla get activedocument（vlax get acad object）））5。（如果（和（设置颜色（acad_colordlg 7 t））6。（setq ss（ssget“u:l”））7.（程序（vla startundomark acdoc）8。（重复（设置i（sslength ss））9.（setq obj（vlax ename->vla object（setq sn（ssname ss（setq i（1-i）））））10。（if（eq（cdr（assoc 0（entget sn）））“插入”）11.（用于块的vlax（setq blk（vla item（vla get blocks acdoc）（setq name（vla get effectivename obj）））12）。（如果（和（eq:vlax false（vla get isxref blk））13。（如果（不是（成员名lst））14。（setq lst（cons name lst））15。）16岁。）17岁。（vlax代表x blk 18。（如果不是（eq“AcDbBlockReference”（vla get objectname x）））19。（vla放置颜色x颜色）20。）21岁。)22岁。）23岁。)24岁。（弗拉把颜色变成目标颜色）25。)26岁。)27岁。（vla regen acdoc acallviewports）28.（vla endundomark acdoc）29页。)30岁。（普林斯）31.）33岁。（普林斯）34。）35岁。