第一次自动生成架空导线

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

//////
//////
//////改两处'团东甲线'和三处'2AB040'
//////
//////
--停止触发器
ALTER TABLE B$COMMON_N DISABLE ALL TRIGGERS;
ALTER TABLE b$CONNECTIVITY_N DISABLE ALL TRIGGERS;
ALTER TABLE B$SD_JKDX_N DISABLE ALL TRIGGERS;
ALTER TABLE B$SD_JKDX_LN DISABLE ALL TRIGGERS;
ALTER TABLE B$SD_JKDX_LN_SDOGEOM DISABLE ALL TRIGGERS;
ALTER TABLE B$SD_JKDX_LB DISABLE ALL TRIGGERS;
ALTER TABLE B$SD_JKDX_LB_SDOGEOM DISABLE ALL TRIGGERS;

declare
 i  number;
 flag number; --标记是否为开始杆塔
 flag_label number; --控制线路标注(现在为空一个标一个)
 v_lable_sdo_x2   B$SD_JKDX_LN_SDOGEOM.sdo_x2%type;
 v_lable_sdo_y2   B$SD_JKDX_LN_SDOGEOM.sdo_y2%type;
 v_symbol_sdo_x1  B$SD_JKDX_LN_SDOGEOM.sdo_x1%type;
 v_symbol_sdo_y1  B$SD_JKDX_LN_SDOGEOM.sdo_y1%type;
 v_symbol_sdo_x2  B$SD_JKDX_LN_SDOGEOM.sdo_x2%type;
 v_symbol_sdo_y2  B$SD_JKDX_LN_SDOGEOM.sdo_y2%type;
 v_prv_gt_sdo_x1  B$SD_GT_PT_SDOGEOM.sdo_x1%type;
 v_prv_gt_sdo_y1  B$SD_GT_PT_SDOGEOM.sdo_y1%type;
 v_gt_sdo_x1      B$SD_GT_PT_SDOGEOM.sdo_x1%type;
 v_gt_sdo_y1      B$SD_GT_PT_SDOGEOM.sdo_y1%type;

v_prv_gth B$SD_GT_N.gth%type;
v_gth  B$SD_GT_N.gth%type;

 v_g3e_fid        b$common_N.g3e_fid%type;   
 v_gt_g3e_fid     b$common_N.g3e_fid%type;     
 new_g3e_fid      b$common_n.g3e_fid%type;  
 new_jkdxlabel_g3e_id    b$common_n.g3e_id%type;  
 new_jkdxsymbol_g3e_id   b$common_n.g3e_id%type; 

 --标注的角度,通过架空导线的两个坐标求得
 v_sdo_orientation  B$SD_JKDX_LN_SDOGEOM.SDO_ORIENTATION%type;
 v_x                B$SD_JKDX_LN_SDOGEOM.sdo_x1%type;
 v_y                B$SD_JKDX_LN_SDOGEOM.sdo_y1%type;

 v_node1_id       B$connectivity_n.node1_id%type;
 v_node2_id       B$connectivity_n.node2_id%type;
 v_owner_id1      b$common_n.owner1_id%type;
 v_owner_id2      b$common_n.owner2_id%type;
 v_old_owner_id   b$common_n.owner1_id%type;
 v_old_node_id    b$connectivity_n.node2_id%type;

 --选出某线路的所有杆塔 ,杆塔的选出顺序从左到右,通过ORDER BY GTH DESC控制。左边大号用desc
 CURSOR c1 IS SELECT G3E_FID,GTH FROM B$SD_GT_N WHERE CD_XLMC='22B213' ORDER BY GTH;

begin
 flag:=0;   --第一个杆塔时为0,否则为1
 flag_label:=1;  --为1时架空导线有标注,为0时架空导线没有标注
 v_old_owner_id:=0;
 v_old_node_id:=0;
 v_g3e_fid:=23727920; --作为参考的架空导线,参考的架空导线的所有属性将被复制到新设备了
v_prv_gth:=0;
v_gth:=0;
 FOR c IN c1  LOOP
  v_gt_g3e_fid:=c.g3e_fid;

  --赋所属关系的值
  v_owner_id1:=v_old_owner_id;
  SELECT g3e_id INTO  v_owner_id2 FROM B$COMMON_N WHERE g3e_fid=v_gt_g3e_fid;
  v_old_owner_id:=v_owner_id2;

  IF flag!=0 THEN
  --赋连接关系的值
  v_node1_id:=v_old_node_id;
  SELECT g3e_node_seq.nextval INTO v_node2_id FROM dual;
  v_old_node_id:=v_node2_id;
  --取新加设备的g3e_fid与其它值
  SELECT g3e_fid_seq.nextval INTO new_g3e_fid FROM dual;
  SELECT sd_jkdx_ln_seq.nextval INTO new_jkdxsymbol_g3e_id FROM dual;
  SELECT sd_jkdx_Lb_seq.nextval INTO new_jkdxlabel_g3e_id FROM dual;
  
   --取出相邻的两个杆塔的坐标,作为生成架空导线的两个点的坐标
   ----取出当前杆塔的坐标
   SELECT sdo_x1,sdo_y1 INTO v_gt_sdo_x1,v_gt_sdo_y1 FROM B$SD_GT_PT_SDOGEOM WHERE G3E_FID=v_gt_g3e_fid;
   ----给架空导线的两个点赋值,并保留第二个点作为下一条直线的第一个点
   v_symbol_sdo_x1:=v_prv_gt_sdo_x1;
   v_symbol_sdo_y1:=v_prv_gt_sdo_y1;
   v_symbol_sdo_x2:=v_gt_sdo_x1;
   v_symbol_sdo_y2:=v_gt_sdo_y1;
 
   v_prv_gt_sdo_x1:=v_gt_sdo_x1;
   v_prv_gt_sdo_y1:=v_gt_sdo_y1;
--取出当前杆塔号
 SELECT gth INTO v_gth FROM B$SD_GT_N WHERE G3E_FID=v_gt_g3e_fid;  

   ----给架空导线的标注坐标赋值
   v_lable_sdo_x2:=(v_symbol_sdo_x1+v_symbol_sdo_x2)*0.5;
   v_lable_sdo_y2:=(v_symbol_sdo_y1+v_symbol_sdo_y2)*0.5-10;
   v_x:=v_symbol_sdo_x2-v_symbol_sdo_x1;
   v_y:=v_symbol_sdo_y2-v_symbol_sdo_y1;
   --左高的用ATAN2(v_y,v_x)
   v_sdo_orientation:=ATAN2(v_y,v_x);

   --生成架空导线的图形
   ----往公共表里插入记录,建立架空导线与杆塔的所属关系
   INSERT INTO B$COMMON_N
    ( G3E_ID,G3E_FNO,G3E_CNO,G3E_FID,G3E_CID,CD_SSDW,SBMC,CD_DYDJ,OWNER1_ID,OWNER2_ID,CD_EJDW,CD_ZT,CD_JKZT,SBDM)
   SELECT
     common_n_seq.nextval,G3E_FNO,G3E_CNO,new_g3e_fid,G3E_CID,CD_SSDW,'新肥线',CD_DYDJ,v_owner_id1,v_owner_id2,CD_EJDW,CD_ZT,CD_JKZT,'22B213'
   FROM B$COMMON_N
   WHERE  g3e_fid=v_g3e_fid AND ltt_status IS NULL;

   ----生成图形
   INSERT INTO B$SD_JKDX_N    
    (G3E_ID,G3E_FNO,G3E_CNO,G3E_FID,G3E_CID,CD_XLMC,CD_XLDM,QSGH,ZZGH)
   SELECT
     sd_jkdx_N_seq.nextval,G3E_FNO,G3E_CNO,new_g3e_fid,G3E_CID,'新肥线','22B213',v_prv_gth,v_gth
   FROM B$SD_JKDX_N
   WHERE  g3e_fid=v_g3e_fid AND ltt_status IS NULL;
v_prv_gth:=v_gth;
   INSERT INTO  B$SD_JKDX_LN
    (GDO_GID,G3E_ID, G3E_FNO,G3E_CNO,G3E_FID,G3E_CID,G3E_GEOMETRY,LTT_DATE)
   SELECT
    GDO_GID,new_jkdxsymbol_g3e_id, G3E_FNO,G3E_CNO,new_g3e_fid,G3E_CID,G3E_GEOMETRY,sysdate
   FROM B$SD_JKDX_LN
   WHERE  g3e_fid=v_g3e_fid AND ltt_status IS NULL;

   INSERT INTO  B$SD_JKDX_LN_SDOGEOM
    (SDO_GID,SDO_ESEQ,SDO_ETYPE,SDO_SEQ,GDO_ATTRIBUTES,GDO_NORMAL1,GDO_NORMAL2,GDO_NORMAL3,
     GDO_RADIUS,SDO_ORIENTATION,SDO_X1, SDO_Y1, SDO_X2, SDO_Y2,
     G3E_ID, G3E_FNO,G3E_CNO,G3E_FID,G3E_CID,LTT_DATE)
   SELECT
     new_jkdxsymbol_g3e_id,SDO_ESEQ,SDO_ETYPE,SDO_SEQ,GDO_ATTRIBUTES,GDO_NORMAL1,GDO_NORMAL2,GDO_NORMAL3,
     GDO_RADIUS,SDO_ORIENTATION,v_symbol_sdo_x1, v_symbol_sdo_y1, v_symbol_sdo_x2, v_symbol_sdo_y2,
     sd_jkdx_ln_sdogeom_seq.nextval, G3E_FNO,G3E_CNO,new_g3e_fid,G3E_CID,sysdate
   FROM B$SD_JKDX_LN_SDOGEOM
   WHERE  g3e_fid=v_g3e_fid AND ltt_status IS NULL;

   ----生成标注,并间隔一个标注一个
   IF flag_label=1 THEN
    INSERT INTO  B$SD_JKDX_LB
     (GDO_GID,G3E_ALIGNMENT,G3E_ID,G3E_FNO,G3E_CNO,G3E_FID,G3E_CID,G3E_GEOMETRY,LTT_DATE)
    SELECT
     GDO_GID,G3E_ALIGNMENT,new_jkdxlabel_g3e_id,G3E_FNO,G3E_CNO,new_g3e_fid,G3E_CID,G3E_GEOMETRY,sysdate
    FROM B$SD_JKDX_LB
    WHERE  g3e_fid=v_g3e_fid AND ltt_status IS NULL;

    INSERT INTO  B$SD_JKDX_LB_SDOGEOM
     (SDO_GID,SDO_ESEQ,SDO_ETYPE,SDO_SEQ,GDO_ATTRIBUTES,GDO_NORMAL1,GDO_NORMAL2,GDO_NORMAL3,
      GDO_RADIUS,SDO_ORIENTATION,SDO_X1,SDO_Y1,
      G3E_ID,G3E_FNO,G3E_CNO,G3E_FID,G3E_CID,LTT_DATE)
    SELECT
      new_jkdxlabel_g3e_id,SDO_ESEQ,SDO_ETYPE,SDO_SEQ,GDO_ATTRIBUTES,GDO_NORMAL1,GDO_NORMAL2,GDO_NORMAL3,
      GDO_RADIUS,v_sdo_orientation,v_lable_sdo_x2,v_lable_sdo_y2,
      sd_jkdx_lb_sdogeom_seq.nextval,G3E_FNO,G3E_CNO,new_g3e_fid,G3E_CID,sysdate
    FROM B$SD_JKDX_lb_SDOGEOM
    WHERE  g3e_fid=v_g3e_fid AND ltt_status IS NULL;
    flag_label:=0;
   ELSE
     flag_label:=1;
   END IF;

 --建立架空导线与架空导线的电力连接关系
   INSERT INTO  B$CONNECTIVITY_N
    (G3E_FNO,G3E_FID,G3E_CNO,G3E_CID,G3E_ID,NODE1_ID,NODE2_ID,
     PHASE,LTT_DATE)
   SELECT
     G3E_FNO,new_g3e_fid,G3E_CNO,G3E_CID,connectivity_n_seq.nextval,v_node1_id,v_node2_id,
     PHASE,sysdate
   FROM B$CONNECTIVITY_N
   WHERE  g3e_fid=v_g3e_fid AND ltt_status IS NULL;
   i:=i+1;
  ELSE
    flag:=1;
    --取出第一个杆塔的坐标作为第一条架空导线的第一个坐标
    SELECT sdo_x1,sdo_y1 INTO v_prv_gt_sdo_x1,v_prv_gt_sdo_y1 FROM B$SD_GT_PT_SDOGEOM WHERE G3E_FID=v_gt_g3e_fid;
  END IF;
  end loop;
  dbms_output.put_line('添加了'||i||' 条架空导线。');
end;

/

--启用触发器
ALTER TABLE B$COMMON_N ENABLE ALL TRIGGERS;
ALTER TABLE b$CONNECTIVITY_N enable all triggers;
ALTER TABLE B$SD_JKDX_N enable all triggers;
ALTER TABLE B$SD_JKDX_LN ENABLE ALL TRIGGERS;
ALTER TABLE B$SD_JKDX_LN_SDOGEOM ENABLE ALL TRIGGERS;
ALTER TABLE B$SD_JKDX_LB ENABLE ALL TRIGGERS;
ALTER TABLE B$SD_JKDX_LB_SDOGEOM ENABLE ALL TRIGGERS;

电路与Multisim基础 导线交叉的正确画法

慈心积善融学习,技术愿为有情学。善心速造多好事,前人栽树后乘凉。我今于此写经验,愿见文者得启发。 为了减少出错误的几率,这样做非常重要。 Multisim软件优秀,值得学习。 ...
  • yushaopu
  • yushaopu
  • 2016年09月11日 22:17
  • 1744

用AS制作flash引导线(等分贝塞尔曲线)

最近遇到了这样的问题,所以特意花时间好好研究了一番。普通贝塞尔曲线运动: 下载 (36.61 KB)普通2009-4-1 17:05匀速贝塞尔曲线运动: 下载 (33.29 KB)等分20...
  • shangmw
  • shangmw
  • 2010年03月27日 11:29
  • 795

自创Google地图

毕业了进了公司 就接触了一个超图(supermap)的地图项目。那个项目是基于超图的二次开发。超图的技术和服务那是没有什么话说,但是就是地图的质量不是很高。在这也不是诋毁超图,因为我是开发的,也知道公...
  • zzgyuqi
  • zzgyuqi
  • 2012年03月28日 17:14
  • 1327

hjr学习-通信原理(六):信道

之前说了各种信号的传递和噪声,接下来说一下信道 顾名思义就是信息传递的通道。分为有线(电缆、光缆...)和无线信道(电磁波) 调制信道的数学模型如下 K(t)乘性干扰   n(t)加性干扰 信道...
  • hjrcrj
  • hjrcrj
  • 2016年07月06日 23:15
  • 583

导线电感与趋肤效应

现象:趋肤效应会使导线电阻变大,电感变小。 对于这个问题我是这么理解的。只谈机理,不涉及严格数学推导,若果有错误欢迎批评指正,共同进步。首先介绍一下趋肤效应:导线中电流频率为0,即直流时,电流J在导...
  • niuzhiyong58
  • niuzhiyong58
  • 2015年09月11日 20:36
  • 1955

布线的基本原则

PCB设计的好坏对PCB抗干扰能力影响很大,因此在进行PCB设计的时候,必须遵循一些基本原则。 1)、导线的布设应尽可能短;同一元器件的各条地址线或数据线应尽可能保持一样长;印制导线的拐弯应呈圆角;双...
  • qqliyunpeng
  • qqliyunpeng
  • 2015年03月18日 18:13
  • 1117

导线

表一:AWG与mm对照表 近似类比:(依次为1/3的关系) 1 AWG=7.5mm 10 AWG=2.5mm 20 AWG=0.8mm 30 AWG=0.20mm 只用记住10号线...
  • hcstar
  • hcstar
  • 2014年12月13日 10:19
  • 190

echart视觉引导线的长度调节labelLine

此问题的解决方法: 点击打开链接
  • wowoniuzailushang
  • wowoniuzailushang
  • 2017年05月16日 16:36
  • 1951

希特勒、隆美尔和德国国防军总参谋部(转载)

隆美尔在西方被称为‘莎士比亚式的悲剧人物’,但在1944年10月14日之前恐怕没人会这样想,在世人看来,他是‘沙漠之狐’,是第三帝国最年轻的元帅,是众神的宠儿,人们崇拜的偶像,其影响已超出军事领域。一...
  • myan
  • myan
  • 2004年04月22日 14:15
  • 7113

导线安全载流量口诀

导线安全载流量口诀: 10下五,100上二; 25、35,四、三界; 70、95,两倍半。 穿管、高温,八、九折; 裸线加一半; 铜线升级算。 口诀解释:口诀前三句是指铝导线、明敷设、环...
  • xztjhs
  • xztjhs
  • 2014年10月20日 21:11
  • 1724
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:第一次自动生成架空导线
举报原因:
原因补充:

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