How to find point of intersection of two geometry?

Question

Hello,
Could someone give suggestion about how can i find point of intersection of two geometry?
I need just point. (x,y,z)
Thanks

Answer 1

declare
-- Local variables here
i integer;
l_geometry mdsys.sdo_geometry;
i integer;
l_x number;
l_y number;
l_cx varchar2(500);
l_vertexes integer;
begin
-- Test statements here
for wrk in (SELECT SDO_GEOM.SDO_INTERSECTION(SDO_GEOMETRY(2002,
1,
NULL,
SDO_ELEM_INFO_ARRAY(1,
2,
1),
SDO_ORDINATE_ARRAY(1,2,3,2,3,3,0,3,0,5,5,5)),
SDO_GEOMETRY(2002,
1,
NULL,
SDO_ELEM_INFO_ARRAY(1,
2,
1),
SDO_ORDINATE_ARRAY(2,1,2,10)),
0.005) as qq
FROM dual where SDO_RELATE(z.geometry,
SDO_GEOMETRY(2002,
1,
NULL,
SDO_ELEM_INFO_ARRAY(1, 2, 1),
SDO_ORDINATE_ARRAY(1,2,3,2,3,3,0,3,0,5,5,5)),
'mask=anyinteract') = 'TRUE')
loop
l_geometry := wrk.qq;
dbms_output.put_line('count: '||l_geometry.SDO_ORDINATES.count);
l_vertexes := trunc(l_geometry.SDO_ORDINATES.count / 2);
for i in 1 .. l_vertexes loop
l_x := l_geometry.SDO_ORDINATES(2 * i - 1);
l_y := l_geometry.SDO_ORDINATES(2 * i);
l_cx := to_char(l_x) || ' ' || to_char(l_y);
dbms_output.put_line(l_cx);
if i <> l_vertexes then
dbms_output.put_line('');
end if;
end loop;
end loop;
end;
output
count: 6
2 5
2 3
2 2
Thanks for help:)
Edited by: SVV on 16.11.2009 4:54
Edited by: SVV on 16.11.2009 9:31