;| Seçilen 2D Solid Nesnelerinin yerine,                                      |
| aynı Layer'da, geçerli renk, çizgi tipi, çizgi kalınlığı                   |
| gibi özelliklere sahip Polyline'lar oluşturulur.                           |
|                            Hazırlayan: M. Şahin Güvercin (ProhibiT)        |
|                                     www.cizimokulu.com - 20.03.2022        |;
(defun c:sLpL (/ *error* SoLidLer SsLd sLnT)
;______________________________________________________________________________;
  (defun *error* (er /)
    (if (and (member er '("Function cancelled" "quit / exit abort"))
             (= (logand (getvar "undoctl") 8) 8))
      (progn (command-s "_.undo" "e")  (setvar "cmdecho" ocmd)))
    (princ (strcat "\n" er)) (prin1))
;______________________________________________________________________________;
  (setq ocmd (getvar "cmdecho")) (setvar "cmdecho" 0) (command "_.undo" "group")
;;;
  (setq SoLidLer (ssget (list (cons 0 "SOLID"))) n (sslength SoLidLer))
  (while (setq SsLd (ssname SoLidLer (setq n (1- n))))
    (setq sLenT (entget SsLd)) (entdel SsLd)
    (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(67 . 0)
                   (assoc 8 sLenT) '(100 . "AcDbPolyline") '(90 . 4) '(70 . 1)
              (cons 10 (cdr (assoc 10 sLenT))) (cons 10 (cdr (assoc 11 sLenT)))
           (cons 10 (cdr (assoc 13 sLenT))) (cons 10 (cdr (assoc 12 sLenT))))))
;;;
  (if (= (logand (getvar "undoctl") 8) 8) (command "_.undo" "e"))
  (if ocmd (setvar "cmdecho" ocmd)) (prin1))