; /////////////////////////////////////////////////////////////////
; ///
; ///  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 " --> 'www.cizimokulu.com' Çizim yardımları yüklendi !")