CAD得到0层上的所有实体（com接口VB语言）