Hello All,
The following codes are OK in V8i:
Sub TestRegion() Dim MyRegion As Element Dim MyLines(3) As Element Set MyLines(0) = CreateLineElement2(Nothing, Point3dFromXYZ(191200.235722899, -127799.687341798, 0), Point3dFromXYZ(243016.235722899, -127799.687341798, 0)) Set MyLines(1) = CreateLineElement2(Nothing, Point3dFromXYZ(191200.235722899, -130847.687341798, 0), Point3dFromXYZ(243016.235722899, -130847.687341798, 0)) Set MyLines(2) = CreateLineElement2(Nothing, Point3dFromXYZ(200344.235722899, -124751.687341798, 0), Point3dFromXYZ(200344.235722899, -139991.687341798, 0)) Set MyLines(3) = CreateLineElement2(Nothing, Point3dFromXYZ(209488.235722899, -124751.687341798, 0), Point3dFromXYZ(209488.235722899, -146087.687341798, 0))' Set MyLines(0) = CreateLineElement2(Nothing, Point3dFromXYZ(-100, -100, 0), Point3dFromXYZ(100, -100, 0))' Set MyLines(1) = CreateLineElement2(Nothing, Point3dFromXYZ(50, -200, 0), Point3dFromXYZ(50, 200, 0))' Set MyLines(2) = CreateLineElement2(Nothing, Point3dFromXYZ(-100, 100, 0), Point3dFromXYZ(100, 100, 0))' Set MyLines(3) = CreateLineElement2(Nothing, Point3dFromXYZ(-50, -200, 0), Point3dFromXYZ(-50, 200, 0)) Set MyRegion = GetFloodBoundary(MyLines, Nothing, Point3dFromXYZ(204916.2355, -129323.6875, 0), , , , msdFillModeFilled) Debug.Print MyRegion.Range.Low.x End Sub
But failed in CE MVBA. I have tried some simple coordinates(commented), no problem in CE. But for those complicated coordinates, OK in V8i, failed in CE. Does anyone know? Thanks a lot.