;|---------------------------------------------------------------------------|
| Nokta seçilmeye devam edildiği sürece, seçilen noktalara                  |
| istenilen sayıdan başlamak üzere numaralar verilir, ilgili noktanın       |
| numarası, X, Y ve Z koordinatları belirlenen -.xls dosyasına yazılır.     |
|      Hazırlayan: M. Şahin Güvercin - www.autocadokulu.com  19.12.2011     |
----------------------------------------------------------------------------|;
(write-line "\nHazırlayan: M. Şahin Güvercin - www.autocadokulu.com")
(defun c:nxyz (/ *error* oDz oLp Nm Yy Dp Kd bL)
  (command "_.undo" "group") (setvar "cmdecho" 0)
  (defun *error* (er) (princ (strcat "\n" er)) (close Kd)
    (setvar "dimzin" oDz) (setvar "Luprec" oLp) (command "_.undo" "e") (prin1))
  (setq oDz (getvar "dimzin") oLp (getvar "Luprec"))
  (if (not (tblsearch "layer" "nxyz-nno"))
    (entmake (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord")
                   '(100 . "AcDbLayerTableRecord") '(2 . "nxyz-nno") '(70 . 0)
                   '(62 . 5) '(6 . "Continuous"))))
  (if (not (tblsearch "layer" "nxyz-nokta"))
    (entmake (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord")
                   '(100 . "AcDbLayerTableRecord") '(2 . "nxyz-nokta")
                   '(70 . 0) '(62 . 1) '(6 . "Continuous")))) (initget 7)
  (setq Nm (getint "\n           Başlangıç Numarası: ")
        Yy (getreal "\n              Yazı Yüksekliği: ")
        Dp (getint "\n       Ondalık Basamak Sayısı: ")
        Kd (open (getfiled "Kayıt Dosyası" "" "xls" 1) "w"))
  (setvar "dimzin" 0) (setvar "Luprec" Dp) (initget "Evet Hayır")
  (setq bL (getkword "\nPoint isteniyor mu? [E/H]: ")) (princ "\n")
  (write-line "Nm\tX\tY\tZ" Kd)
  (while (setq nK (getpoint "\r... Yeni Nokta: "))
    (write-line (strcat (itoa Nm) "\t" (rtos (car nK) 2 Dp) "\t"
                        (rtos (cadr nK) 2 Dp) "\t" (rtos (caddr nK) 2 Dp)) Kd)
    (entmake (list '(0 . "TEXT") (cons 10 nK) (cons 40 Yy) (cons 1 (itoa Nm))
                   '(8 . "nxyz-nno")))
    (if (= bL "Evet") (entmake (list '(0 . "POINT") (cons 10 nK)
                                     '(8 . "nxyz-nokta")))) (setq Nm (1+ Nm)))
  (close Kd) (setvar "dimzin" oDz) (setvar "Luprec" oLp)
  (command "_.undo" "e") (prin1)
)