(setq en (getreal "\nOk Isaretinin Genisligini Giriniz:"))

(command "osmode" 0)

(defun c:ok (/ osm en okn1 okn2 mesafe aci n1 n2 n3 n4 n5 n6 )
(setq osm (getvar "osmode"))(command "_undo" "group")
(setq en (getreal "\nOk Isaretinin Genisligini Giriniz:"))
(setq okn1 (getpoint "\nOk Isaretinin Baslangic Noktasini Giriniz:"))
(setq okn2 (getpoint okn1 "\nOk Isaretinin Bitis Noktasini Giriniz:"))
(setq mesafe (distance okn1 okn2))
(setq aci (angle okn1 okn2))
(setq n1 (polar okn1 (- aci (/ pi 2))(* 0.5 en)))
(setq n2 (polar n1 aci (- mesafe (* 1.5 en))))
(setq n3 (polar n2 (- aci (/ pi 2)) en))
(setq n4 (polar okn1 (+ aci (/ pi 2))(* 0.5 en)))
(setq n5 (polar n4 aci (- mesafe (* 1.5 en))))
(setq n6 (polar n5 (+ aci (/ pi 2 )) en))
(command "osmode" 0)
(command "pline" n1 n2 n3 okn2 n6 n5 n4 "close")
(setvar "osmode" osm)(command "_undo" "e")
(princ)
)

(setq en (getreal "\nOk Isaretinin Genisligini Giriniz  < "en" >  :"))

(defun c:ok (/ osm en okn1 okn2 mesafe aci n1 n2 n3 n4 n5 n6 )
(setq osm (getvar "osmode"))(command "_undo" "group")
(setq en (getreal "\nOk Isaretinin Genisligini Giriniz:"))
(setq okn1 (getpoint "\nOk Isaretinin Baslangic Noktasini Giriniz:"))
(setq okn2 (getpoint okn1 "\nOk Isaretinin Bitis Noktasini Giriniz:"))
(setq mesafe (distance okn1 okn2))
(setq aci (angle okn1 okn2))
(setq n1 (polar okn1 (- aci (/ pi 2))(* 0.5 en)))
(setq n2 (polar n1 aci (- mesafe (* 1.5 en))))
(setq n3 (polar n2 (- aci (/ pi 2)) en))
(setq n4 (polar okn1 (+ aci (/ pi 2))(* 0.5 en)))
(setq n5 (polar n4 aci (- mesafe (* 1.5 en))))
(setq n6 (polar n5 (+ aci (/ pi 2 )) en))
(command "osmode" 0)
(command "pline" n1 n2 n3 okn2 n6 n5 n4 "close")
(setvar "osmode" osm)(command "_undo" "e")
(princ)
)

(setvar "osmode" 16384)

(command "osmode" 16384)

member: dialog {
label = "FINLANDIYA KESİM / OYMA LİSP'İ V.1.1";
: paragraph {
: text_part {
label = "Designed and Created";  alignment = centered;
}
: text_part {
label = "By. M.Ertan KIRTIL";  alignment = centered;
}
}
: column {

: column {
  fixed_height=true;
  fixed_width=true;
 
  : boxed_row {
  label = "KESİM TİPİ";

: column {
 
: image {
   key          = "Tss1";
   aspect_ratio = 1.0;
   fixed_width  = true;
   vertical_margin = none;
   width        = 20;
   height       = 6;
   color        = 0;
   value="1";
}
  : image {
   key          = "Tss2";
   aspect_ratio = 1;
   fixed_width  = true;
   vertical_margin = none;
   width        = 20;
   height       = 6;
   color        = 0;
}
  : image {
   key          = "Tss3";
   aspect_ratio = 1;
   fixed_width  = true;
   vertical_margin = none;
   width        = 20;
   height       = 6;
   color        = 0;
}
}

: boxed_column {
           label=" KESİM TİPİ SEÇİMİ ";
  : radio_button {label = "KESİM-1 (T1)"; key   = "Ts1";  }
  : radio_button {label = "KESİM-2 (T2)"; key   = "Ts2"; value="1"; }
  : radio_button {label = "KESİM-3 (T3)"; key   = "Ts3"; }
}
}
  :boxed_row {
           label=" KESİM YÖNÜ ";
           
        : image {
            color = black ;
            fixed_height = true ;
            fixed_width = true ;
            height = 9 ;
            key = "ana" ;
            width = 36 ;
            alignment  = centered ;
        }
  : boxed_column {
  label = "KESİM YÖNÜ SEÇİMİ";
  : radio_button {label = "SOL ÜST KESİM &(A)"; key   = "a_tipi";  }
  : radio_button {label = "SOL ALT KESİM &(B)"; key   = "b_tipi";  }
  : radio_button {label = "SAG ÜST KESİM &(C)"; key   = "c_tipi"; value="1"; }
  : radio_button {label = "SAG ALT KESİM &(D)"; key   = "d_tipi";  }
}
}
: edit_box {
     label = "YANAK GENİŞLİĞİ";
     key   = "LENG";
     edit_width=15;
   }
}
: boxed_row {
ok_cancel;
}
}
}

(defun c:fn ( / )

(setq dcl_id (load_dialog "fn.dcl"))
(if (not (new_dialog "member" dcl_id))(exit))   


(start_image "Tss1")
(setq max_x (dimx_tile "Tss1"))
(setq max_y (dimy_tile "Tss1"))
(slide_image 0 0 max_x max_y "Tr1")
(end_image)

(start_image "Tss2")
(setq max_x (dimx_tile "Tss2"))
(setq max_y (dimy_tile "Tss2"))
(slide_image 0 0 max_x max_y "Tr2")
(end_image)

(start_image "Tss3")
(setq max_x (dimx_tile "Tss3"))
(setq max_y (dimy_tile "Tss3"))
(slide_image 0 0 max_x max_y "Tr3")
(end_image)

(start_image "ana")
(setq max_x (dimx_tile "ana"))
(setq max_y (dimy_tile "ana"))
(slide_image 0 0 max_x max_y "ana_ekran")
(end_image)

(set_tile "LENG" "50")

(mode_tile "LENG" 2)
(mode_tile "Ts1" 2)
(mode_tile "c_tipi" 2)

(action_tile "LENG" "(setq LEN $value)")
(action_tile "Ts1" "(setq Tip1 "1")(mode_tile "LENG" 2)")
(action_tile "Ts2" "(setq Tip2 "2")(mode_tile "LENG" 2)")
(action_tile "Ts3" "(setq Tip3 "3")(mode_tile "LENG" 2)")
(action_tile "a_tipi" "(setq Types1 "1")(mode_tile "LENG" 2)")
(action_tile "b_tipi" "(setq Types2 "2")(mode_tile "LENG" 2)")
(action_tile "c_tipi" "(setq Types3 "3")(mode_tile "LENG" 2)")
(action_tile "d_tipi" "(setq Types4 "4")(mode_tile "LENG" 2)")
  (action_tile "cancel" "(done_dialog 1)")
  (action_tile "accept" "(done_dialog 2)(setq LEN (atof (get_tile "LENG")))"
  )

  (setq flag (start_dialog))
 
  (unload_dialog dcl_id)


(if (= flag 2)
(islem)
)
  (princ))
 
(defun islem ( / )


(if (and(= Tip1 1)(= Types1 1))
(progn
....................
....................
)

(if (and(= Tip1 1)(= Types2 1))
(progn
....................
....................
)

(princ)) ;;;;;;;;;;;;;;;;;;;SON

;;WİNDOW SECÇERSEN OKUMA YÖNÜNDE NUMARALIYOR
;;SELECT OREDER İSE AUTOCAD ÇİZİM SIRASININ TERSİNE GORE NUMARALANDIRIYOR

(vl-load-com)
(defun c:NNN (/ aDoc op ptlst mn mx get_glob_real start i oldlayer ss)

(defun get_glob_real (var msg mod prec def / tmpH)
    (if (or (not var) (/= (type var) 'REAL))
      (setq var def)
    )
    (initget 6)
    (setq
      tmpH (getreal (strcat "\n" msg " <" (rtos var mod prec) ">: "))
    )
    (if (/= tmpH nil)
      (setq var tmpH)
    )
    var
)

  (setvar "cmdecho" 0)
  (setq oldLayer (getvar "CLAYER"))
  (setq aDoc (vla-get-ActiveDocument (vlax-get-acad-object))
i    0
  )
  (if (tblsearch "Layer" ".E-NNN")
    (command "._layer" "_thaw"     ".E-NNN" "_on"
     ".E-NNN" "_unlock"   ".E-NNN" "_set"
     ".E-NNN" ""
    )
    (command "._layer" "_make" ".E-NNN" "_color" 2 ".E-NNN" "")
  )

(setq *_nnn_th (get_glob_real *_nnn_th "\nText height" 2 2 1.00))
  (cond
    ((and
       (progn (initget "W S")
      (setq
op (getkword
     "\nSelection Method [Window/Select Order] <Window>: "
   )
      )
      (if (not op)
(setq op "Window")
      )
      T
       )
       (princ "\nSelect objects or press <ENTER> for all: ")
       (or (ssget)
   (ssget "_X" '((410 . "Model")))
       )
       (setq start (car (_VL-TIMES)))       ;; işlem süresi ölçer satır 1/2
       (progn
(vlax-for
   itm
      (setq ss (vla-get-ActiveSelectionSet aDoc))
   (vla-getboundingbox itm 'mn 'mx)
   (setq
     ptlst
      (cons
(mapcar
  (function (lambda (a b) (/ (+ a b) 2.)))
  (vlax-safearray->list mn)
  (vlax-safearray->list mx)
)
ptlst
      )
   )
)
(vla-delete ss)
T
       ) ;progn
       (foreach
box
(if (eq op "W")
   (vl-sort
     ptlst
     (function (lambda (ip1 ip2) (< (car ip1) (car ip2)))
     )
   )
   (reverse ptlst)
)
(vlax-invoke
   (vlax-get (vla-get-ActiveLayout aDoc) 'Block)
   'AddText
   (itoa (setq i (1+ i)))
   box
   *_nnn_th ; Text Height
)
       )
     )
    )
  )
  (setvar "cmdecho" 1)
  (setvar "CLAYER" oldLayer)
  (princ (strcat "\n" (rtos (/ (- (car (_VL-TIMES)) start) 1000.) 2 4) " saniye."))  ;; işlem süresi ölçer satır 2/2
  (princ)
)