(defun c:23p (/ data i pt)
  (setq
    data (entget (setq sil (car (entsel "
Lwpolyline'ı seçiniz:"))))
  )
  (setq data_tan (cdr (assoc 0 data)))
  (if (/= data_tan "LWPOLYLINE")
    (progn (princ "
Seçilen nesne Lwpolyline değil..."))
    (progn
      (command "3dpoly")
      (while (setq pt (assoc 10 data))
(setq data (cdr (member pt data)))
(setq pt_x (cadr pt)
      pt_y (caddr pt)
)
(setq ptt (list pt_x pt_y 0.00))
(command ptt)
      )

      (command "")
      (entdel sil)
    )
  )
  (princ)
)(PRINC "--> 'www.autocadokulu.com' Çizim yardımları yüklendi !")