It's possible to turn a SPLine in an PolyLine?

[Jauch-BR]

Hi!

It's possible to turn a SPLine in an PolyLine?
Or I have to create direct the Polyline?

Because create an SPline (in my case) looks muth more easy (many curves), but i need to turn then in a Polyline.

Thanks!

[StykFacE]

Try this. i don't know who made it but i got it off here somewhere. it works pretty well.

(defun C:SPLINE2PLINE (/ SPLINES PLINETYPE OSMODE I SPL ED CODEPAIR)
  (if
    (setq SPLINES (ssget (list (cons 0 "spline"))))
     (progn
       (if
         (zerop (setq PLINETYPE (getvar "plinetype")))
          (setvar "plinetype" 1)
          ) ;if
       (setq OSMODE (getvar "osmode"))
       (setvar "osmode" 0)
       (setq I 0)
       (while
         (setq SPL (ssname SPLINES I))
          (setq    I  (1+ I)
                ED (entget SPL)
                ) ;setq
          (command ".pline")
          (foreach
               CODEPAIR
                       ED
            (if
              (= 10 (car CODEPAIR))
               (command (cdr CODEPAIR))
               ) ;if
            ) ;foreach
          (command "")
          (command ".pedit" "l" "s" "")
          ) ;while
       (if PLINETYPE
         (setvar "plinetype" PLINETYPE)
         )
       (setvar "osmode" OSMODE)
       ) ;progn
     ) ;if
  (princ)
  ) ;defun

[Jauch-BR]

Thanks!!!!

I'll try it this saturday!!!

Bye!!!

[Designer]

Try this. i don't know who made it but i got it off here somewhere. it works pretty well.

(defun C:SPLINE2PLINE (/ SPLINES PLINETYPE OSMODE I SPL ED CODEPAIR)
  (if
    (setq SPLINES (ssget (list (cons 0 "spline"))))
     (progn
       (if
         (zerop (setq PLINETYPE (getvar "plinetype")))
          (setvar "plinetype" 1)
          ) ;if
       (setq OSMODE (getvar "osmode"))
       (setvar "osmode" 0)
       (setq I 0)
       (while
         (setq SPL (ssname SPLINES I))
          (setq    I  (1+ I)
                ED (entget SPL)
                ) ;setq
          (command ".pline")
          (foreach
               CODEPAIR
                       ED
            (if
              (= 10 (car CODEPAIR))
               (command (cdr CODEPAIR))
               ) ;if
            ) ;foreach
          (command "")
          (command ".pedit" "l" "s" "")
          ) ;while
       (if PLINETYPE
         (setvar "plinetype" PLINETYPE)
         )
       (setvar "osmode" OSMODE)
       ) ;progn
     ) ;if
  (princ)
  ) ;defun

How do you use that? i never used .lsp or anything like that, i use the regular comands.

[zars]

Well, first you have to copy this into a notepad and save it as "spline2pline.lsp" then just open your ACAD and go to the tools menu and "Load Application..." and there you'll have to search for the file and that's it.

To use it, you'll only have to type in "spline2pline" or the function name (it's the one after C in the command line.

Greets, Alex.

PD: I must say that if you're using a LT version it won't work, because Lisp only works with Full versions unless you have the LTextender or something like that.

[StykFacE]

How do you use that? i never used .lsp or anything like that, i use the regular comands.

check out This Thread about using Lisp files.

[rkmcswain]

Two more options

1. use WMFOUT and WMFIN on the splines.

2. Grab SPL2PL.VLX from http://www.dotsoft.com (look in the Free Stuff). Download it and drag and drop in the ACAD editor.

[Designer]

Tks for the anwsers

[CarlB]

....and FLATTEN

[StykFacE]

....and FLATTEN

hmm, never thought of using that. good tip.