谢谢大家的关注,一直没有时间重新开发WEB服务器,真是不好意思了.给你们一份SVG转换到GEOM的PL/SQL代码,主要是实现了面(包括复杂面的转换,修改一下也可以转换线了):
FUNCTION svgpath_to_geom(v_path CLOB) RETURN SDO_GEOMETRY
AS
v_geom SDO_GEOMETRY;
v_geom1 SDO_GEOMETRY;
v_geom2 SDO_GEOMETRY;
v_elem_info SDO_ELEM_INFO_ARRAY;
v_ordinates SDO_ORDINATE_ARRAY;
v_xy_count binary_integer;
v_path_len binary_integer;
i binary_integer;
j binary_integer;
v_count1 binary_integer := 0;
v_count2 binary_integer := 0;
v_str VARCHAR2(100);
v_command char(1);
v_data_count binary_integer;
x1 NUMBER; --弧的起点;
y1 NUMBER;
x2 NUMBER; --弧上点;
y2 NUMBER;
x3 NUMBER; --弧的终点;
y3 NUMBER;
s NUMBER; --弧弦长度;
h NUMBER; --弧高度;
r NUMBER; --弧半径;
large_arc NUMBER; --大弧标志=1;
sweep_flag NUMBER; --顺时针方向=1;
m binary_integer := precision;
BEGIN
IF v_path IS NULL THEN
RETURN NULL;
END IF;
v_path_len := LENGTH(v_path);
IF v_path_len < 10 THEN
RETURN NULL;
END IF;
i := 1;
IF get_svgdata(v_path,i) <> 'M' THEN
RETURN NULL;
END IF;
i := 1;
LOOP
v_str := get_svgdata(v_path,i);
EXIT WHEN v_str IS NULL;
IF v_str ='M' THEN
v_command := 'M';
IF v_elem_info IS NOT NULL THEN
v_geom := SDO_GEOM.SDO_XOR(v_geom,reform_geom(v_elem_info,v_ordinates),tolerance);
END IF;
v_elem_info := SDO_ELEM_INFO_ARRAY(1,0,1,1,2,1);
v_ordinates := SDO_ORDINATE_ARRAY();
v_xy_count := 0;
ELSIF v_str = 'A' THEN
IF v_xy_count = 2 THEN
v_elem_info(v_elem_info(3)*3 + 3) := 2;
ELSIF v_xy_count <2 THEN
RETURN NULL;
ELSE
IF v_elem_info(v_elem_info(3)*3 + 3) = 1 THEN
v_elem_info(3) := v_elem_info(3) + 1;
v_elem_info.EXTEND(3);
v_elem_info(v_elem_info(3)*3 + 1) := v_xy_count - 1;
v_elem_info(v_elem_info(3)*3 + 2) := 2;
v_elem_info(v_elem_info(3)*3 + 3) := 2;
END IF;
END IF;
v_command := 'A';
ELSIF v_str = 'L' THEN
IF v_xy_count <2 THEN
RETURN NULL;
ELSE
IF v_elem_info(v_elem_info(3)*3 + 3) = 2 THEN
v_elem_info(3) := v_elem_info(3) + 1;
v_elem_info.EXTEND(3);
v_elem_info(v_elem_info(3)*3 + 1) := v_xy_count - 1;
v_elem_info(v_elem_info(3)*3 + 2) := 2;
v_elem_info(v_elem_info(3)*3 + 3) := 1;
END IF;
END IF;
v_command := 'L';
ELSIF v_str = 'Z' THEN
IF v_xy_count <2 THEN
RETURN NULL;
END IF;
IF v_ordinates(1) <> v_ordinates(v_xy_count - 1)
OR v_ordinates(2) <> v_ordinates(v_xy_count ) THEN
IF v_elem_info(v_elem_info(3)*3 + 3) = 2 THEN
v_elem_info(3) := v_elem_info(3) + 1;
v_elem_info.EXTEND(3);
v_elem_info(v_elem_info(3)*3 + 1) := v_xy_count - 1;
v_elem_info(v_elem_info(3)*3 + 2) := 2;
v_elem_info(v_elem_info(3)*3 + 3) := 1;
END IF;
v_ordinates.EXTEND(2);
v_xy_count := v_xy_count + 1;
v_ordinates(v_xy_count) := v_ordinates(1);
v_xy_count := v_xy_count + 1;
v_ordinates(v_xy_count) := v_ordinates(2);
END IF;
v_command := 'Z';
ELSE
IF v_command = 'M' OR v_command ='L' THEN
v_ordinates.EXTEND(2);
v_xy_count := v_xy_count + 1;
v_ordinates(v_xy_count) := TO_NUMBER(v_str);
v_xy_count := v_xy_count + 1;
v_ordinates(v_xy_count) := TO_NUMBER(get_svgdata(v_path,i));
-- DBMS_OUTPUT.PUT_LINE('M:' || x || ',' || y || 'len:' || v_ordinates.COUNT);
ELSIF v_command = 'A' THEN
x1 := v_ordinates(v_xy_count - 1);
y1 := v_ordinates(v_xy_count );
r := TO_NUMBER(v_str);
v_str := get_svgdata(v_path,i);
v_str := get_svgdata(v_path,i);
large_arc := TO_NUMBER(get_svgdata(v_path,i));
sweep_flag := TO_NUMBER(get_svgdata(v_path,i));
x3 := TO_NUMBER(get_svgdata(v_path,i));
y3 := TO_NUMBER(get_svgdata(v_path,i));
s := SQRT((x3 - x1)*(x3 - x1) + (y3 - y1)*(y3 - y1));
IF s > r*2 THEN
r := s/2;
h := r;
ELSE
h := r - SQRT(r*r - s*s/4);
IF large_arc = 1 THEN
h := 2*r - h;
END IF;
END IF;
IF sweep_flag = 1 THEN
x2 := (x1 + X3)/2 + h*(y3 - y1)/s;
y2 := (y1 + Y3)/2 - h*(x3 - x1)/s;
ELSE
x2 := (x1 + X3)/2 - h*(y3 - y1)/s;
y2 := (y1 + Y3)/2 + h*(x3 - x1)/s;
END IF;
v_ordinates.EXTEND(4);
v_xy_count := v_xy_count + 1;
v_ordinates(v_xy_count) := x2;
v_xy_count := v_xy_count + 1;
v_ordinates(v_xy_count) := y2;
v_xy_count := v_xy_count + 1;
v_ordinates(v_xy_count) := x3;
v_xy_count := v_xy_count + 1;
v_ordinates(v_xy_count) := y3;
-- DBMS_OUTPUT.PUT_LINE('A:' || r || ','|| x || ',' || y);
ELSE
RETURN NULL;
END IF;
END IF;
END LOOP;
--DBMS_OUTPUT.PUT_LINE(v_ordinates.COUNT);
v_geom := SDO_GEOM.SDO_XOR(v_geom,reform_geom(v_elem_info,v_ordinates),tolerance);
RETURN v_geom;
END;
FUNCTION reform_geom(v_elem_info IN OUT NOCOPY SDO_ELEM_INFO_ARRAY,v_ordinates IN OUT NOCOPY SDO_ORDINATE_ARRAY) RETURN SDO_GEOMETRY
AS
v_geom SDO_GEOMETRY;
v_xy_count binary_integer;
BEGIN
IF (v_elem_info IS NULL) OR (v_ordinates IS NULL) THEN
RETURN NULL;
ELSE
v_geom := SDO_GEOMETRY(NULL,NULL,NULL,NULL,v_ordinates);
v_xy_count := v_ordinates.COUNT;
IF v_ordinates(1) = v_ordinates(v_xy_count - 1)
AND v_ordinates(2) = v_ordinates(v_xy_count ) THEN
v_geom.SDO_GTYPE := 2003;
ELSE
v_geom.SDO_GTYPE := 2002;
END IF;
IF v_elem_info(3)>1 THEN
IF v_geom.SDO_GTYPE = 2002 THEN
v_elem_info(2) := 4;
ELSE
v_elem_info(2) := 1005;
END IF;
ELSE
IF v_geom.SDO_GTYPE = 2002 THEN
v_elem_info(2) := 2;
v_elem_info(3) := v_elem_info(6);
ELSE
v_elem_info(2) := 1003;
v_elem_info(3) := v_elem_info(6);
END IF;
v_elem_info.TRIM(3);
END IF;
v_geom.SDO_ELEM_INFO := v_elem_info;
v_geom := SDO_GEOM.SDO_INTERSECTION(v_geom,max_shape,tolerance);
RETURN v_geom;
END IF;
END ;
FUNCTION get_svgdata(v_path CLOB,pos IN OUT binary_integer) RETURN VARCHAR2
AS
v_data VARCHAR2(100);
j binary_integer;
BEGIN
LOOP
j := INSTR(v_path, ' ',pos,1);
IF j = pos THEN
pos := pos + 1;
ELSE
EXIT;
END IF;
END LOOP;
IF j = 0 THEN
j :=LENGTH(v_path) + 1;
END IF;
v_data := SUBSTR(v_path,pos,(j - pos));
pos := j + 1;
RETURN v_data;
END;
[返回] 中文XML论坛 - 专业的XML技术讨论区 →
XML.ORG.CN讨论区 - 高级XML应用 → 『 SVG/GML/VRML/X3D/XAML 』 → [分享]基于SVG+XMLHTTP+ORACLE SPATIAL的WEBGIS基础平台实例
(订阅本版)
2006/9/5 22:04:00
新浪微博
