#perl

#AUTHOR: Thirteenth Guest

#version 1.0

#10-02-2013

#Select edges and run "split&make.pl"

#



my $edgeN = lxq("select.count edge ?");

if ($edgeN > 1) {

 my $ss = 0;

 my $mainlayer = lxq("query layerservice layers ? main");

 

 if (lxq("select.count polygon ?") ne 0) {

  lx("select.typeFrom polygon;edge;vertex;item;pivot;center;ptag true");

  lx("select.editSet splitMakeScriptTemp add");

  $ss = 1;

  lxout("save");

 }

 lx("select.drop polygon");

 my @edgeO = lxq("query layerservice edges ? Selected");

 for ($i=0; $i<$edgeN; $i++) {

  @polys = lxq("query layerservice edge.polyList ? @edgeO[$i]");

  lxout("$i - @edgeO[$i] - @polys[0]");

  lx("select.element $mainlayer polygon add @polys[0]");

  lx("select.element $mainlayer polygon add @polys[1]");

 }

 lx("select.typeFrom edge;vertex;polygon;item;pivot;center;ptag true");

 lx("edge.split");

 lx("select.typeFrom polygon;edge;vertex;item;pivot;center;ptag true");

 lx("select.convert edge");

 lx("select.edge remove poly more 1");

 lx("poly.make auto");

 if ($ss eq 1) {

  lx("select.drop polygon");

  lx("select.useSet splitMakeScriptTemp select");

  lx("select.editSet splitMakeScriptTemp remove");

  lx("select.typeFrom edge;vertex;polygon;item;pivot;center;ptag true");

  lxout("load");

 }

}