(defun c:kord ()
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)

  (setq adet (getint "\n kac satir"))
  (setq yer (getpoint "\n tablo yeri"))
  (setq a (polar yer 0 210))
  (setq d (polar yer (* pi 1.5) 15))
  (setq h (polar d 0 210))
  (setq l (polar d (* pi 1.5) 15))
  (setq b (polar l (* pi 1.5) (* adet 15)))
  (setq c (polar b 0 210))
  (setq m (polar h (* pi 1.5) 15))
  (setq e (polar d 0 30))
  (setq n (polar l 0 10))
  (setq i (polar b 0 30))
  (setq p (polar e (* pi 1.5) 5))

 
  (command "line" yer a "")
  (command "line" d h "")
  (command "line" l m "")
  (command "line" b c "")
  (command "line" b yer "")
  (command "line" e i "")
  (command "line" c a "")
;    (setq r (entlast n))
;    (setq o (entlast p))
  (command "array" n "" "r" adet "" "-15")

  (command "array" p "" "r" "" "3" "60")

  (setq baslik (polar d (/ pi 20) 25))
  (setq noyer (polar l (/ pi 15) 4))
  (setq xyer (polar noyer 0 30))
  (setq yyer (polar xyer 0 60))
  (setq zyer (polar yyer 0 60))
  (command "text" baslik "9" "0" "koordınat tablosu" "")
  (command "text" noyer "7" "0" "no" "")
  (command "text" xyer "7" "0" "x=" "")
  (command "text" yyer "7" "0" "y=" "")
  (command "text" zyer "7" "0" "z=" "")

  (setq n10 15)
  (setq n0 1)
  (while (/= adet 0)
    (setq n1 (polar noyer (* pi 1.5) n10))
    (setq n2 (strcat "p" (itoa (fix n0))))
    (command "text" n1 "7" "0" n2 "")
    (setq n10 (+ n10 15))
    (setq n0 (+ n0 1))
    (setq adet (- adet 1))
  )
  (setvar "osmode" 32)

  (setq n11 1)

  (setq al 15)
  (setq pick_pt 1)
  (while (/= pick_pt null)
    (setq pick_pt (getpoint "koordinat noktasi: "))
    (setq x_pt (rtos (car pick_pt) 2 3))
    (setq y_pt (rtos (cadr pick_pt) 2 3))
    (setq z_pt (rtos (caddr pick_pt) 2 3))
    (setq x (polar xyer (* pi 1.5) al))
    (setq y (polar yyer (* pi 1.5) al))
    (setq z (polar zyer (* pi 1.5) al))

    (command "text" x "7" "0" x_pt "")
    (command "text" y "7" "0" y_pt "")
    (command "text" z "7" "0" z_pt "")
   
    (command "circle" pick_pt "@1.8,0")
    (setq n12 (strcat "p" (itoa (fix n11))))
    (command "text" pick_pt "7" "0" n12 "")
    (setq n11 (+ n11 1))

    (setq al (+ al 15))
  )

  (prompt
    "\n..Ibrahim gundogmus (c) 09.12.97 tarafindan proglamlanmistir....."
  )
 
)

(defun c:kord ()
(setvar "cmdecho" 0)
(setvar "osmode" 0)

(setq adet (getint "\n kac satir"))
(setq yer (getpoint "\n tablo yeri"))
(setq a (polar yer 0 210))
(setq d (polar yer (* pi 1.5) 15))
(setq h (polar d 0 210))
(setq l (polar d (* pi 1.5) 15))
(setq b (polar l (* pi 1.5) (* adet 15)))
(setq c (polar b 0 210))
(setq m (polar h (* pi 1.5) 15))
(setq e (polar d 0 30))
(setq n (polar l 0 10))
(setq i (polar b 0 30))
(setq p (polar e (* pi 1.5) 5))


(command "line" yer a "")
(command "line" d h "")
(command "line" l m "")
(command "line" b c "")
(command "line" b yer "")
(command "line" e i "")
(command "line" c a "")

 
(command "array" n "" "r" adet "" "-15")

(command "array" p "" "r" "" "3" "60")

(setq baslik (polar d (/ pi 20) 25))
(setq noyer (polar l (/ pi 15) 4))
(setq xyer (polar noyer 0 30))
(setq yyer (polar xyer 0 60))
(setq zyer (polar yyer 0 60))
(command "text" baslik "9" "0" "koordınat tablosu" "")
(command "text" noyer "7" "0" "no" "")
(command "text" xyer "7" "0" "x=" "")
(command "text" yyer "7" "0" "y=" "")
(command "text" zyer "7" "0" "z=" "")

(setq n10 15)
(setq n0 1)
(while (/= adet 0)
(setq n1 (polar noyer (* pi 1.5) n10))
(setq n2 (strcat "p" (itoa (fix n0))))
(command "text" n1 "7" "0" n2 "")
(setq n10 (+ n10 15))
(setq n0 (+ n0 1))
(setq adet (- adet 1))
)
(setvar "osmode" 32)


(command "layer" "n" "point" "")
(command "layer" "n" "yazi" "")
(command "layer" "n" "circle" "")

 
(setq n11 1)

(setq al 15)
(setq pick_pt 1)
(while (/= pick_pt null)
(setq pick_pt (getpoint "koordinat noktasi: "))
(setq x_pt (rtos (car pick_pt) 2 3))
(setq y_pt (rtos (cadr pick_pt) 2 3))
(setq z_pt (rtos (caddr pick_pt) 2 3))
(setq x (polar xyer (* pi 1.5) al))
(setq y (polar yyer (* pi 1.5) al))
(setq z (polar zyer (* pi 1.5) al))
(command "layer" "s" "yazi" "" "")
(command "text" x "7" "0" x_pt "")
(command "text" y "7" "0" y_pt "")
(command "text" z "7" "0" z_pt "")

(command "layer" "s" "point" "" "")
(command "circle" pick_pt "@1.8,0")


(command "layer" "s" "point" "" "")
(command "point" pick_pt)

(command "layer" "s" "yazi" "" "")

(setq pick_pt1 (polar pick_pt 0 15)) 
(setq cccc (polar pick_pt1 (* pi 1.5) 15))
(setq dddd (polar cccc (* pi 1.5) 15))
(setq eeee (polar dddd (* pi 1.5) 15))


(setq n17 (strcat "x=" x_pt))
(command "text" cccc "10" "0" n17 "")
(command "layer" "s" "yazi" "" "")

(setq n18 (strcat "y=" y_pt))
(command "text" dddd "10" "0" n18 "")

(setq n19 (strcat "z=" z_pt))
(command "text" eeee "10" "0" n19 "")

   

(setq n12 (strcat "p" (itoa (fix n11))))
(command "text" pick_pt1 "10" "0" n12 "")
(setq n11 (+ n11 1))

(setq al (+ al 15))
)

(prompt
"\n..Ibrahim gundogmus (c) 09.12.97 tarafindan proglamlanmistir....."
)

)

(defun c:kord (/ adet)
(setvar "cmdecho" 0)
  (setq os (getvar "osmode"))
(if (= ad nil)
  (setq ad 5))
(setq adet (getint (strcat "\n kac satir:< " (rtos ad 2 2) " >:")))
  (if (= adet nil)
    (setq adet ad))
  (setq ad adet adet ad adet1 adet)
(setq yer (getpoint "\n tablo yeri:"))
(setq a (polar yer 0 210))
(setq d (polar yer (* pi 1.5) 15))
(setq h (polar d 0 210))
(setq l (polar d (* pi 1.5) 15))
(setq b (polar l (* pi 1.5) (* adet 15)))
(setq c (polar b 0 210))
(setq m (polar h (* pi 1.5) 15))
(setq e (polar d 0 30))
(setq n (polar l 0 10))
(setq i (polar b 0 30))
(setq p (polar e (* pi 1.5) 5))
(setvar "osmode" 16547)
(command "_.Line" yer a "")
(command "_.Line" d h "")
(command "_.Line" l m "")
(command "_.Line" b c "")
(command "_.Line" b yer "")
(command "_.Line" e i "")
(command "_.Line" c a "")
(command "_.Array" n "" "r" adet "" "-15")
(command "_.Array" p "" "r" "" "3" "60")
(setq baslik (polar d (/ pi 20) 25))
(setq noyer (polar l (/ pi 3.5) 4))
(setq xyer (polar noyer 0 30))
(setq yyer (polar xyer 0 60))
(setq zyer (polar yyer 0 60))
(command "_.Text" baslik "9" "0" "koordinat tablosu" )
(command "_.Text" noyer "7" "0" "no" )
(command "_.Text" xyer "7" "0" "x=" )
(command "_.Text" yyer "7" "0" "y=" )
(command "_.Text" zyer "7" "0" "z=" )
(setq n10 15)
(setq n0 1)
  (repeat adet
(setq n1 (polar noyer (* pi 1.5) n10))
(setq n2 (strcat "p" (itoa (fix n0))))
(command "_.Text" n1 "7" "0" n2 )
(setq n10 (+ n10 15))
(setq n0 (+ n0 1))
(setq adet (- adet 1))
)
(command "_.Layer" "m" "point" "")
(command "_.Layer" "m" "yazi" "")
(command "_.Layer" "m" "circle" "")
(setq n11 1)
(setq al 15)
(setq pick_pt 1)
  (setq c 0)
(while (< c adet1)
(setq pick_pt (getpoint "\nkoordinat noktasi: "))
(setq x_pt (rtos (car pick_pt) 2 3))
(setq y_pt (rtos (cadr pick_pt) 2 3))
(setq z_pt (rtos (caddr pick_pt) 2 3))
(setq x (polar xyer (* pi 1.5) al))
(setq y (polar yyer (* pi 1.5) al))
(setq z (polar zyer (* pi 1.5) al))
(command "_.Layer" "s" "yazi" "")
(command "_.Text" x "7" "0" x_pt)
(command "_.Text" y "7" "0" y_pt)
(command "_.Text" z "7" "0" z_pt)
(command "_.Layer" "s" "point" "" )
(command "_.Circle" pick_pt "@1.8,0")
(command "_.Layer" "s" "point" "" )
(command "_.Point" pick_pt)
(command "_.Layer" "s" "yazi" "")
(setq pick_pt1 (polar pick_pt 0 15)) 
(setq cccc (polar pick_pt1 (* pi 1.5) 15))
(setq dddd (polar cccc (* pi 1.5) 15))
(setq eeee (polar dddd (* pi 1.5) 15))
(setq n17 (strcat "x=" x_pt))
(command "_.Text" cccc "10" "0" n17 )
(command "_.Layer" "s" "yazi" "" )
(setq n18 (strcat "y=" y_pt))
(command "_.Text" dddd "10" "0" n18 )
(setq n19 (strcat "z=" z_pt))
(command "_.Text" eeee "10" "0" n19 )
(setq n12 (strcat "p" (itoa (fix n11))))
(command "_.Text" pick_pt1 "10" "0" n12 )
(setq n11 (+ n11 1))
(setq al (+ al 15))
  (setq c (+ c 1))
)
(setvar "osmode" os)
(prompt
"\n..Ibrahim gundogmus (c) 09.12.97 tarafindan proglamlanmistir....."
)
(princ)
)

;;;================================================;;;
;;;   Prepared by: M. Şahin Güvercin 21/02/2011    ;;;
;;;              www.autocadokulu.com              ;;;
;;;================================================;;;
(defun *error* (msg) (setvar "dimzin" edz) (setvar "modemacro" "") (princ msg)
  (command "undo" "e") (prin1))
(defun c:PCT (/ Txh num nn pny rfob srk PtOb Mtrx elv K L m n pnts nks nksX nksY TxH p1
                 p0 tks dLset ac msf pvt pvt0 XLer YLer nnum X Y Z)
  (setvar "modemacro" "M.Sahin Guvercin") (setvar "cmdecho" 0) (command "_.undo" "group")
  (setq edz (getvar "dimzin"))
  (if (= eTxH nil) (setq eTxH (* (getvar "dimtxt") (getvar "dimscale"))))
  (setq TxH (getreal (strcat "\nYazi yuksekligi <" (rtos eTxH) "> :")))
  (if (= TxH nil) (setq TxH eTxH) (setq eTxH TxH))
  (if (= enum nil) (setq enum "p1"))
  (setq num (getstring (strcat "\nBaslangic sayisi <" enum "> :")))
  (if (= num "") (setq num enum))
  (if (> (ascii (substr num 1 1)) 57)
    (setq nn  (substr num 1 1) num (1- (atoi (substr num 2 (- (strlen num) 1)))))
    (setq nn  "" num (1- (atoi num))))
  (initget 7 "Evet Hayir")
  (setq pny (getkword "\ Noktanın yanına numara yazılacak mı? (E=Evet/H=Hayır"))
  (princ "\n Koordinatları yazılacak guruptan bir obje seçiniz...")
  (while (not (setq rfob (ssget ":S" (list (cons 0 "POINT,CIRCLE")))))
    (princ "\n   *** Seçilen obje, ilgili Layer'da POINT veya CIRCLE olmalı!"))
  (initget 7 "Satir Kolon No")
  (setq srk  (getkword "\Nokta numaralanmasında sıra kriteri (Satir=S/Kolon=K/Sırasız=N): ")
        rfob (entget (ssname rfob 0)) PtOb (ssget "x" (list (assoc 0 rfob) (assoc 8 rfob)))
        L    (sslength PtOb) n -1 pnts nil Mtrx nil elv  (getvar "elevation")
        nks  '((0.00 0.00) (40.00 0.00) (20.00 -1.50) (0.00 -2.00) (6.25 -2.00) (17.50 -2.00)
               (28.75 -2.00) (40.00 -2.00) (0.75 -3.50) (8.25 -3.50) (19.50 -3.50) (30.75 -3.50)
               (0.00 -4.00) (40.00 -4.00) (0.75 -5.50) (7.25 -5.50) (18.50 -5.50) (29.75 -5.50)
               (0.00 -6.00) (6.25 -6.00) (17.50 -6.00) (28.75 -6.00) (40.00 -6.00))
        nks  (mapcar '(lambda (xy) (list (* (car xy) TxH) (* (cadr xy) TxH) elv)) nks))
  (while (/= 3 (car (setq p0 (grread T 4 1)))) (redraw)
    (setq p1  (cadr p0) tks (mapcar '(lambda (pr) (list (+ (car p1) (car pr)) (+ (cadr p1) (cadr pr))
                                                        (+ (caddr p1) (caddr pr)))) nks))
    (grvecs (list 9 (nth 0 tks) (nth 18 tks) 9 (nth 18 tks) (nth 22 tks) 9 (nth 22 tks) (nth 1 tks)
                  9 (nth 1 tks) (nth 0 tks) 9 (nth 3 tks) (nth 7 tks) 9 (nth 12 tks) (nth 13 tks)
                  9 (nth 4 tks) (nth 19 tks) 9 (nth 5 tks) (nth 20 tks) 9 (nth 6 tks) (nth 21 tks))))
  (redraw) (setq dLset (ssadd) ac (/ pi 2.0) msf (* 2 TxH))
  (entmake (list (cons 0 "LINE") (cons 10 (nth 0 tks)) (cons 11 (nth 1 tks))))
  (entmake (list (cons 0 "LINE") (cons 10 (nth 3 tks)) (cons 11 (nth 7 tks))))
  (entmake (list (cons 0 "LINE") (cons 10 (nth 12 tks)) (cons 11 (nth 13 tks))))
  (entmake (list (cons 0 "LINE") (cons 10 (nth 0 tks)) (cons 11 (polar (nth 18 tks) ac msf))))
  (setq dLset (ssadd (entlast) dLset))
  (entmake (list (cons 0 "LINE") (cons 10 (nth 4 tks)) (cons 11 (polar (nth 19 tks) ac msf))))
  (setq dLset (ssadd (entlast) dLset))
  (entmake (list (cons 0 "LINE") (cons 10 (nth 5 tks)) (cons 11 (polar (nth 20 tks) ac msf))))
  (setq dLset (ssadd (entlast) dLset))
  (entmake (list (cons 0 "LINE") (cons 10 (nth 6 tks)) (cons 11 (polar (nth 21 tks) ac msf))))
  (setq dLset (ssadd (entlast) dLset))
  (entmake (list (cons 0 "LINE") (cons 10 (nth 1 tks)) (cons 11 (polar (nth 22 tks) ac msf))))
  (setq dLset (ssadd (entlast) dLset))
  (entmake (list (cons 0 "TEXT") (cons 10 (nth 2 tks)) (cons 40 Txh) (cons 1 "Koordinat Tablosu")
                 (cons 50 0.0) (cons 72 1) (cons 11 (nth 2 tks))))
  (entmake (list (cons 0 "TEXT") (cons 10 (nth 8 tks)) (cons 40 TxH) (cons 1 "Nokta") (cons 50 0.0)))
  (entmake (list (cons 0 "TEXT") (cons 10 (nth 9 tks)) (cons 40 TxH) (cons 1 "x") (cons 50 0.0)))
  (entmake (list (cons 0 "TEXT") (cons 10 (nth 10 tks)) (cons 40 TxH) (cons 1 "y") (cons 50 0.0)))
  (entmake (list (cons 0 "TEXT") (cons 10 (nth 11 tks)) (cons 40 TxH) (cons 1 "z") (cons 50 0.0)))
  (setq nks (list (nth 12 tks) (nth 13 tks) (polar (nth 8 tks) 0 TxH) (polar (nth 9 tks) pi TxH)
                  (polar (nth 10 tks) pi TxH) (polar (nth 11 tks) pi TxH))
        nksX (mapcar '(lambda (X) (car X)) nks) nksY (mapcar '(lambda (Y) (cadr Y)) nks))
  (while (< (setq n (1+ n)) L)
    (setq pnts (append pnts (list (cdr (assoc 10 (entget (ssname PtOb n))))))))
  (if (= srk "No")
    (setq Mtrx (reverse pnts))
    (progn
      (setq pts  (mapcar '(lambda (xy) (list (car xy) (cadr xy))) pnts)
            XLer (mapcar '(lambda (xx) (car xx)) pts) YLer (mapcar '(lambda (yy) (cadr yy)) pts)
            L    (length Xler) n -1)
      (while (< (setq n (1+ n)) L)
        (setq pvt0 (nth n XLer) pvt (vl-remove pvt0 XLer) XLer (append (list pvt0) pvt) L (length XLer)))
      (setq L (length YLer) n -1)
      (while (< (setq n (1+ n)) L)
        (setq pvt0 (nth n YLer) pvt (vl-remove pvt0 YLer) YLer (append (list pvt0) pvt) L (length YLer)))
      (setq XLer (vl-sort XLer '<) YLer (vl-sort YLer '>) StnS (length XLer) StrS (length YLer) m -1)
      (cond
        ((= srk "Satir")
         (while (< (setq m (1+ m)) StrS) (setq n -1) (while (< (setq n (1+ n)) StnS)
             (setq Mtrx (append Mtrx (list (list (nth n XLer) (nth m YLer))))))))
        ((= srk "Kolon")
         (while (< (setq m (1+ m)) StnS) (setq n -1) (while (< (setq n (1+ n)) StrS)
             (setq Mtrx (append Mtrx (list (list (nth m XLer) (nth n YLer)))))))))
      (setq L (length Mtrx) n -1)
      (while (< (setq n (1+ n)) L)
        (if (= (vl-position (nth n Mtrx) pts) nil)
          (setq Mtrx (vl-remove (nth n Mtrx) Mtrx) L (length Mtrx) n (1- n))))))
  (setq K (length Mtrx) L (length pnts) m -1) (setvar "dimzin" 0)
  (while (< (setq m (1+ m)) K) (setq n -1)
    (while (< (setq n (1+ n)) L)
      (if (and (= (car (nth m Mtrx)) (cadr (assoc 10 (entget (ssname PtOb n)))))
               (= (cadr (nth m Mtrx)) (caddr (assoc 10 (entget (ssname PtOb n))))))
         (progn
           (setq nksY (mapcar '(lambda (Y) (- Y (* 2 TxH))) nksY)
                 nks  (mapcar '(lambda (X Y) (list X Y)) nksX nksY)
                 nnum (strcat nn (itoa (setq num (1+ num))))
                 X    (car (nth m Mtrx)) Y (cadr (nth m Mtrx))
                 Z (cadddr (assoc 10 (entget (ssname PtOb n)))) p -1)
           (entmake (list (cons 0 "LINE") (cons 10 (nth 0 nks)) (cons 11 (nth 1 nks))))
           (entmake (list (cons 0 "TEXT") (cons 10 (nth 2 nks)) (cons 40 TxH) (cons 1 nnum) (cons 50 0.0)))
           (if (= pny "Evet")
             (entmake (list (cons 0 "TEXT") (cons 10 (list (+ X TxH) (+ Y Txh)))
                            (cons 40 TxH) (cons 1 nnum) (cons 50 0.0))))
           (entmake (list (cons 0 "TEXT") (cons 10 (nth 3 nks)) (cons 40 TxH) (cons 1 (rtos X 2 2)) (cons 50 0.0)))
           (entmake (list (cons 0 "TEXT") (cons 10 (nth 4 nks)) (cons 40 TxH) (cons 1 (rtos Y 2 2)) (cons 50 0.0)))
           (entmake (list (cons 0 "TEXT") (cons 10 (nth 5 nks)) (cons 40 TxH) (cons 1 (rtos Z 2 2)) (cons 50 0.0)))
           (while (< (setq p (1+ p)) 5)
             (setq pvt (entget (ssname dLset p))
                   pvt (subst (cons 11 (list (cadr (assoc 11 pvt)) (- (caddr (assoc 11 pvt)) (* 2 TxH))
                                             (cadddr (assoc 11 pvt)))) (assoc 11 pvt) pvt))
             (entmod pvt) (entupd (cdr (assoc -1 pvt))))))))
  (setq nnum (strcat nn (itoa (setq num (1+ num)))) enum nnum) (setvar "dimzin" edz) (command "_.undo" "e") (prin1)
)