Quantcast
Channel: MicroStation Programming Forum - Recent Threads
Viewing all articles
Browse latest Browse all 4331

[CE MVBA] Problem about GetFloodBoundary

$
0
0

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.


Viewing all articles
Browse latest Browse all 4331

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>