;; | ----------------------------------------------------------------------------
;; | PL_SplPl2Pl
;; | ----------------------------------------------------------------------------
;; | Function : Convert a splined polyline to a normal polyline
;; | Arguments:
;; |            'ename'  - Name of Splined polyline
;; | Action   : Explodes the splined polyline, then joins all the resulting
;; |            segments to form the "unsplined" "normal" "plain vanilla"
;; |            polyline
;; | Updated  : March 24, 1998
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun PL_SplPl2Pl(ename / elast ss1)

	(setq elast (MI_xentlast))
	(command "._Explode" ename)
	(setq ss1 (MI_after elast))
	(command "._Pedit" (ssname ss1 0) "_Yes" "join" ss1 "" "_X")
	(entlast)
)

;; | ----------------------------------------------------------------------------
;; | PL_Spl2Pl, PL_Ell2Pl
;; | ----------------------------------------------------------------------------
;; | Function : Convert a SPLINE,ELLISPE object to a normal polyline
;; | Arguments:
;; |            'ename'  - Name of SPLINE object
;; | Action   : Does a DXFOUT (R12 format) and DXFIN of the SPLINE to produce a
;; |            normal polyline
;; | Updated  : April 15, 1999
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun PL_Ell2Pl( ename )

(PL_Spl2Pl ename)
)


(defun PL_Spl2Pl ( ename / hnd elast )

(setq hnd (LI_item 5 (entget (entlast))))
(command "._Dxfout" "c:/$temp$.dxf" "_Objects" ename "" "_Version" "_R12" "_Binary")
;(if #AcadMap (command "No"))
(command "._Dxfin" "c:/$temp$.dxf")
(if (/= hnd (LI_item 5 (entget (setq elast (entlast)))))
	elast
	nil
)
)