Coverting a series of lines to a polyline

[aloy]

How can I convert a series of line sgments to a polyline, or draw them as a pline by modifying the following code:

 
(setq p1(cadr (car l)))
(while (/= l nil)
(setq l(cdr l)) 
(setq p2(cadr (car l))) 
(command "line"  "_NON" p1 "_NON" p2 "") 
(setq p1 p2) 
)

Thanking in advance,
Aloy

[fixo]

Try this code, if you need to make the pline closed hit "CL" at the end

 
(defun C:demo()
(setq osm (getvar "osmode")) 
(setvar "osmode" 0) 
(command "._pline")
(while (= 1 (logand 1 (getvar "cmdactive")))
(command pause))
(setvar "osmode" osm) 
(princ) 
)

~'J'~

[aloy]

Hi Fixo,
The code you gave works fine on it own just like pline in autoCad. What I need is, to extract the point from the list, l ,when prompted to give the point.
Regards,
Aloy

[Lee Mac]

Query the DXF data of the resultant polyline.

[fixo]

Try instead

 
(defun C:demo(/ closed osm ptlist)
(setq osm (getvar "osmode")) 
(setvar "osmode" 0)
(setq ptlist [ your points ])
(setq closed T ;|or nil if open|;)
(command "._pline")
(mapcar 'command ptlist)
(if closed 
(command "CL")
(command "")
(setvar "osmode" osm)
(princ)
)

[Stefan BMR]

aloy,
From your code, the list must be something like ((a (x y z)) (b (u v w)) ...
In this case, this code will draw a Polyline instead of Lines.

(command "PLINE")
(foreach x l
  (command "_non" (cadr x))
  )
(command "")

[BlackBox]

How can I convert a series of line sgments to a polyline

One thing that hasn't been mentioned yet, is to use the PEDIT Command on a Selection Set, example:

(defun c:FOO (/ ss)
  (if (setq ss (ssget "_:L" '((0 . "LINE"))))
    (command "._pedit" "multiple" ss "" "y" "")
    (prompt "\n** Nothing selected ** ")
    )
  (princ)
  )

... You can tailor this how you like, if you wanted to join the lines, etc..

HTH

[aloy]

Stefan,
Thanks a lot. Fantastic.
Regards,
Aloy

[aloy]

Hi RenderMan,
It does not work. It asks to select and at the end does not convert. If you like I can post the list to draw the lines and you may try.
Regards,
Aloy

[BlackBox]

How can I convert a series of line sgments to a polyline

One thing that hasn't been mentioned yet, is to use the PEDIT Command on a Selection Set

Hi RenderMan,
It does not work. It asks to select and at the end does not convert. If you like I can post the list to draw the lines and you may try.

To reiterate... The function prompts the user for a Selection Set of lines that already exist within the drawing (and not a list of points), then converts the a valid Selection Set to Polylines. This function does not accept any arguments (i.e., a list of points).

You've mentioned different tasks in this thread; this offering is by no means an answer for each of them.