intersectwith question

[Anonymous]

I'm using intersectwith to check polylines for intersections. The command
outputs an array of intersection coordinates. I want to test if the two
items intersect or not but the following causes a type mismatch error:

dim retval as variant

retval = ssetObj.Item(c).IntersectWith(ssetObj.Item(d), acExtendNone)
If retval <> Null Then **Type mismatch

I tried Empty as well with the same result. If anyone has an answer TIA.

--
Scott Nelson

Technical Director
Scenery Plastics Inc.
www.sceneryplastics.com

[Anonymous]

I answered this as follows:

If UBound(retval) > LBound(retval) Then

"Scott" wrote in message
news:ef1d566.-1@WebX.SaUCah8kaAW...
> I'm using intersectwith to check polylines for intersections. The command
> outputs an array of intersection coordinates. I want to test if the two
> items intersect or not but the following causes a type mismatch error:
>
> dim retval as variant
>
> retval = ssetObj.Item(c).IntersectWith(ssetObj.Item(d), acExtendNone)
> If retval <> Null Then **Type mismatch
>
> I tried Empty as well with the same result. If anyone has an answer TIA.
>
> --
> Scott Nelson
>
> Technical Director
> Scenery Plastics Inc.
> www.sceneryplastics.com
>

[Anonymous]

Nicely done. That's a pretty short way to do it.

--
eXtending the power of AutoCAD
http://www.acadx.com

Scott wrote in message
news:ef1d566.0@WebX.SaUCah8kaAW...
> I answered this as follows:
>
> If UBound(retval) > LBound(retval) Then