I have a vlx file that converts spline to plines. Just let me know your email and its on its way.

"Whether you think that you can, or that you can't, you are usually right "
.. Henry Ford

Hi,

"flatten", by Express Tools 1-9

Lothar

ADT 2004
ACAD 2002

Thanks to all. Express tools did the job!

I just noticed an odd occurance in the flatten command and I want to know if there is a solution. I am creating a spline in the shape of a toroid by copying "_spline" followed by multiple data points and tangent points from an excel worksheet. The spline is perfect in autocad... but when I flatten the spline using Express tools the resultant polyline is altered. For example if the spline (and spreadsheet for that matter) show a space between turns in the toroid of .2" for several turns, the polyline might have a space of 0.15" between turns 3&4 then .25" between turns 4&5. The average is correct but the individual turns are not exactly correct. Has anyone ever seen this before and is there a solution or am I just making a not so bright mistake? If it would be helpful I can send file for analyses. Thanks

A free vlx file to convert splines to polylines (maybe the same one as Borgunit's?) is available at http://www.dotsoft.com/freestuff.htm
"spl2pl.vlx"

Hi Borgunit , please send me such file.

devitg@ciudad.com.ar

Pardal

You can also isloate the spline(s) and SAVEASR12 DXF...

I think the link above to DOTSOFT was the file I am referring to. I found this in my archives that does a decent job...

(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

"Everybody is ignorant, only on different subjects." — Will Rogers