Please help with small lisp modification

[radu.iordache803715]

The attached lisp selects all closed polylines in a drawing and for each one writes a line in a file (list of coordinates in form Y,X or north,east). I would like to modify it to repeat the first point at the end of each line.

For example, in a drawing with 2 closed polylines, the output looks like this:

300,500 300,550 250,550 250,500
300,700 300,750 250,750 250,700
end of file

And I would like it to look like this:

300,500 300,550 250,550 250,500 300,500
300,700 300,750 250,750 250,700 300,700
end of file

Thank you!

[BIG-AL]

If writing to file why not each point 1 line ? Just use a blank line to seperate.

Anyway it is making a list of points just add the (last pointinlist) before writing to file.

(setq co-ord (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget plent))))
(setq co-ord (cons (last co-ord) co-ord))