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)))
)
)
)
)
)

Hi David, thank you for your support.

Hi David, is there any way to select the assembly line without using axlGetSelSet and axlSingleSelectPoint? I mean to ask, can we automatically select an assembly line without using any of those functions?

I think you need to do some sort of selection command, perhaps you could replace the line:

(line_id = car((axlGetSelSet (axlSingleSelectPoint))))

with the following to select the first line found on the current screen:

(line_id = car((axlGetSelSet (axlAddSelectBox(axlWindowBoxGet)))))