;
; aktuális térben az összes 3dpolyline típusú elem geometriáját felhasználva
; készít új lwpolyline rajzelemeket, majd a 3dpolyline elemeket törli
;
(princ "\n- utasítás: 3dpl-pl")
(defun c:3dpl-pl (/ os s h e3 e2 ep ap p pl)
	(setvar "cmdecho" 0)
	(command "_elevation" 0.0)
	(setq os (getvar "osmode"))	(setvar "osmode" 0)
	(if (setq s (ssget "X" (list (cons 0 "POLYLINE") (cons 410 (getvar "ctab")))))
		(setq h (sslength s))
		(setq h 0)
	)
	(while (> h 0)
		(setq e3 (ssname s (setq h (1- h))))
		(setq pl nil ep e3)
		(while (/= (cdr (assoc 0 (setq ap (entget (setq ep (entnext ep)))))) "SEQEND")
			(setq p (cdr (assoc 10 ap)))
			(setq pl (append pl (list (list (car p) (cadr p)))))
		)
		(if pl
			(if (>= (length pl) 2)
				(progn
					(command "_pline")
					(foreach p pl (command p))
					(command "")
					(setq e2 (entlast))
					(command "_matchprop" e3 e2 "")
					(command "_erase" e3 "")
	)	)	)	)
	(setvar "cmdecho" 1)
	(princ)
)
