Explodir Spline

Tá eu sei que não dá pra explodir spline, mas dá pra imitar o traçado dela, certo? vejam:

;SPP -> “explodir” spline para polyline
(defun c:spp (/ ss dist ent comp compt c)
(tbn:error-init (list (list “cmdecho” 0) T))
(vl-load-com)
(prompt “nSelecione os objetos…n”)
(setq ss (ssget ‘((0 . “ARC,*[~M]LINE,LINE”)))
dist (getdist
“Entre com a distância entre os pontos:n”)
lay (getstring t “qual o nome do layer?<0>“)
lay (if (/= “” lay) lay “0”))
(repeat (if ss (sslength ss) 0)
(setq ent (ssname ss 0)
compt (vlax-curve-getDistAtParam ent
(vlax-curve-getEndParam ent))
pts nil
comp 0)
(ssdel ent ss)
(while (<= comp compt)
(setq pts (append pts
(list (vlax-curve-getPointAtDist
ent comp)))
comp (if (and (> (+ comp dist) compt)
(< comp compt))
compt
(+ comp dist))))
(draw-pline2 pts lay (if (setq c (dxf 70 ent))
(= 1 (logand c 1)))))
(tbn:error-restore))

Esta rotina é util para aqueles que recebem desenhos com curvas de nível desenhadas com spline e precisa delas como polilinhas (quem trabalha com topografia por exemplo… o próprio CIVIL 3D só aceita breaklines se ñão forem splines)