Re: http://www.dailyautocad.com/2008/11/how-to-convert-spline-to-polyline_25.html

Mynor Lupus — Tue, 25 Jan 2011 08:59:05 -0000

Mr Toker, I was looking for this answer since long time ago. I also instlled the SplineConvert plug in tool from AutoCad, but paying $40 for this extra license is too much. Thank you very much!

Re: http://www.dailyautocad.com/2008/11/how-to-convert-spline-to-polyline_25.html

Dr_fleau — Mon, 08 Nov 2010 08:30:29 -0000

I use a LISP routine :

;;;CADALYST 06/05 Tip2039: Spline2Pline.lsp Spline to Polyline Conversion (c) Lloyd Beachy

;; Spline2Pline.lsp (c) 2005 Lloyd Beachy
;; Routine to convert splines to plines

(Defun C:S2P (/ ss pt# cmdecho osmode clayer count ent lay lng pt-list cnt)
(vl-load-com)
(setq ss (ssget '((0 . "spline")))
pt# (getint "Enter number of segments <100>:")
cmdecho (getvar "cmdecho")
osmode (getvar "osmode")
clayer (getvar "clayer")
count 0 ;spline counter
);end setq
(if(null pt#)(setq pt# 100))
(setvar "cmdecho" 0)
(command ".undo" "begin") ;begin undo group
(setvar "osmode" 0)
(repeat(sslength ss) ;repeat for each spline
(setq ent (vlax-ename->vla-object (ssname ss count));change spline to vla-object
lay (vlax-get-property ent "layer") ;spline's layer
lng (vlax-curve-getDistAtPoint ent(vlax-curve-getEndPoint ent));length of spline
pt-list(list(vlax-curve-getStartPoint ent)) ;coords for start of spline
cnt 1.0 ;segment counter
);end setq
(repeat pt# ;repeat for each segment
(setq pt-list(cons(vlax-curve-getPointAtDist ent (* lng(/ cnt pt#)))pt-list));add segment's point to pt-list
(setq cnt(1+ cnt)) ;counter to next segment
);end segment repeat
(setq cnt 0) ;pline counter
(setvar "clayer" lay) ;match spline's layer
(command ".pline" ;start "pline" command
(repeat(length pt-list) ;repeat for each point
(command(nth cnt pt-list)) ;enter current point
(setq cnt(1+ cnt)) ;counter to next point
"" ;return value to close "pline" command
);end point repeat
);end command
(setq count(1+ count)) ;counter to next spline
);end spline repeat
(command ".erase" ss "")
(setvar "osmode" osmode)
(setvar "clayer" clayer)
(command ".undo" "end") ;end of undo group
(setvar "cmdecho" cmdecho)
(princ) ;exit quietly
);end C:S2P

Re: http://www.dailyautocad.com/2008/11/how-to-convert-spline-to-polyline_25.html

Phamthehuynh — Tue, 02 Nov 2010 11:10:50 -0000

Thank you very much!

Re: http://www.dailyautocad.com/2008/11/how-to-convert-spline-to-polyline_25.html

pep — Tue, 25 Nov 2008 10:07:30 -0000

hi...

there are some LISP routines to make this job too

greets

Daily AutoCAD - Latest Comments in http://www.dailyautocad.com/2008/11/how-to-convert-spline-to-polyline_25.html

Re: http://www.dailyautocad.com/2008/11/how-to-convert-spline-to-polyline_25.html

Re: http://www.dailyautocad.com/2008/11/how-to-convert-spline-to-polyline_25.html

Re: http://www.dailyautocad.com/2008/11/how-to-convert-spline-to-polyline_25.html

Re: http://www.dailyautocad.com/2008/11/how-to-convert-spline-to-polyline_25.html