如何将CAD图里面的对象参数输出到excel里面 [复制链接]

如何将CAD图里面的对象参数输出到excel里面。比如，一条封闭线，我想把它的面积输入EXCEL的面积字段里，周长输入到EXCEL的周长字段里。请问用VBA怎么实现呀。

思路是：
1 建立选择集。建立excel对象，dim xlsapp as Excel.application，具体代码可以上网查到
2 选择需要的对象，对于要获得面积和周长的，必须保证这些数据在“查询”命令下可以看到的，否则就要自己编函数取坐标计算面积周长了
3 遍历选择集，对有面积属性的对象直接取属性,比如
             Cell（行，列）.value=ObjCIR.Area
             Cell（行，列+1）.value=ObjCIR.Circumference
具体就是这样了，细节肯定要自己慢慢斟酌了，呵呵