Forum Post: RE: Turning enclosed lines into a shape?

That worked great! I just edited a bit to fit our scheme. Thanks so much! procedure( DE_ConvertLineToShape() let((lineDBID, shapeLayer, poly, path) axlSetFindFilter( ?enabled '( "noall" "lines") ?onButtons '( "noall" "lines" )) lineDBID = axlGetSelSet(axlSingleSelectBox()) shapeLayer = "PACKAGE GEOMETRY/DFA_BOUND_TOP" when(lineDBID foreach(item lineDBID item ->objType == "path" && onep(item ->nSegs) && item ->hasArcs || item ->nSegs > 2 && axlGeoPointsEqual(car(car(item ->segments) ->startEnd), cadr(lastelem(item ->segments) ->startEnd)) path = axlDB2Path(item) poly = car(axlPolyFromDB(path)) axlDBCreateShape(poly, t, shapeLayer) );foreach ); when );let );proc