Forum Post: RE: How to get the location of Assembly Line

procedure(report_line() let((line_id start_end) (axlSetFindFilter ?enabled list("noall" "lines" ) ?onButtons list("noall" "lines")) (line_id = car((axlGetSelSet (axlSingleSelectPoint)))) when(line_id foreach(seg (line_id->segments) (start_end = seg->startEnd) when(((seg->objType) == "line") axlMsgPut("line start (%.4f:%.4f) end (%.4f:%.4f)\n" car(car(start_end)) cadr(car(start_end)) car(cadr(start_end)) cadr(cadr(start_end))) ) when(((seg->objType) == "arc") axlMsgPut("arc start (%.4f:%.4f) center (%.4f:%.4f) end (%.4f:%.4f)\n" car(car(start_end)) cadr(car(start_end)) car(seg->xy) cadr(seg->xy) car(cadr(start_end)) cadr(cadr(start_end))) ) ) ) ) )