Conver ALL lines to polylines?

[kasanoff]

Hi All,

I've found simply way to conver line to polyline (below .lsp) but the only thing is that I have to select each line separately. Is it a way to convert all selected lines to polylines (without joining)?


(defun c:cp (/ ob) ;changes a line or arc to a polyline;
(setq ob (entsel))
(princ "Select line or arc: ")
(command "_pedit" ob "_y" ""))

Regards

[Alan Cullen]

Try Pedit with the MULTIPLE option.

This has been discussed here at length recently. So a search would definitely help you here.

If you still have problems, then please get back to us. :D

[Frank the Frowner]

I would select everything from the drawing, go to my properties window, sort it out by lines, then type in 'pe' and convert

[SLW210]

_PEDIT m (for Multiple) select the entire drawing and hit enter. All lines will be polylines.

[Alan Cullen]

Hey, SLW210,

I see you are right up there on the hit list, well done mate.

Oops, off topic, sorry. :(

[fuccaro]

You could start from something like this:

(defun c:L2PL()
(setq peditaccept (getvar "PEDITACCEPT"))
(setq peditaccept 1)
(setq ss (ssget "X" (list '(0 . "LINE"))))
(repeat (setq i (sslength ss))
(setq l1 (ssname ss (setq i (1- i))))
(command "_.PEDIT" l1 "" "")
)
(setvar "PEDITACCEPT" peditaccept)
)Good luck!



******** editing *********
oops! reading again I see that you wish to operate on all the lines you select, not all the lines in the drawing. A minor change in the 4th line of the routine will do what you wish. I will let you to discover how to pass the selection set to the lisp -post here monday if you need help.