(setq mycmd (getvar "cmdecho")) 
(setq mytxtsize (getvar "textsize"))

(setq p1 (princ "\n Köşebent/NPU vs.. için kullan !!" ))
(setq p2 (princ "\n Bilgileri söyle -> MİLİMETRE !!"  ))
(setq kg1 (getreal "\n Bir metresinin kilosu kaç ? :"  ))       ;; 4.0
(setq by1 (getpoint "\n Boy başlangıç NoKTaSıNa TıKLa ?! :"  )) ;; (-6.97343 -13.4885 0.0)
(setq by2 (getpoint by1 "\n Boy bitiş NoKTaSıNa TıKLa ?! :" ))  ;; (88.0266 -13.4885 0.0)

(setq by3 (distance by1 by2) )    ; 95.0
(setq birimboy 1000)              ;  1000
(setq b1(* kg1 by3))              ; 380.0
(setq b2(/ b1 birimboy))          ; 0.38
(setq b3 "\n Hesaplanan Kilo: " ) ; "\n Hesaplanan Kilo: "
(setq b4 " Kg" )                  ; " Kg"

;; aşağıdaki satır iptal edilmiştir, test için yapıldı..
;; (princ (strcat b3 (rtos b2 2 3) b4 )) ;; "\n Hesaplanan Kilo: 0.38 Kg"

; Load Dialog 
(setq dcl_id (load_dialog "npu_hesap.dcl"))
(if (not (new_dialog "npu_hesaplama" dcl_id) ) (exit))
 
(setq txt_goster1 (strcat "1 mt/kg degeri : " " "(rtos kg1 2 3 ) b4 )) 
;; "1 mt/kg degeri :  4 Kg"
(setq txt_goster2 (strcat "Malzeme boyu : " " " (rtos by3 2 3 ) " mm"))
;; "Malzeme boyu :  95 mm"
(setq txt_goster3 (strcat b3 (rtos b2 2 3) b4 ))   
;; "\n Hesaplanan Kilo: 0.38 Kg"

;; dcl dialogtaki key'ler
(set_tile "txt1$" txt_goster1 )
(set_tile "txt2$" txt_goster2 )
(set_tile "txt3$" txt_goster3 ) 

(action_tile  "go_to_dwg"  "(done_dialog 1)")
(princ)
(setq flag (start_dialog))
 
;; Unload Dialog
(unload_dialog dcl_id)
 
(if (= flag 1) ;;  if başlangıç
   (progn       ;;  progn başlangıç
;; metin değerleri yazdırma yeri kordinat hesabı
(setq yr1 (getpoint "\n Ekrana tıkla yazdırmak için :" )) ;; txt_goster1 yeri
 
(setq txt1_mesafesi (+ mytxtsize (/ mytxtsize 2)) )
(setq txt1_cordinat (polar yr1 (dtr 270) txt1_mesafesi ))
(setq txt2_mesafesi (+ (* mytxtsize 3) mytxtsize ) )
(setq txt2_cordinat (polar yr1 (dtr 270) txt2_mesafesi) ) 
(setq txt3_mesafesi (+ (* mytxtsize 5) mytxtsize ) )
(setq txt3_cordinat (polar yr1 (dtr 270) txt3_mesafesi) )

(setvar "cmdecho" 0)
(command "._text" "_j" "_middle" txt1_cordinat  mytxtsize txt_goster1)
(command "._text" "_j" "_middle" txt2_cordinat  mytxtsize txt_goster2)
(command "._text" "_j" "_middle" txt3_cordinat  mytxtsize txt_goster3)

) ;; progn bitiş
) ;; if bitiş

(setvar "cmdecho" mycmd)
(setvar "textsize" mytxtsize)

: text {
label = "";
key = "txt1$";
                width = 25.0;
                fixed_width = true;
                alignment = left;
  }
 
: text {
label = "";
key = "txt2$";
width = 25.0;
                fixed_width = true;
                alignment = left;
  }


: text {
label = "";
key = "txt3$";
width = 25.0;
                fixed_width = true;
                alignment = left;
  }

    :button {
key = "go_to_dwg";
label = "Hesaplanan Değerleri Kaydet";
is_default = true;
width      = 3.0 ;
height      = 2.0 ;
}