topic Re: Intersections became obsolete in 2012 in .NET Forum

IntersectWith became obsolete in 2012

JanetDavidson — Tue, 23 Aug 2011 18:03:40 GMT

Hello everybody.

I had this piece of code in 2010. Now when I re-reference the dll to 2012 . I get a warning message showing:

Public Sub IntersectWith( blah blah blah ) is obsolete. "Use the overload taking IntPrt instead.". I don't know how . Anybody can help me with this ?

Already appreciated .

Janet,

Here is code.

Dim intpts As New Point3dCollection()

List_Entities(I).IntersectWith(List_Entities(I + 1), Intersect.OnBothOperands, intpts, 0, 0)

Re: IntersectWith became obsolete in 2012

chiefbraincloud — Tue, 23 Aug 2011 19:48:55 GMT

I had the same thing come up, and while the "obsolete" version still works for now, it eventually won't. As it turned out , the function where I had this warning come up was not being used, so my fix has not been tested.

Anyway, seeing that you were just passing zero (as I was) I think you just want to pass New IntPtr(0).

Re: Intersections became obsolete in 2012

JanetDavidson — Tue, 23 Aug 2011 20:40:44 GMT

Thanks for Reply ,Chief.

What I need is just finding all intersections of objects Not only intpts(0). Is there anything wrong with the Zero I assigned for

thisGraphicSystemMarker and otherGraphicSystemMarker ?. Is that what you referring to ?

Maybe this will clear my intention better.

 Dim intpts As New Point3dCollection()
                List_Entities(I).IntersectWith(List_Entities(I + 1), Intersect.OnBothOperands, intpts, 0, 0)
                If intpts.Count = 1 Then
                    ' Do this
else
   ' do something else.
end if.

Re: Intersections became obsolete in 2012

chiefbraincloud — Tue, 23 Aug 2011 20:47:58 GMT

My reply says New IntPtr (0), not intpts(0)...

I mean to pass New IntPtr(0) for the graphics system markers, but like I said, it doesn't give any compile errors, but I have not tested it to make sure that it works as expected.

Re: Intersections became obsolete in 2012

StephenPreston — Tue, 23 Aug 2011 21:08:36 GMT

Using your code example, changing the function call to this should work:

List_Entities(I).IntersectWith(List_Entities(I + 1), Intersect.OnBothOperands, intpts, IntPtr.Zero, IntPtr.Zero)

Re: Intersections became obsolete in 2012

JanetDavidson — Wed, 24 Aug 2011 02:27:14 GMT

Stephen, Thanks. That was the trick.

It is hard for a girl to understand these things.

Regards,

Janet.

Re: Intersections became obsolete in 2012

Jozi68 — Fri, 24 Jan 2014 06:20:39 GMT

I get the same error with the following code:

For i = 1 To NrV
                            Dim colI As New Point3dCollection
                            Dim colIT As New Point3dCollection
                            myLine.IntersectWith(pollie, Intersect.OnBothOperands, colI, 1, i)
                            myTempLine.IntersectWith(pollie, Intersect.OnBothOperands, colIT, 1, i)
                            If colI.Count > 0 And colIT.Count > 0 Then
                                For j = 0 To colI.Count - 1
                                    colIntersection.Add(colI(j))
                                Next j
                                For j = 0 To colIT.Count - 1
                                    colIntersectionT.Add(colIT(j))
                                Next j
                            End If
                        Next i

Can someone please help me?