CAD由一个自定义实体事件中的id得到自定义实体对象(com接口VB语言)