自动生成杆塔

------------插入直线塔--------------------------------------------------
//
//
//改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     nu