(defun C:PNo ()
  (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 "\nNoktayı 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 (* 0.625 (distance (car kutu) (cadr kutu)))
          aci (angle ynok yynok) len (- (distance ynok yynok) ycap)
          p2  (polar ynok aci len)
          p3  (polar ynok 0 (/ yyuk 20)) p3 (list (car p3) (cadr p3))
          p4  (polar ynok pi (/ yyuk 20)) p4 (list (car p4) (cadr p4)))
    (entmake (list (cons 0 "CIRCLE") (cons 10 yynok) (cons 40 ycap)))
    (entmake (list (cons 0 "LINE") (cons 10 ynok) (cons 11 p2)))
    (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity")
                   '(100 . "AcDbPolyline") '(90 . 2) '(70 . 1) '(43 . 1.0)
                   (cons 10 p3) '(40 . 1.0) '(41 . 1.0) '(42 . 1.0)
                   (cons 10 p4) '(40 . 1.0) '(41 . 1.0) '(42 . 1.0)))
    (setq sayi (1+ sayi)))
  (setq eyuk yyuk esayi sayi)
  (setvar "modemacro" "") (command "undo" "e") (prin1)
)