/*c2s:    lay2="PIPE_MAIN",         lay1="PIPE_BRANCH";
          jps=jps-1,
          jpg=jpg-1, // different Direction/s
          jps=(jpg==jps)?(3-jpg):jps,
//set variabiles default/s $ol=list("parsedlist","cntct","ss","ept","ang","spt","obj","sslist","ssang1","ssang2","n","ftpt","ss1","o1");  foreach(eva,$ol,set(read(eva),nil)); 
//check Layer/s
          o1=tblsearch("LAYER",lay1),       o2=tblsearch("LAYER",lay2);
          $rr=(o1 && o2)?strcat(lay1,",",lay2):(o1)?lay1:(o2)?lay2:"";
//Regen Screen
          $rr=vla.regen(con_acdoc,AcMODELSPACE);
//AcOr .. o1 or o2
          ss=(acor(o1,o2))?ssget(lISt(cons(0,"LINE"),cons(8,$rr))):
                          ssget(lISt(cons(0,"LINE")));