[LISP程序]：根据数组修改autocad图形文件中的字符?

tsml

假设程序中有有二行三例数组((AA,BB,CC),(1,2,3)),
在autocad的dwg文件中，用鼠标框住一堆图元后，对于选中的图元中的字符，程序每发现与表中第一行相同的字符（要完全匹配），就把它与表中相同列的字符合并显示在dwg文件中，如，发现字符BB,CC,AA就会变成，BB2,CC3,AA1，请问有谁能帮帮我，告诉用ＶＢＡ我怎么做，谢谢。