tüm çizgileri POLYLINE yapma

; /////////////////////////////////////////////////////////////////
; ///
; /// Birleşebilen tüm çizgileri POLYLINE haline getirir
; ///
; /////////////////////////////////////////////////////////////////

(defun C:make_pl( / )
(princ "nElemanlari seciniz: ")
(setq sset (ssget))
; (setq sset (ssget "X" (list (cons 0 "LINE"))))
(setq adet (sslength sset))
(setq syc 0)
(repeat adet
(setq eleman (ssname sset syc))
(setq elmBlg (entget eleman))
(if (= (cdr(assoc 0 elmBlg)) "LINE")
(progn
(command "_PEDIT" eleman "Y" "JOIN" "ALL" "" "X")
)
)
(setq syc (1+ syc))
)
(princ)
)
(PRINC " --> 'http://cadlisp.blogspot.com/' Çizim yardımları yüklendi !")
Bu kodları nasıl kullanacağınızı bilmiyorsanız aşağıdaki linkten;
Mevcut kodlardan lisp dosyası oluşturmak
konusunu inceleyiniz.