(defun c:pno (/ yyuk sayi ynok yynok kutu ycap aci p1)
  (setvar "cmdecho" 0) (command "undo" "group")
  (setvar "modemacro" "prepared by:m.  s.   güvercin")
  (if (= eyuk nil) (setq eyuk (* (getvar "dimtxt") (getvar "dimscale"))))
  (setq yyuk (getreal (strcat "\nyazi yuksekligi <" (rtos eyuk) "> :")))
  (if (= yyuk nil) (setq yyuk eyuk)) (if (= esayi nil) (setq esayi 1))
  (setq sayi (getint (strcat "\nbaslangic sayisi <" (itoa esayi) "> :")))
  (if (= sayi nil) (setq sayi esayi))
  (while (setq ynok (getpoint "\n          noktayı seçiniz.  .  .  "))
    (setq yynok (getpoint ynok "\nnumaranın yerini seçiniz.  .  .  "))
    (entmake (list (cons 0 "text") (cons 10 yynok) (cons 40 yyuk)
        (cons 11 yynok) (cons 1 (itoa sayi)) (cons 50 0) (cons 72 4)))
    (setq kutu (textbox (entget (entlast)))
          ycap (/ (distance (car kutu) (cadr kutu)) 1. 5)
          aci (angle ynok yynok))
    (cond ((or (and (>= aci 0) (< aci (/ pi 2))) (>= aci (* 1. 5 pi)))
           (setq p1 (polar yynok (+ aci pi) ycap)))
          ((and (>= aci (/ pi 2)) (<= aci (* 1.  5 pi)))
           (setq p1 (polar yynok (- aci pi) ycap))))
    (entmake (list (cons 0 "cırcle") (cons 10 yynok) (cons 40 ycap)))
    (entmake (list (cons 0 "leader") (cons 100 "acdbentity") (cons 67 0)
        (cons 100 "acdbleader") (cons 71 1) (cons 74 1) (cons 76 3)
        (cons 10 ynok) (cons 10 p1)))
    (setq sayi (1+ sayi)))
  (setq eyuk yyuk esayi sayi)
  (setvar "modemacro" "") (command "undo" "e") (prin1)
)

(defun C:PNo ()
;;;(/ yyuk sayi ynok yynok kutu ycap aci p1)
  (setvar "cmdecho" 0) (command "undo" "group")
  (setvar "modemacro" "Prepared by:M.S. Güvercin")
  (if (= eyuk nil) (setq eyuk (* (getvar "dimtxt") (getvar "dimscale"))))
  (setq yyuk (getreal (strcat "\nYazi yuksekligi <" (rtos eyuk) "> :")))
  (if (= yyuk nil) (setq yyuk eyuk))
  (if (= esayi nil) (setq esayi 1))
  (setq sayi (getint (strcat "\nBaslangic sayisi <" (itoa esayi) "> :")))
  (if (= sayi nil) (setq sayi esayi))
  (while (setq ynok (getpoint "\n          Noktayı seçiniz..."))
    (setq yynok (getpoint ynok "\nNumaranın yerini seçiniz..."))
    (entmake (list (cons 0 "TEXT") (cons 10 yynok) (cons 40 yyuk)
                   (cons 11 yynok) (cons 1 (itoa sayi)) (cons 50 0)
                   (cons 72 4)))
    (setq kutu (textbox (entget (entlast)))
          ycap (/ (distance (car kutu) (cadr kutu)) 1.5)
          aci  (angle ynok yynok))
    (cond ((or (and (>= aci 0) (< aci (/ pi 2))) (>= aci (* 1.5 pi)))
           (setq p3 (polar yynok (+ aci pi) ycap)
                 p4 (polar ynok aci yyuk)))
          ((and (>= aci (/ pi 2)) (<= aci (* 1.5 pi)))
           (setq p3 (polar yynok (- aci pi) ycap)
                 p4 (polar ynok aci (* 0.6667 yyuk)))))
    (entmake (list (cons 0 "CIRCLE") (cons 10 yynok) (cons 40 ycap)))
    (entmake (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 67 0)
                   (cons 39 0.0) (cons 100 "AcDbPolyline") (cons 90 3)
                   (cons 70 0) (cons 38 47.3382) (cons 10 p3) (cons 40 0.0)
                   (cons 41 0.0) (cons 42 0.0) (cons 91 0) (cons 10 p4)
                   (cons 40 (* 0.3333 yyuk)) (cons 41 0.0) (cons 42 0.0)
                   (cons 91 0) (cons 10 ynok) (cons 40 0.0) (cons 41 0.0)
                   (cons 42 0.0) (cons 91 0))) (setq sayi (1+ sayi)))
  (setq eyuk  yyuk esayi sayi)
  (setvar "modemacro" "") (command "undo" "e") (prin1)
)