;;;|-------------------------------------------------------------------------|"
;;;| Bu program © NetCad ortamından AutoCAD'e aktarılan harita çizimlerinde  |"
;;;| Nokta kotlarının Üçüncü Boyuta kaldırılması için                        |"
;;;| M.Şahin Güvercin tarafından Hazırlandı. 06.10.2009-Ankara.              |"
;;;| Fonksiyonu çalıştırmak için AutoCAD komut satırından "YukseLt" giriniz. |"
;;;|-------------------------------------------------------------------------|"
(defun c:yukselt (/ kotlayer secilen sayi sayac yks obje kot xkoord ykoord
                  koordi secobje) (setvar "cmdecho" 0) (command "undo" "group")
  (setq kotlayer (getstring "\nLayer adini (Obje seçmek için Enter) giriniz:"))
  (if (= "" kotlayer)
    (setq kotlayer (cdr(assoc 8(entget(car (entsel"\nBir obje seciniz: ")))))))
  (setq secilen (ssget "X" (list (cons 8 kotlayer) (cons 0 "text")))
        sayi (sslength secilen) sayac -1 yks 0)
  (while (< (setq sayac (1+ sayac)) sayi)
    (setq obje (ssname secilen sayac))
    (if (setq kot (atof (cdr (assoc 1 (entget obje)))))
      (progn (setq xkoord (cadr (assoc 10 (entget obje)))
                   ykoord (caddr (assoc 10 (entget obje)))
                   koordi (list xkoord ykoord kot)
                   secobje (entget obje)
                   secobje (subst (cons 10 koordi) (assoc 10 secobje) secobje))
        (entmod secobje) (entupd(cdr(assoc -1 secobje))) (setq yks (1+ yks)))))
  (princ (strcat "\n"(itoa yks)" adet noktanın z koordinatları düzeltildi..."))
  (command "undo" "e") (prin1)
)