(defun nokkntr ()
  (if (= nok_kt nil)
    (alert "\nPointstyle ayarınızı kontrol etmeyi unutmayın:"))
  (setq nok_kt t))

(defun c:kls ()
(nokkntr)
(setvar "modemacro" "Arcme Design") 
(setvar "cmdecho" 0)
(setq kls_basno (getint "\nBaşlangıç numarası:"))
  (if (= kls_basno nil)
    (progn
      )
(progn
  (setq kls_yyybsno kls_basno)
(setq kls_os (getvar "osmode"))
  (if (= kls_yyuk nil)
    (setq kls_yyuk 10))
(setq kls_yy (getreal (strcat "\nYazı Yüksekliği :< " (rtos kls_yyuk 2 1) " >:")))
  (if (= kls_yy nil)
    (setq kls_yy kls_yyuk))
  (setq kls_yyuk kls_yy)
    (setq kls_nil nil)
  (setq kls_dosyaac (open "C:\\windows\\kls.txt" "w"))
  (setq kls_noksay 0)
(setq kls_yazi_ara (tblsearch "style" "kls_yazi"))

(if (= kls_yazi_ara nil)
  (progn
(command "style" "kls_yazi" "arial.ttf" "0""""""""")
))
  (setq kls_yazi_ara_yuk (cdr (assoc 40 kls_yazi_ara)))
  (if (/= kls_yazi_ara_yuk 0.0)
;(setq kls_yazi_ara (subst (cons 40 0)(assoc 40 kls_yazi_ara) kls_yazi_ara))
;    (entmod kls_yazi_ara)
(command "style" "kls_yazi" "" "0""""""""")
    )
      (while (= kls_nil nil)
      (setq kls_nok (getpoint "\nNoktayı Gösterin:"))
      (if (/= kls_nok nil)
(progn
  (setq kls_nokx (car kls_nok)
kls_noky (cadr kls_nok))

  (setq kls_yyerx (+ kls_nokx (/ kls_yyuk 2.0))
kls_yyer (list kls_yyerx kls_noky))
          (setvar "osmode" 0)
  (command "point" kls_nok)
  (command "text" "j" "ml" kls_yyer kls_yyuk "0" kls_basno)
  (write-line (rtos kls_nokx) kls_dosyaac)
  (write-line (rtos kls_noky) kls_dosyaac)
  (setq kls_noksay (+ kls_noksay 1))
  (setq kls_basno (+ kls_basno 1))
  (setq kls_nil nil)
  (setvar "osmode" kls_os)
  )
  (progn
    (close kls_dosyaac)
(setq kls_1 nil)
    (while (= kls_1 nil)
    (setq kls_tablonok (getpoint "\nTablo için referans nokta gösterin:"))
   (if (= kls_tablonok nil)
   (progn
     (setq kls_1 nil))
     (progn
       (setq kls_tablonokx (car kls_tablonok)
     kls_tablonoky (cadr kls_tablonok))
(setvar "osmode" 0)
       (command "line" kls_tablonok (strcat "@" (rtos (* 35 kls_yyuk))"<0")
(strcat "@" (rtos (* (* kls_yyuk 2.0) (+ kls_noksay 1))) "<270")
(strcat "@" (rtos (* 35 kls_yyuk))"<180") "c")
       (setq kls_tab1x (+ kls_tablonokx (* kls_yyuk 3.0))
     kls_tab1 (list kls_tab1x kls_tablonoky)
     kls_tab2x (+ kls_tablonokx (* kls_yyuk 19.0))
     kls_tab2 (list kls_tab2x kls_tablonoky)
     )
     (command "line" kls_tab1 (strcat "@" (rtos (* (* kls_yyuk 2.0) (+ kls_noksay 1))) "<270") "")
     (command "line" kls_tab2 (strcat "@" (rtos (* (* kls_yyuk 2.0) (+ kls_noksay 1))) "<270") "")

                     (setq kls_tab3 kls_tablonok)
     (repeat kls_noksay
       (setq kls_tab3x (car kls_tab3)
     kls_tab3y (- (cadr kls_tab3)(* kls_yyuk 2.0))
     kls_tab3 (list kls_tab3x kls_tab3y))
       (command "line" kls_tab3 (strcat "@" (rtos (* 35 kls_yyuk))"<0") ""))
       (setq kls_yaz1 kls_tablonok)
       (setq kls_yaz1x (+ (car kls_yaz1)(* 1.5 kls_yyuk))
     kls_yaz1y (- (cadr kls_yaz1)(* 3 kls_yyuk))
     kls_yaz1 (list kls_yaz1x kls_yaz1y))
(setq kls_yty kls_yyybsno)
       (repeat kls_noksay
(command "text" "j" "mc"  kls_yaz1 kls_yyuk "0" kls_yty)
(setq kls_yaz1y (- (cadr kls_yaz1) (* 2 kls_yyuk))
       kls_yaz1 (list (car kls_yaz1)kls_yaz1y))
(setq kls_yty (+ kls_yty 1)))
(setq kls_x_yaz kls_tablonok)
       (setq kls_x_yazx (+ (car kls_tablonok)(* 11 kls_yyuk))
     kls_x_yazy (- (cadr kls_tablonok)(* 3 kls_yyuk))
     kls_x_yaz (list kls_x_yazx kls_x_yazy))
       (setq kls_y_yazx (+ (car kls_tablonok)(* 27 kls_yyuk))
     kls_y_yazy (- (cadr kls_tablonok)(* 3 kls_yyuk))
     kls_y_yaz (list kls_y_yazx kls_y_yazy))
       (setq kls_xx_yazx (+ (car kls_tablonok)(* 11 kls_yyuk))
     kls_xx_yazy (- (cadr kls_tablonok) kls_yyuk)
     kls_xx_yaz (list kls_xx_yazx kls_xx_yazy))
       (setq kls_yy_yazx (+ (car kls_tablonok)(* 27 kls_yyuk))
     kls_yy_yazy (- (cadr kls_tablonok)kls_yyuk)
     kls_yy_yaz (list kls_yy_yazx kls_yy_yazy))
(command "text" "j" "mc" kls_xx_yaz kls_yyuk "0" "X")
(command "text" "j" "mc" kls_yy_yaz kls_yyuk "0" "Y")        
               (setq kls_oku_dac (open "c:\\windows\\kls.txt" "r"))
       (repeat (* kls_noksay 2)
(setq kls_oku_x (read-line kls_oku_dac))
(command "text" "j" "mc" kls_x_yaz kls_yyuk "0" kls_oku_x)
(setq kls_oku_y (read-line kls_oku_dac))
        (command "text" "j" "mc" kls_y_yaz kls_yyuk "0" kls_oku_y)
(setq kls_x_yazy (- (cadr kls_x_yaz) (* 2 kls_yyuk))
       kls_x_yaz (list kls_x_yazx kls_x_yazy))
(setq kls_y_yazy (- (cadr kls_y_yaz) (* 2 kls_yyuk))
       kls_y_yaz (list kls_y_yazx kls_y_yazy))
       )))
(setq kls_1 t)(setq kls_nil t)
      ))))))
(setvar "osmode" kls_os)
(close kls_oku_dac)
  (princ))