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