Code:
/*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"))); |