[VBA]两实体相交的点数组如何用？

wholin

比方：intPoints = offsetObj(0).IntersectWith(objPolys, acExtendNone)

这个intPoints是个数组是吧，那现在我想用这个数组中的点该如何用呢？

比方我想在相交的点处插入一个定义好的块，那我要将intPoints如何转化为一个个点，好用在 Set objBlkRef = ThisDrawing.ModelSpace.InsertBlock(intPoints, "属性块", 0.1, 0.1, 1, 0) ，请大家帮助