请教各位前辈利用VBA实现如下功能

mr_gang

各位前辈：
    晚生是GIS从业员，在作业过程中需要将CAD数据转换成空间数据，在该过程中遇到不少问题，其中之一便是遗漏了CAD数据中的不闭合图形（ArcGIS工具中不能把非闭合的多义线转换成面对象），因为数据的完整性相当重要，必须设法将转换过程中遗漏的非闭合对象找出。
    对实现该目的，晚生有如下思路：
    遍历一份CAD数据里面的某个层的所有对象，找出“闭合”属性为否的对象，并定位到当前对象。
    晚生有一定的开发基础，但无奈对CAD的对象和方法一无所知，希望各位前辈能够给予帮助，为晚生提供适当的接口、方法和属性。

Ps：平台是CAD_2004

谢谢！