自动生成杆塔

原创 2006年05月30日 19:45:00

------------插入直线塔--------------------------------------------------
//////
//////
//////改xlmc='包东甲线'和CD_XLMC.(线路代码在表cd_xlmcdm中找)
//////
//////
------------初始化杆塔类型。
set serveroutput on size 1000000;
alter table b$common_n disable all triggers;
alter table b$sd_gt_n disable all triggers;
alter table b$sd_gt_pt disable all triggers;
alter table b$sd_gt_pt_sdogeom disable all triggers;
alter table b$sd_gt_lb disable all triggers;
alter table b$sd_gt_lb_sdogeom disable all triggers;


create or replace procedure dz_gt_Create_sdgt IS
   v_lable_sdo_x1       FLOAT(126);
   v_lable_sdo_y1       FLOAT(126);
   v_sdo_x1           FLOAT(126);
   v_sdo_y1           FLOAT(126); 
   v_g3e_fno          number(5); 
   v_g3e_fid          number(10);
   v_g3e_cid            number(5);
   v_g3e_id             number(10);
   v_g3e_pt_id          number(10);
   v_g3e_sdogeom_id     number(10);
   v_label_g3e_id       number(10);
   v_gth  number(10,5);
   v_xlmc               varchar2(40);
 CURSOR c1 IS SELECT *  FROM z_gt a where xlmc='新肥线' ORDER BY gth;
BEGIN
 FOR c IN c1  LOOP
   v_g3e_fno:=378;
   v_g3e_cid:=1;
   v_gth:=c.gth;
   --取新加设备的g3e_fid
   SELECT sd_gt_n_seq.nextval INTO v_g3e_id FROM dual;
   SELECT sd_gt_pt_seq.nextval INTO v_g3e_pt_id FROM dual;
   SELECT sd_gt_pt_sdogeom_seq.nextval INTO v_g3e_sdogeom_id FROM dual;
   SELECT sd_gt_lb_seq.nextval INTO v_label_g3e_id FROM dual;
   SELECT g3e_fid_seq.nextval INTO v_g3e_fid FROM dual;
   --杆塔图像及标注坐标。
   v_sdo_x1:=c.x;
   v_sdo_y1:=c.y;
   v_xlmc:=c.xlmc;
   v_lable_sdo_x1:=v_sdo_x1+15;
   v_lable_sdo_y1:=v_sdo_y1+20;
   --------公共表属性------------------------
   --/*-----------------
   INSERT INTO b$common_n

(G3E_ID,G3E_FNO,G3E_CNO,G3E_FID,G3E_CID,sbmc,CD_DYDJ,CD_ZT,CD_JKZT,CD_SSDW)
   VALUES(

common_n_seq.nextval,v_g3e_fno,30,v_g3e_fid,v_g3e_cid,v_gth,'66kV','运行','一

类','供电公司');  
   --------插入图形的属性值------------------------
   INSERT INTO b$sd_gt_n(G3E_ID,G3E_FNO,G3E_CNO,G3E_FID,G3E_CID,CD_XLMC,GTH)
   VALUES

(sd_gt_n_seq.nextval,v_g3e_fno,26304,v_g3e_fid,v_g3e_cid,'22B213',v_gth);   
   --------插入图形的表------------------------
   INSERT INTO b$sd_gt_pt(g3e_id,g3e_fno,g3e_cno,g3e_fid,g3e_cid)
   VALUES( v_g3e_pt_id,v_g3e_fno,26305,v_g3e_fid,v_g3e_cid);
dbms_output.put_line(v_sdo_x1||'  '||v_sdo_y1);
   INSERT INTO b$sd_gt_pt_sdogeom(sdo_x1,sdo_y1,
  

sdo_gid,sdo_eseq,sdo_etype,sdo_seq,gdo_attributes,g3e_id,g3e_fno,g3e_cno,g3e_

fid,g3e_cid)
   VALUES(v_sdo_x1,v_sdo_y1,v_g3e_pt_id,0,1,0,65536,
          sd_gt_pt_sdogeom_seq.nextval,v_g3e_fno,26305,v_g3e_fid,v_g3e_cid);

   --------插入坐标图形------------------------
   INSERT INTO b$sd_gt_lb

(g3e_id,g3e_fno,g3e_cno,g3e_fid,g3e_cid,g3e_alignment)
   VALUES( v_label_g3e_id,v_g3e_fno,26306,v_g3e_fid,v_g3e_cid,5);

   INSERT INTO b$sd_gt_lb_sdogeom(sdo_x1,sdo_y1,
  

sdo_gid,sdo_eseq,sdo_etype,sdo_seq,gdo_attributes,g3e_id,g3e_fno,g3e_cno,g3e_

fid,g3e_cid)
   VALUES(v_lable_sdo_x1,v_lable_sdo_y1,v_label_g3e_id,0,1,0,65536,
          sd_gt_lb_sdogeom_seq.nextval,v_g3e_fno,26306,v_g3e_fid,v_g3e_cid);
  --*/
  dbms_output.put_line(v_sdo_x1||'  '||v_sdo_y1);
  END LOOP;
  commit; 
END;
/

exec dz_gt_Create_sdgt;
 


 alter table b$common_n enable all triggers;
 alter table b$sd_gt_n enable all triggers;
 alter table b$sd_gt_pt enable all triggers;
 alter table b$sd_gt_pt_sdogeom enable all triggers;
 alter table b$sd_gt_lb enable all triggers;
 alter table b$sd_gt_lb_sdogeom enable all triggers;
---到此杆塔的数据生成完成-------------------------

相关文章推荐

ffmpeg自动生成视频缩略图 适用php

  • 2017年11月17日 11:42
  • 28.8MB
  • 下载

Android Studio自动生成控件Id插件的使用--findViewById自动化

有没有遇到自己设计好布局后有N多控件需要在Activity中初始化? 不会偷懒的程序员不是好程序员,哈哈,来推荐一款自动生成控件id的插件Android Code Generator,来一张效果图:...

自动生成数据库说明文档

  • 2017年11月10日 10:44
  • 1014KB
  • 下载

Mybatis 自动生成主键

介绍像MySql、Sql Server有自动生成主键(递增),Oracle只能用序列生成,或者UUID 那么在MyBatis怎么处理呢,有两个处理方式,那么我们接下来看看怎么处理编码useGener...

mybatis自动生成代码 eclipse插件

  • 2017年10月30日 15:49
  • 2.65MB
  • 下载

NLP+VS=>Image Caption︱自动生成图像标题技术论文+相关项目

读聪明人的笔记,是不是也能变聪明呢? Image Caption是一个融合计算机视觉、自然语言处理和机器学习的综合问题,它类似于翻译一副图片为一段描述文字。 Image Caption问题可以定义为...

vc++程序自动生成dump Windbg文件

  • 2017年10月26日 16:20
  • 14.51MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:自动生成杆塔
举报原因:
原因补充:

(最多只允许输入30个字)