IntersectWith says lines don't intersect

[bsardeson]

Using the Extend command both sets of lines below will intersect each other. Using the line command and intersection snap for line selection, both line sets return a line from the apparent intersection. Using VBA IntersectWith the first set of lines fails, the second set of lines returns a point.

The line points are determined mathmatecally identically, the only difference between the coordinates is the UCS used to perform the design. Why does it not work and produce the same results regardless of the UCS?

Code:
Dim oPoint as variant
opoint = oline1.IntersectWith(oline2, acExtendBoth)

Data for the fail result:
Line 1:
156,278.737825336822,0
156,245.665579823409,118.1451695696

Line 2:
23.0866842342004,277.987825336822,0
156,244.915579823409,118.1451695696


Data for the working result
Line 1:
15,139.75,-2.012174663178
-103.1451695696,139.75,-35.0844201765914

Line 2:
15,271.9133157658,-2.012174663178
-103.1451695696,139,-35.0844201765914

[RobertB]

I think that posting the drawing(s) itself might attract more help.

[fixo]

Just a shot in the dark:
Check elevation properties for both lines

~'J'~

[bsardeson]

Finally got back to this project ... as it turns out, the lines being used to determine the intersection were pars of a solid that cannot be referenced.

Once I drew lines about those edges of the solids necessary to determine intersections, it all worked ok.

Lesson learned ... you can't reference something that isn't physically there with VBA.