cad中VBA的基础问题，新手入门很急

图上一共有两个分析层，蓝色为分析层1，黄色为分析层2，求解如何将分析层1中圆的圆心坐标与其编号读出来并放入一个数组中；找出分析层2中的圆的圆心，并求出分析层2中所有的圆心到分析层1中所有的圆心的距离并存入一个数组中。用VBA代码写出。