;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Nokta Koordinatlarını Listeleme Programı - NKT_KOOR.lsp
; www.autocadokulu.com (c) 2008 - Sinan COŞKUN
; "NOKTA" katmanında olan nokta objelerini X koordinatına göre sıralayıp listeler !
;
(defun tablo_ciz()
(setq dik_czg_uz (* kbs(* yzy 1.75)))
(setq 0dik_czg1(polar tbn 3.14159265(* yzy 2.5)))
(setq 0dik_czg2(polar 0dik_czg1 4.71238898 dik_czg_uz))
(setq 1dik_czg2(polar tbn 4.71238898 dik_czg_uz))
(setq 2dik_czg1(polar tbn 0 (* yzy 12.5)))
(setq 2dik_czg2(polar 2dik_czg1 4.71238898 dik_czg_uz))
(setq 3dik_czg1(polar tbn 0 (* yzy 25)))
(setq 3dik_czg2(polar 3dik_czg1 4.71238898 dik_czg_uz))

(command "line" 0dik_czg1 0dik_czg2 "")
(command "line" tbn 1dik_czg2 "")
(command "line" 2dik_czg1 2dik_czg2 "")
(command "line" 3dik_czg1 3dik_czg2 "")
(command "line" 0dik_czg1 0dik_czg2 "")
)

;;;;;;;;;;;;;;;
(defun c:koor()
(setvar "cmdecho" 0)
(setq eski_os(getvar "osmode"))
(setvar "osmode" 0)
(command "undo" "group")
(setq nkt_lst(list))
(setq nths 0)
(setq bslk " ")
(prompt "\nKoordinat noktalarını seçiniz ! :")
(setq nkt_sec(ssget(list(cons 0 "POINT")(cons 8 "NOKTA"))))
(if(= nkt_sec nil)
  (alert "\nSeçilen Obje(ler) arasında Nokta yok !")
  (progn
   (setq nkt_say (sslength nkt_sec))
   (setq says 0)
   (while(> nkt_say says)
    (setq nkt_oku(cdr(assoc 10(entget(ssname nkt_sec says)))))
    (setq nkt_x(rtos(car nkt_oku)))
    (setq nkt_y(rtos(cadr nkt_oku)))
    (setq nkt_z(rtos(caddr nkt_oku)))
    (setq nkt_lst(append nkt_lst(list(strcat nkt_x"X"nkt_y"Y"nkt_z"Z"))))
    (setq says(+ says 1))
   );while sonu
   
   (setq ynkt_lst(vl-sort nkt_lst '<))

   (setq yzy(getreal(strcat"\nYazı yükseklği ? <"(rtos(getvar "textsize")2 2)">:")))
   (if(= yzy nil)(setq yzy(getvar "textsize")))
   
   (setq kbs(getint"\nKoordinat başlangıç Sayısı ? <1> :"))
   (if(= kbs nil)(setq kbs 1))

   (setq tbn(getpoint"\nTablo başlangıç Noktası ? :"))
   (setq n_yzn tbn)
   (command "line"(polar n_yzn 3.14159265(* yzy 2.5))(polar n_yzn 0(* yzy 25))"")
   
   (repeat(length ynkt_lst)
    (setq nkt_al(nth nths ynkt_lst))
    (setq x_yer(vl-string-search "X" nkt_al))
    (setq y_yer(vl-string-search "Y" nkt_al))
    (setq z_yer(vl-string-search "Z" nkt_al))
    (setq x_nkt(atof(substr nkt_al 1 x_yer)))
    (setq y_nkt(atof(substr nkt_al(+ x_yer 2)(- y_yer x_yer 1))))
    (setq z_nkt(atof(substr nkt_al(+ y_yer 2)(- z_yer y_yer 1))))

    (setq kyzn(list x_nkt y_nkt z_nkt))
     
    (setq x_al(rtos x_nkt))
    (setq y_al(rtos y_nkt))
    (setq z_al(rtos z_nkt))
     
    (setq n_yzn(polar n_yzn 4.71238898(* yzy 1.75)))
    (setq X_yzn(polar n_yzn 0(* yzy 12.5)))
    (setq Y_yzn(polar n_yzn 0(* yzy 25)))
    (command "text" kyzn yzy "" (itoa kbs)); nokta üzerinde ki numaralar
    (command "text" "J" "R" n_yzn yzy "" (strcat(itoa kbs)))
    (command "text" "J" "R" X_yzn yzy "" x_al)
    (command "text" "J" "R" Y_yzn yzy "" y_al)
    (command "line"(polar n_yzn 3.14159265(* yzy 2.5))Y_yzn "")
    (setq nths(+ nths 1))
    (setq kbs(+ kbs 1))
   );repeat sonu
(tablo_ciz)
); progn sonu
);if sonu

(setvar "osmode" eski_os)
(command "undo" "e")
(princ)
)